lemonstreet25
Gebruiker
- Lid geworden
- 27 sep 2016
- Berichten
- 52
Excellisten,
In bijgaand vb bestand heb ik dankzij de adviezen van dit forum reeds een heel stuk kunnen programmeren. Textbox2 (ihb) wordt op verschillende wijzen reeds gevalideerd; echter lukt het mij niet om uit te sluiten dat er "tekst" wordt ingevoerd. Sterker nog, als er nu "letters" worden ingevoerd krijg ik een foutmelding. Vele pogingen en googleacties verder kom ik toch weer hier uit: onderstaand de validatie etc. van textbox2 tot nu toe:
In bijgaand vb bestand heb ik dankzij de adviezen van dit forum reeds een heel stuk kunnen programmeren. Textbox2 (ihb) wordt op verschillende wijzen reeds gevalideerd; echter lukt het mij niet om uit te sluiten dat er "tekst" wordt ingevoerd. Sterker nog, als er nu "letters" worden ingevoerd krijg ik een foutmelding. Vele pogingen en googleacties verder kom ik toch weer hier uit: onderstaand de validatie etc. van textbox2 tot nu toe:
Code:
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim response
If TextBox2.Value = "" Then
TextBox2.BackColor = rgbWhite
Exit Sub
End If
If IsDate(TextBox2.Value) And Len(TextBox2.Text) = 10 And CDate(TextBox2.Value) < CDate(Now()) Then
TextBox2 = Format(TextBox2, "dd-mm-yyyy")
TextBox2.BackColor = rgbWhite
ElseIf Not IsDate(TextBox2.Value) Then
TextBox2 = ""
MsgBox ("Waarde is geen datum")
Cancel = True
Else
TextBox2.BackColor = rgbPink
TextBox2 = ""
response = MsgBox("Datum niet correct", vbOKCancel + vbInformation)
Cancel = True
End If
End Sub
Laatst bewerkt door een moderator: