Office: (Office 2016) Fehlermeldung: „Befehl oder die Aktion Einfügen ist zurzeit nicht verfügbar“

Hallo zusammen
Aktuell erhalte folgende Fehlermeldung beim Ablauf meines Makros:
Fehlermeldung: „Befehl oder die Aktion Einfügen ist zurzeit nicht verfügbar“
Das Makro wurde mit dem Access Konfigurator in VBA umgewandelt.

Code:
Function Transfertabelle_aktualisieren1()
On Error GoTo Transfertabelle_aktualisieren1_Err

DoCmd.OpenQuery "ABR_Transfertabelle_Löschen", acViewNormal, acEdit
DoCmd.Close acQuery, "ABR_Transfertabelle_Löschen"
DoCmd.OpenQuery "AbfLEAuswertung", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
DoCmd.OpenTable "Transfertabelle", acViewNormal, acEdit
DoCmd.GoToRecord acTable, "Transfertabelle", acNewRec
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdPaste
DoCmd.Close acTable, "Transfertabelle"
DoCmd.Close acQuery, "AbfLEAuswertung"
Exit Function
Exit Function

Transfertabelle_aktualisieren1_Exit:
Exit Function
Transfertabelle_aktualisieren1_Err:
MsgBox Error$
Resume Transfertabelle_aktualisieren1_Exit
End Function

Leider sind meine VBA Kenntnisse sehr gering und ich kann so keinen Fehler im Ablauf finden.



Im Makroablauf Einzelschritt läuft die Anwendung immer korrekt durch.


Der Ablauf "Markieren und Kopieren über die Zwischenablage ist für mich nur eine Notlösung.
Die Daten werden aus einer Tabelle mit einem gebundenen Listenfeld ausgelesen. Bei der Anwendung einer Anfügeabfrage bringt Access sofort eine Fehlermeldung " Select Into " nicht möglich.

Vielen Dank für eure Hilfe im Voraus.

Markusstu

:)

 

Ein doppeltes Exit Function dürfte ein Problem sein.

Ansonsten ist dieser Makrocode als VBA fürchterlich, sowohl in der Logik als auch in der Umsetzung: Öffnen und Schließen von Tabellen und Auswahlabfragen, Copy & Paste, irgendwelches Speichern ...

(Lösch)Abfragen hast Du schon am Start. Ein Anfügen von Datensätzen würde man schlicht mit einer Anfügeabfrage erledigen. Damit könnte man auch sehr viel selektiver vorgehen und ggf. auf Löschaktionen verzichten.
Grundlagen - SQL ist leicht (4) - Aktualisierung einer Tabelle
Mit Einfügung in eine Tabelle sind Datensätze auch bereits automatisch gespeichert.
Etwa so:
Code:

Der grundsätzliche Schritt von Makro auf VBA ist aus verschiedenen Gründen sehr sinnvoll. Der Code aus der Umwandlung sollte zwar an sich funktionieren, ist aber dermaßen schlecht, dass man das VBA auch einfach neu schreiben kann statt den Text zu überarbeiten.

 

Hallo Eberhard,

Das halte ich allerdings bei einem Anfänger für nahezu unmöglich. Die OH zur
RunCommand-Methode als erste Anlaufstation dürfte da wenig erhellend sein.

@markus
Wenn du noch mehr Macros umstellen willst, wirst du viel lesen müssen. Für
dein aktuelles Problem hat dir Eberhard den Einstieg schon verlinkt.

gruss ekkehard

 

\@ekkehard:
Worin besteht am aktuellen Beispiel der Unterschied zwischen unmittelbar Neuschreiben und einem Umschreiben (wo vom Ursprungscode nichts übrig bleibt)?

 

Hallo Eberhard,
Das meinte ich nicht. Ob nun neu oder umgeschrieben, das Problem ist doch,
dass es für ihn als Anfänger wohl erstmal schwer zu erkennen ist, dass
Code:

das Gleiche ist wie
Code:

Wenn er aber wissbegierig ist, wird er diese Umsetzungen mit deinem Link (und
den verwandten Themen) sicher bald verstehen.
gruss ekkehard

 

Das unterstelle ich, und wenn man die Chance zum "gleich richtig abschreiben" bekommt, macht der eine oder andere auch etwas daraus.

 

Hallo Eberhard,
Danke für deine Anregungen und Hinweise.
Das zweite "Exit "Funktion" habe ich gelöscht. Leider war dies nicht der Fehler.

Die Transfertabelle dient zu Übermittlung von Daten nach Excel. Somit müssen vor der Übergabe alle alten Daten entfernt werden. Deshalb auch meine Löschabfrage.

Dein Codebeispiel wurde von mir umgewandelt:


'------------------------------------------------------------
' Transfertabelle_aktualisieren
Dim db AS DAQ.Database
Set db = CurrentDb

Db.Execute „“ABR_Transfertabelle_Löschen", dbFailOnError
‚

Db.Ececute “AbfLEAuswertung“, dbFailOnError
‚

Set db = Nothing

Wird bei SQL auch das Schlüsselword "Function" verwendet?

Sorry, ohne Einstiegskenntnisse gibt es halt dumme Fragen.


Vielen Dank für deine Hinweise und Links zum Einstieg. Die werde ich mir gründlich durchlesen.


Ekkehard auch bei dir möchte ich mich für deine Erläuterungen bedanken.




Gruß Markusst

 

Nein. Aber das gezeigte ist ja ein VBA-Code, genauer der Inhalt einer Prozedur (Sub) oder einer Funktion. Irgendwo wirst Du das ja komfortabel aufrufen wollen (Buttonklick oder so).

 

Hallo Eberhard,
aktuell habe ich versucht deine Anregungen umzusetzen und eine SubProzedur erstellt. Ich erhalte bei der Ausführung jedoch sofort eine Fehlermeldung von Access:

'Fehler beim Kompilieren:
' Benutzer definierter Typ nicht definiert

Code:
Private Sub DatentransferExcelTabelle_DblClick(Cancel As Integer)
' Transfertabelle_aktualisieren
Dim db As DAQ.Database
Set db = CurrentDb

Db.Execute „“ABR_Transfertabelle_Löschen", dbFailOnError
‚

db.Ececute “AbfLEAuswertung“, dbFailOnError
‚

Set db = Nothing
End Sub

Sorry für meine Anfängerfragen.

Gruß Markus

Vielen Dank für deine Geduld mit mir.

 

Zum Nachdenken:
Code:

 

Vielen Dank Eberhard.
Problem gelöst.
Bleib Gesund
Gruß Markus