Event aus Unterformular auswerten (Acc 2000/2003)

12/06/2008 - 17:43 von Stefan Dase | Report spam
Hallo allerseits,

in letzter Zeit komme ich leider auch nur wenig zum Arbeiten mit Access.
Aber nun habe ich mal wieder eine Frage:

In einem Formular habe ich ein Unterformular eingebunden. Dieses
Unterformular löst beim Datensatzwechsel einen Event aus, den ich gerne
im Hauptformular auswerten möchte.

<Code Quelle="Unterformular">

Public Event BenutzerauswahlGeaendert(BenutzerName As String)

Private Sub Form_Current()
On Error GoTo ProcExit
RaiseEvent BenutzerauswahlGeaendert(Nz(Me!usr_UserName.Value, ""))
End Sub

</Code>

<Code Quelle="Hauptformular">

Private WithEvents Form_Benutzerliste As Form

Private Sub Form_Current()
Set Form_Benutzerliste = Me!frmBenutzer_Liste.Form
End Sub

Private Sub Form_Benutzerliste_BenutzerauswahlGeaendert(_
BenutzerName As String)

MsgBox BenutzerName
End Sub

</Code>

Fehler treten keine auf. Mit dem Debugger kann ich erkennen, dass der
Event gefeuert wird, die Routine im Hauptformular macht aber leider
nichts. Falscher Ansatz? Fehler im Code?

Vielen Dank für alle Ideen,
Stefan
 

Lesen sie die antworten

#1 Stefan Hoffmann
12/06/2008 - 18:28 | Warnen spam
hallo Stefan,

Stefan Dase schrieb:
Fehler treten keine auf. Mit dem Debugger kann ich erkennen, dass der
Event gefeuert wird, die Routine im Hauptformular macht aber leider
nichts. Falscher Ansatz? Fehler im Code?


Muß

Private WithEvents Form_Benutzerliste As Form



nicht

Private WithEvents mySubForm As Form_Benutzerliste

heißen?

mfG

Ähnliche fragen