Hallo Zusammen,
habe ein kleines Problem. Lasse mit dem nachfolgenden Code (die letzten beiden Zeilen vor End Sub) ein Registerblatt "PA_G26" anzeigen (visible) in abhängigkeit von einem Kontrollkästchen "Atemschutztraeger".
Private Sub Form_Current()
Me!lstAufgabeAktuell.Requery
Me!lstLP.Requery
Me!lstLehrg_Perso.Requery
Me!lstWettbewerbe.Requery
Me!lstEhrungen.Requery
Me!lstAufgabe.Requery
Me!lstFS.Requery
Me!lstInvPerson.Requery
Me!lstAllgInfo.Requery
Me!lstG26.Requery
Me!PA_G26.Visible = Me!Atemschutztraeger
Me!PA_G26.Requery
End Sub
Funktioniert super wenn ich zwischen den einzelnen Datensätzen im Formular hin u. her wechsle.
Wenn ich aber am letzten DS stehe und dann noch einen weiter gehe, so das ich auch einen neuen DS eingeben könnte kommt der Laufzeitfehler 13 (Typen unverträglich).
Bevor ich diese beiden Codezeilen,
Me!PA_G26.Visible = Me!Atemschutztraeger
Me!PA_G26.Requery
eingefügt hatte, ist der Fehler nicht aufgetreten.
Weis vielleicht jemand die Lösung für mein Problem. Im Forum habe ich nichts passendes gefunden.
Gruss
mad
@mad
Private Sub Form_Current()
If Not Me.NewRecord Then
'Dein bisheriger Code
End If
End Sub
gruss ekkehard
Danke,
funktioniert.
Gruss
mad