Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub cmd_ConvertLinkedToLocal_Click() ' For rare instances in which the linked table found no longer exists in SQL Server On Error Resume Next ‘ Get current database path/name myDBName = Mid(CurrentDb.Name, InStrRev(CurrentDb.Name, "\") + 1, 200) ‘ Check whether still original name and if so, instruct user to change the database name If myDBName Like "AuditDatabase*" Then MsgBox _ "AuditDatabase' is included at the beginning of the database " & _ "name." & vbCrLf & vbCrLf & "Please rename your local database before " & _ "proceeding." & vbCrLf & _ "(e.g., change 'AuditDatabase' to 'myAuditDatabase')": Exit Sub End If ‘ Make sure user really wants to convert database. msgboxA = MsgBox("DO NOT DO THIS UNLESS YOU ARE SURE!!!. " & vbCrLf & vbCrLf & _ "This will convert your linked tables to local tables!" & vbCrLf & vbCrLf & _ "ARE YOU SURE?!", vbExclamation + vbCritical + vbYesNo, "ARE YOU SURE?!") ' If no, do not proceed If msgboxA = vbNo Then Exit Sub ' Capture beginning time Me.txt_StartTime = Now() Dim myDB As Database, myTDF As TableDef Set myDB = CurrentDb ' Check each table definition For Each myTDF In myDB.TableDefs ' If a linked table (source is outside of the current db) . . . If myTDF.SourceTableName <> "" Then ' Select the table and convert to local DoCmd.SelectObject acTable, myTDF.Name, True RunCommand acCmdConvertLinkedTableToLocal End If Next ' Capture ending time - note we also have a text box that computes the difference between beginning time and ending time so we no how long it took (surprisingly quick) Me.txt_FinishTime = Now() ' Let user know the process is completed MsgBox "Conversion Completed" End Sub
|QODBC: How to use VBA to Disable Non-Updateable QuickBooks® Fields on a Microsoft® Access® Form (Part 2)||324|
|SSMS failed to connect to SSIS||151|
|Reading a wide CSV file (> 255 columns) using Access and SQL Server||58|
|Handle cabinet files and folders with VBA the Windows Explorer way||109|