How would you verify a table exists in an MS Access Project using either a macro or code either as a stored procedure or event. I would prefer to link to a table in a 2nd SQL database, but no simple process for linking in a project, so planning on importing, but have to verify whether table exists or not to do so.

I used the code below to determine if the table was present, so I could drop it first, but it should work in your situation as well

Set cn = Application.CurrentProject.Connection
Set rs = New ADODB.Recordset

strSQL = "SELECT Count(*) AS Present FROM MSysObjects WHERE Name = 'tbl_Your_Table_Name_Here' AND Type = 1"

rs.Open strSQL, cn

If rs.Fields("Present") = 1 Then
        'Insert the code needed to execute if table is present
End If

Good Luck

Mike

Mike
EchoVue.com

Can't we make use of TableDef collection?

Best Regards
Vadivel

MVP ASP/ASP.NET
http://vadivel.thinkingms.com

I use this function fort testing if table exists:

Function Gen_test_if_table_exists(TableName) As Boolean

   Dim tdfLoop
   Gen_test_if_table_exists = False
   With CurrentDb
        'Debug.Print .TableDefs.Count & " TableDefs in " & .Name

        ' Enumerate TableDefs collection.
      For Each tdfLoop In .TableDefs
           'Debug.Print " " & tdfLoop.Name
         If TableName = tdfLoop.Name Then
            Gen_test_if_table_exists = True
            Exit Function
         End If
      Next tdfLoop

    End With

End Function


Cheers Ray