Hoe zorg ik dat door Checkbox aanvinken het invullen van een Textbox verpicht word?

[Schin02]

Ik ben op zoek naar een code die na het aanvinken van een Chechbox het invullen van een TextBox verplicht stelt.
Ik heb dit al maar het werkt niet

If Me.CHK_CONFORM_NEE.Enabled = False Then
Exit Sub
End If

If Me.CHK_CONFORM_NEE.Enabled = True Then
MsgBox "Er is geen nummer ingevuld.", vbCritical
Exit Sub
End If

 

[OctaFish]

Je kunt een tekstbox nooit verplicht maken, hooguit kun je controleren of het veld is ingevuld of niet. Dat laatste doe je dan bijvoorbeeld bij de code waarmee je het formulier opslaat. Dan check je dus of het tekstveld is ingevuld.

If Me.CHK_CONFORM_NEE.Enabled = True Then
    If Me.Nummerveld & "" = "" Then MsgBox "Er is geen nummer ingevuld.", vbCritical
End If

 

[HSV]

Kort door de bocht.

If checkbox1 and textbox1 = "" then msgbox "vul textbox"

 

[Schin02]

OctaFish,

Als ik dat doe dan krijg ik ook de melding als Checkbox Ja niet is ingevuld.

 

[E v R]

Waarom controleer je op enabled?

Private Sub CHK_CONFORM_NEE_Click()
If Me.CHK_CONFORM_NEE Then Me.TextBox1.SetFocus
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox1 = "" Then Cancel = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Me.CHK_CONFORM_NEE And Me.TextBox1 = "" And CloseMode = 0 Then Cancel = True
End Sub

 

[Schin02]

Ik heb van beide geprobeerd. Na veel puzzelen is het gelukt, Thanks