Office: (Office 2013) Neuer Datensatz & Laufzeitfehler 2046

Liebe Forumsmitglieder
Jetzt muss ich Euch nochmals mit Kinderkram belästigen ...

Beim Erstellen eines Neuen Datensatzes verwende ich eine Befehlsschaltfläche
im Formular -

Der Code funktioniert beim ersten 'Klick' bestens.
D.h. er erstellt einen Neuen Datensatz. So weit so gut ...
Das Problem liegt vielmehr beim zweiten 'Klick' auf dieselbe Schaltfläche, wenn der Datensatz schon erstellt wurde...

Es kommt die StandardFehlerMeldung: "Laufzeitfehler 2046" -- "Der Befehl Gehe zu neuem Datensatz ist derzeit nicht verfügbar".

Wie kann ich dieses Problem elegant lösen?
D.h. bei erneutem Klicken auf dieselbe Schaltfläche soll die MsgBox: " Neuer Datensatz wurde bereits erstellt " erscheinen und die Fehlermeldung soll selbstverständlich auch gelöst werden. Aber wie?

Hier der Code:

Private Sub cmdNeuDatensatz_Click()
DoCmd.RunCommand acCmdRecordsGoToNew
Me!tblVorname.SetFocus
End Sub

Ich habe bereits verschiedene Dinge ausprobiert ... leider ohne die Fehlermeldung beseitigen zu können!
Ich als Anfänger werde noch stundenlang daran hirnen - deshalb bitte ich Euch erneut um Mithilfe.

:)

 

Me.NewRecord liefert True wenn Du dich aktuell in einem neuen Datensatz befindest bzw. False wenn nicht... damit/danach kannst Du entscheiden ob ein neuer angelegt werden soll oder nicht

 

Vielen Dank, Jetzt klappt alles wie gewünscht!

Private Sub cmdNeuDatensatz_Click()
If Me.NewRecord = False Then
DoCmd.RunCommand acCmdRecordsGoToNew
Else
MsgBox "Neuer Datensatz wurde bereits erstellt!"
End If
Me!tblVorname.SetFocus
End Sub

Sollte bei meinem Code-Stil jemals Unkorrekte Syntax od. ähnliches sichtbar werden, bitte ich um Einwände! Danke!

 

Nur so aus Neugier ... Benny Wunder

Du gehörst nicht zufällig zu den paar wenigen Personen welche den BinärCode verstehen - oder? ;-)