textbox

[DirkB]

ik gebruik een userform
om te controleren of de box gevuld is gebruik ik deze code

If Trim(Me.TextBox4.Value) = "" Then
Me.TextBox4.SetFocus
MsgBox "voer postcode in"
Exit Sub
End If

hoe kan ik met een code controleren of er een geldige datum is ingevoerd?

 

[gast0660]

Euh?

voer postcode

en

hoe kan ik met een code controleren of er een geldige datum is ingevoerd?

 

[DirkB]

in de userform staan meerdere textboxen
textbox4 gebruik ik voor postcode

in een andere TB wil ik controleren of de ingave een datum is

 

[gast0660]

Maar mischien is dit de bedoeling

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
    If TextBox1 = vbNullString Then Exit Sub 
     
    If IsDate(TextBox1) Then 
        TextBox1 = Format(TextBox1, "Short Date") 
    Else 
        MsgBox "Geen geldige datum!!" 
        Cancel = True 
    End If 
End Sub

 

[gast0660]

Variant:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
If IsDate(TextBox1.Value) = False Or Len(TextBox1.Value) < 10 Then 
        MsgBox ("Geef een geldige datum in zoals: dd/mm/yyyy") 
        TextBox1.Value = Null 
        Cancel = True 
    End If 
End Sub

 

[DirkB]

dat is m
bedankt

 

[gast0660]

Suc6