If not exist 1

[samotek]

I want to copy a table only when the copied table does not exist. How can i do it ?

DoCmd.TransferDatabase acImport, "Microsoft Access", CurrentDb.Name, acTable, "Table1", "CopyOfTable1", True

 

[Remou]

You can DLookup the system table MSysObjects.

 

[PHV]

A starting point:

strTable = "CopyOfTable1"
blnExists = False
For Each t In CurrentData.AllTables
  If t.Name = strTable Then
    blnExists = True
    Exit For
  End If
Next
If Not blnExists Then
  DoCmd.TransferDatabase acImport, "Microsoft Access", CurrentDb.Name, acTable, "Table1", strTable, True
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886