Zwei Bilder per Checkbox ein / aus schalten!

[J.D]

Hi Forum,

ich hätte da mal wider ein Problem.

Ich habe im Forumlar zwei Bilder eingefügt...
Ich möchte wenn ich die Checkbox auswähle das Flage1 angezeigt wird, wenn ich die Checkbox abwähle möchte ich das Flage1 ausgeblendet wird und Flage2 angezeigt wird... Die Bilder stehen auf Visible No

Code [Auswählen] Erweitern

Private Sub Check54_AfterUpdate()
    If Me!Check54.Visible = -1 Then
        Me.Flage1.Visible = False
        Me.Flage2.Visible = True
        End If
    If Me!Check54.Visible = 1 Then
        Me.Flage1.Visible = True
        Me.Flage2.Visible = False
        End If
    Forms!Kunden.Requery
End Sub
Grüsse JD

[PhilS]

Im Sinne von Hilfe zur Selbsthilfe:
Schau dir doch die folgende Zeile nochmal an und denke über deren Bedeutung nach:

Code [Auswählen] Erweitern

If Me!Check54.Visible = -1 Then
Nebenbei, aber nicht der zentrale Punkt, Ja/Nein-Werte korrespondieren zu den Zahlen -1 und 0. Man kann in VBA sehr gut mit den eingebauten Konstanten True und False arbeiten, was die Beachtung solcher Interna dann weniger relevant macht.

[J.D]

hmm,
ok ich habe es hinbekommen, danke...
Das .Visible an der Checkbox, macht natürlich kein sinn!

Grüsse JD

[Beaker s.a.]

Hallo,

Das If-Gedönse kannst du dir sparen.
Eine Checkbox gibt True oder False zurück. Diesen Wert kannst du der
Visible-Eigenschaft also direkt zuweisen

Code [Auswählen] Erweitern

Me.Flage1.Visible = Me.Check54    'hier wird die Standardeigenschaft .Value übergeben, sichtbar ist die Box allemal
Me.Flage2.Visible = Not Me.Check54gruss ekkehard