[VBA] Probleem met visible property

[PopiPipo]

Ik zit hier met een probleem dat ik graag even aan jullie wil voorleggen...

Bij het openen van een formulier laat ik de .visible property van Lbl_Message instellen op False.

Vervolgens laat ik via een button o.a. de volgende code uitvoeren;

If Me.Lbl_Message.Visible = False Then
Me.Lbl_Message.Visible = True
Else
Me.Lbl_Message.Visible = True
End If

'MsgBox Me.Lbl_Message.Visible

Hiermee zou volgens bij de desbetreffende label zichtbaar moeten worden , dit gebeurt echter niet.

Op zich al vreemd , maar het kan nog gekker;

Om de actieve status van de visible property weer te geven , had ik even een messagebox laten weergeven met dit gegeven;
Wat schetst mijn verbazing; ineens wordt het label wel zichtbaar

Heeft iemand enig idee wat ik hier over het hoofd zie ?

[martinr]

Waarschijnlijk helpt het als je het formulier laat refreshen na het aanpassen van de status van het label.

[PopiPipo]

martinr schreef op donderdag 06 januari 2005 @ 13:20:
Waarschijnlijk helpt het als je het formulier laat refreshen na het aanpassen van de status van het label.

Bedankt martinr ! ; dit is het duwtje in de goede richting.

Als ik de code aanpas naar:

Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm

If Me.Lbl_Message.Visible = False Then
Me.Lbl_Message.Visible = True
Else
Me.Lbl_Message.Visible = True
End If

frmCurrentForm.Repaint

Werkt het wel.

Soms is het zo simpel...

[Nick_S]

PopiPipo schreef op donderdag 06 januari 2005 @ 13:42:
[...]
If Me.Lbl_Message.Visible = False Then
Me.Lbl_Message.Visible = True
Else
Me.Lbl_Message.Visible = True
End If
f

Ff wat anders hoor, maar als Visible false is zet je hem op True en anders ook? Oftewel, je zet hem altijd op True, waarom dan nog het if - statement?

[PopiPipo]

Ja, dat is inderdaad een beetje overbodig, maar ik was een beetje aan het uitproberen wat nu de oorzaak was van het niet veranderen van de Visible status.

Inmiddels heb ik dit uiteraard al aangepast.