Accessing a Menu Item thru a Command button

  • Thread starter Thread starter Mota
  • Start date Start date
M

Mota

Hi,
I want a code for a Command Button to open "Link Tables" Dialog box in ACC
2000.It would be equal to pointing to:
File menu>Get External Data>Import Tables...
Can anyone please help me?Thank you in advance.
 
Mota said:
Hi,
I want a code for a Command Button to open "Link Tables" Dialog box
in ACC 2000.It would be equal to pointing to:
File menu>Get External Data>Import Tables...
Can anyone please help me?Thank you in advance.
Click to expand...

You're request is ambiguous. Do you want "Link" or "Import"? Here are both...

DoCmd.RunCommand acCmdLinkTables

DoCmd.RunCommand acCmdImport
 
Mota said:
Hi,
I want a code for a Command Button to open "Link Tables" Dialog box
in ACC 2000.It would be equal to pointing to:
File menu>Get External Data>Import Tables...
Can anyone please help me?Thank you in advance.
Click to expand...

Your request is ambiguous. Do you want "Link" or "Import"? Here are both...

DoCmd.RunCommand acCmdLinkTables

DoCmd.RunCommand acCmdImport
 
Hi,

I have some code to do the job via vba if you want, rather than using
the wizard.

Regards

Alex
 
Hi Mota,

the code here is using the 'Microsoft ADO Ext. 2.8 for DDL and
Security' library (ADO)

how to to use

Call RelinkTable('MyTable','MyTable','c:\mymdb')

Function RelinkTable(strTable As String, strSourceTable As String,
strSourceDB As String) As Boolean
On Error GoTo Err_RelinkTable
Dim adocat As New ADOX.Catalog
Dim adotbl As New ADOX.TABLE
Set adocat = New ADOX.Catalog
Set adocat.ActiveConnection = CurrentProject.Connection
Set adotbl.ParentCatalog = adocat
On Error Resume Next
adocat.Tables.Delete strTable
On Error GoTo Err_RelinkTable
adotbl.NAME = strTable
adotbl.Properties("Jet OLEDB:Link Datasource") = strSourceDB
adotbl.Properties("Jet OLEDB:Link Provider String") = "MS Access"
adotbl.Properties("Jet OLEDB:Remote Table Name") = strTable
adotbl.Properties("Jet OLEDB:Create Link") = True
adocat.Tables.Append adotbl
Exit_RelinkTable:
Exit Function
Err_RelinkTable:
If Err.Number = -2147217860 Then
Exit Function
Else
Resume Next
End If
End Function


Hope it helps, if you want I will try and find the DAO version of the
code for you.

Regards


Alex
 
Back
Top