DoCmd.RunCommand
23.10.2004 09:10:04
Peter
ich habe ein Problem eim Aufruf von Access aus einem Excel-Makro
Das folgende Makro bricht beim Befehl
Acc.DoCmd.RunCommand acCmdSelectAllRecords
mit der Fehlermeldung ab "Laufzeitfehler 2501 Die Aktion RunCommand wurde abgebrochen". Vielleicht kann mir jemand einen Hinweis geben, woher der Fehler kommt, und was ich unternehmen muss. Ich habe aber kaum Ahnung von der Excel-Makro-Programmierung.
Peter
Sub Makro1()
Dim DB As New ADODB.Connection
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Pfad\Datei.mdb;"
'AccessDBÖffnen
Dim Acc As Object
Set Acc = GetObject("C:\Pfad\Datei.mdb ")
' Tabelle Adressen öffnen
Acc.DoCmd.OpenTable "ADRESSEN", acViewNormal
Acc.DoCmd.SelectObject acTable, "ADRESSEN"
' Alle Datensätze markieren
Acc.DoCmd.RunCommand acCmdSelectAllRecords
End Sub