Supportnet / Forum / Datenbanken
RunCommand läuft nicht !!
Frage
Guten Morgen Access- Profis,
Habe ein Problem mit einer Ereignisprozedur.
Private Sub Form_BeforeInsert(Cancel As Integer)
If IsNull(Me.Parent![Nr Kunde]) Then
MsgBox "Wählen Sie einen Kunde aus, an den die Rechnung geschickt werden soll, bevor Sie Bestelldetails eingeben."
End If
RunCommand acCmdClearAll
End Sub
Diese Prozedur läuft ordnungsgemäß ab. Auch der Run Command... Befehl funktioniert.
Ich bekomme nur immer folgende Fehlermeldung:
Laufzeitfehler '2046':
Der Befehl oder die Aktion 'AllesEntfernen' steht momentan nicht zur Verfügung.
Was muß ich tuen, um diese Fehlermeldung zu vermeiden??
Herzlichen Dank für jeden guten Tipp im Voraus!
Gruß
Ingo
Antwort 1 von RalfH
Salve Frühaufsteher,
Ist das so richtig ?
Gruß Ralf
Zitat:
Private Sub Form_BeforeInsert(Cancel As Integer)
Private Sub Form_BeforeInsert(Cancel As Integer)
Ist das so richtig ?
Gruß Ralf
Antwort 2 von Ingo.
Malzeit Ralf,
Ja, war in diesem Beispiel so.
Funktioniert aber auch nicht bei "AfterUpdate.."
Gruß
Ingo
Ja, war in diesem Beispiel so.
Funktioniert aber auch nicht bei "AfterUpdate.."
Gruß
Ingo
Antwort 3 von Marie
na ja, wenn Du nur die Fehlermeldung vermeiden willst, dann schreibste einfach:
on error resume next
Aber normalerweise tritt ja auch ein Fehler auf. Also ich kann es nicht glauben, dass trotz der Fehlermeldung alles läuft wie es soll??
Probier vielleicht mal
Me.Undo
Cancel = True
anstelle von
RunCommand acCmdClearAll
vielleicht war ja noch gar nichts abgespeichert??
oder probier mal den alten Löschbefehel:
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
oder aber
DoCmd.RunCommand (acCmdDeleteRecord)
Gruß Marie
on error resume next
Aber normalerweise tritt ja auch ein Fehler auf. Also ich kann es nicht glauben, dass trotz der Fehlermeldung alles läuft wie es soll??
Probier vielleicht mal
Me.Undo
Cancel = True
anstelle von
RunCommand acCmdClearAll
vielleicht war ja noch gar nichts abgespeichert??
oder probier mal den alten Löschbefehel:
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
oder aber
DoCmd.RunCommand (acCmdDeleteRecord)
Gruß Marie
Antwort 4 von Ingo.
Hallo Marie,
mein Held des Tages!
Me.Undo
Cancel = True
hat mein Problem gelöst. Prozedur läuft jetzt ohne Problem!!
Herzlichen Dank
LG Ingo
Ps. Kenne mich hier noch nicht gut aus. Habe
gedrückt.
Ist die Bewertung für Dich nutzvoll und auch bei Dir angekommen?
mein Held des Tages!
Me.Undo
Cancel = True
hat mein Problem gelöst. Prozedur läuft jetzt ohne Problem!!
Herzlichen Dank
LG Ingo
Ps. Kenne mich hier noch nicht gut aus. Habe
Zitat:
Diese Antwort hat mein Problem gelöst
Diese Antwort hat mein Problem gelöst
gedrückt.
Ist die Bewertung für Dich nutzvoll und auch bei Dir angekommen?
Antwort 5 von Marie
Ja, vielen Dank, aber wirklich sinnvoll ist das Anklicken des Buttons natürlich jetzt zusammen mit Deiner Antwort welcher meiner Vorschläge das Problem gelöst hat.
Wollte schon nachfragen, hat mich nämlich auch interessiert. Hab es mir aber fast gedacht.
Nett, dass Du Dich nochmal gemeldet hast.
Gruß Marie
Wollte schon nachfragen, hat mich nämlich auch interessiert. Hab es mir aber fast gedacht.
Nett, dass Du Dich nochmal gemeldet hast.
Gruß Marie