Bom dia!!

Talvez....

Function CreateNewDatabase(FileName As String) As Boolean
'Fonte:http://www.experts-exchange.com/Database/MS_Access/Q_27937899.html
Dim ws As Workspace
Dim db As Database

Set ws = DBEngine.Workspaces(0)
'/ Delete any existing files:
    If Dir(FileName) <> "" Then
      Kill FileName
    End If
' Create the new database
Set db = ws.CreateDatabase(FileName, dbLangGeneral)
'/ Now export your tables. Note that I've set StructureOnly=True
DoCmd.TransferDatabase TransferType:=acExport, DatabaseName:=FileName, ObjectType:=acTable, Source:="YourLocalTable", Destination:="YourRemoteTable", StructureOnly:=True
'/ add other TransferDatabase calls here to move desired tables to the new database
End Function

Att

DoCmd.TransferDatabase TransferType:=acExport, DatabaseName:=FileName, ObjectType:=acTable, Source:="YourLocalTable", Destination:="YourRemoteTable", StructureOnly:=True

aparece-me um erro nesta linha, run-time error 2507: the type isn't an installed database type or doesn't support the operation you chose.

Bom dia!!

Cara, tu vai ter adaptar o código (apontar o caminho correto)

Destination:="YourRemoteTable", 

, sua tabela está neste local?

Att

sim eu sei, eu mudei e deu esse erro :

Bom dia!!

Olha eu não consigo testar, pois no pacote office do meu trabalho não tem Access, vamos aguardar o pessoal lhe ajudar.

Att