Zugriff VBA copyobject Fehler

Question

Ich versuche, eine einfache VBA in Zugriff schreiben, die eine Tabelle in eine andere Access-Datenbank kopiert und benennt es um.

Hier ist mein Code:

sub copy_table() 

    dim destDB as string 
    destDB = "Y:\GDA_files\MI1.mdb" 

    docmd.copyobject destDB, "Progress tracking 1", acTable= acDefault, "Progress tracking " & date 

end sub 

aber ich Nachricht

Laufzeitfehler '2501' erhalten: Es wurde

Die Copyobject Aktion

abgesagt Ich habe keine Ahnung, warum dieser Fehler auftritt. Irgendwelche Ideen?

Answer 1

Haben Sie versucht, den Tabellennamen zwischen den Anführungszeichen zu setzen?

Tabellennamen können beliebige gültige Zeichen (z. B. Leerzeichen) enthalten. Wenn Tabellennamen beliebige Zeichen außer Buchstaben, Zahlen und Unterstrichen enthalten, muss der Name durch Eingrenzen in umgekehrte Anführungszeichen (`) begrenzt werden.

in https://docs.microsoft.com/en-us/sql/odbc/microsoft/table-name-limitations

Answer 2

DoCmd.CopyObject(DestinationDatabase, NewName, SourceObjectType, SourceObjectName) 

Sie haben wahrscheinlich die NewName und SourceObjectName Parameter gemischt.

Und acTable= acDefault macht keinen Sinn.

Versuchen:

' this will sort table names chronologically 
strNewName = "Progress tracking " & Format(Date(), "yyyy-mm-dd") 

DoCmd.CopyObject destDB, strNewName, acTable, "Progress tracking 1"