Prompting the User for the Database Path and Name : Database File « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. Database File

Prompting the User for the Database Path and Name

 
Sub RefreshLink()
    On Error GoTo RefreshLink_Err
    Dim cat As ADOX.Catalog
    Dim tdf As ADOX.Table
    Dim strNewLocation As String
    Dim strTemp As String

    Set cat = New ADOX.Catalog

    Set cat.ActiveConnection = CurrentProject.Connection

    Set tdf = cat.Tables("Employees")

    strTemp = tdf.Columns(0).Name

    Exit Sub
RefreshLink_Err:
    strNewLocation = InputBox("Please Enter Database Path and Name")
    tdf.Properties("Jet OLEDB:Link Datasource") = _
        strNewLocation
    Set cat.ActiveConnection = CurrentProject.Connection
    Set tdf = cat.Tables("Employees")
    Resume
End Sub








Related examples in the same category

1.Deleting a Database File
2.The VerifyLink Routine