Textbox alleen controlleren als Visible True is

[covux]

Hey,
ik ben een formulier in Excel aan het maken met ActiveX bestuur elementen.
Nu is het zo dat sommige tekstvakken alleen zichtbaar moeten worden als een bepaalde optie wordt aangeklikt.
Dat is mij nu gelukt op deze manier.

Sub OptionButton44_Change()
If OptionButton44.Value = True Then
        TextBox3.Visible = True
ElseIf OptionButton44.Value = False Then
        TextBox3.Visible = False
End If


End Sub

Nu is het echter zo dat er daarna nog een controle moet plaatsen vinden om te controleren of er wel iets in het tekst vak vermeld staat.
Nu heb ik wel een stukje code die controleert of er iets in het tekst vak staat.

Sub CommandButton1_Click()

    If TextBox3.Text = "" Then
     MsgBox "Vul box in"
    End If
  
    
End Sub

Alleen is die controle ook het geval als de zichtbaarheid False is.
En dat moet dus dan niet.

Toen heb ik dit geprobeerd

Sub CommandButton1_Click()

    If TextBox3.Text = "" And Textbox3.Visible  = True  Then
     MsgBox "Vul box in"
    End If
  
    
End Sub

De code zelf geeft geenfoutmelding. Maar er gebeurd dan helemaal niks.

Wie kan mij vertellen hoe het correct moet.
Groet
Covux


Bekijk bijlage Helpmij versie.xlsm

 

[gast0660]

Probeer het eens zo

Sub CommandButton1_Click()
If OptionButton48.Value = True Then Exit Sub
If OptionButton48.Value = False And TextBox3.Text = "" Then MsgBox "Vul box in"
End Sub

 

[edmoor]

Volgens mij heb je aan dit voldoende:

Sub OptionButton44_Change()
    TextBox3.Visible = OptionButton44.Value
End Sub

Sub CommandButton1_Click()
    If Not OptionButton48.Value Then
        If TextBox3.Text = "" Then MsgBox "Vul box in"
    End If
End Sub

Tip:
Geef objecten een juiste naam in plaats van deze te laten zoals ze bij het maken ervan mee krijgen.
Dan kan je in de code veel makkelijker zien om welk object het gaat.

 

[covux]

Bedankt voor de tips!

ze doen het allebei!

Dit is mijn eerst VBA project dus veel googlen en youtube kijken.


Zal ook nog even alle Objecten de juiste naam geven.
dat maakt denk ik ook wel makkelijker als je later nog eens er mee aan de slag moet.
Ben nu een beetje aan hett expirimenteren hoe ik bepaalde dinge gedaan kan krijgen.

daarna moet ik nog van alles een geheel maken.

nogmaals bedankt!

 

[edmoor]

Googlen en youtube kijken en Helpmij raadplegen

 

[covux]

Googlen en youtube kijken en Helpmij raadplegen