Registerblatt sichtbar, Laufzeitfehler 13

[mad]

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".

Code [Auswählen] Erweitern

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,

Code [Auswählen] Erweitern

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

[Beaker s.a.]

@mad

Code [Auswählen] Erweitern

Private Sub Form_Current()
    If Not Me.NewRecord Then
       'Dein bisheriger Code
    End If
End Sub

gruss ekkehard

[mad]

Danke,
funktioniert.


Gruss
mad