Office: Fehlermeldung

Hallo zusammen und einen schönen sonnigen Wochenanfang,

folgendes Problem: ich möchte per Schaltfläche ein Formular öffnen und dabei einen Wert (ID) in das neue Formular schreiben.
Im Formular mit der Schaltfläche gebe ich folgendes ein:

Private Sub Befehl214_Click()
DoCmd.OpenForm "Beratung", , , , , acDialog, Me!Klient
End Sub

Im zu öffnenden Formular

Private Sub Form_Open(Cancel As Integer)
If Nz(Me.OpenArgs, "") <> "" Then
Me!Klient.DefaultValue = Me.OpenArgs
DoCmd.GoToRecord , , acNewRec
End If
End Sub

Resultat Fehlermeldung:
Dieser Fehler tritt auf, wenn ein Ereignis nicht ausgeführt werden konnte, weil der Speicherort der Logik für das Ereignis nicht ausgewertet werden kann. Falls z. B. die OnOpen-Eigenschaft eines Formulars auf =[Field] festgelegt ist, tritt dieser Fehler auf, weil die Ausführung eines Makros oder Ereignisnamens erwartet wird, wenn das Ereignis auftritt.

??????

Lieben Gruss
Markus

 

Hallo Markus,

1) falls du in den Eigenschaften des Formulars "Beratung" die Verknüpfung zum "Form_Open(..)"-Makro in die "Beim Öffnen"-Ereigniseigenschaft eingetragen hast (was ich vermute),
2) dann hilft meist, wie ich durch Googeln in Erfahrung bringen konnte, dass man einfach wieder in den VBA-Editor geht und im Menü das VBA-Editors > Tabulator "Debuggen" > Befehl "Compilieren von ..." ausführt. Dadurch wird eine Neukompilierung des VBA-Codes erzwungen.
3) Danach auf Speichern (Diskettensymbol) klicken und Code wieder ausführen.