lemonstreet25
Gebruiker
- Lid geworden
- 27 sep 2016
- Berichten
- 52
Dames en Heren,
hartelijk dank! Ik kom steeds verder. Nu wil ik de input valideren. D.w.z. als ik nu invoer in Textbox2 "12-96" ziet VBA daar een datum in; namelijk 01-12-1996. Hoe kan ik afdwingen dat er conform format "dd-12-yyyy" wordt ingevoerd? En hoe kan ik voorwaarden stellen als bijv:
•Invoerdatum moet na "01-01-2000" vallen ?
•Textbox2 datum moet groter zijn dan Textbox1 datum?
Met uw welnemen tevens de vraag hoe ik de cursor na foutmelding (msgbox) in de juiste textbox krijg. Setfocus in onderstaande code helpt niet.
Code:
Bekijk bijlage 315345
hartelijk dank! Ik kom steeds verder. Nu wil ik de input valideren. D.w.z. als ik nu invoer in Textbox2 "12-96" ziet VBA daar een datum in; namelijk 01-12-1996. Hoe kan ik afdwingen dat er conform format "dd-12-yyyy" wordt ingevoerd? En hoe kan ik voorwaarden stellen als bijv:
•Invoerdatum moet na "01-01-2000" vallen ?
•Textbox2 datum moet groter zijn dan Textbox1 datum?
Met uw welnemen tevens de vraag hoe ik de cursor na foutmelding (msgbox) in de juiste textbox krijg. Setfocus in onderstaande code helpt niet.
Code:
Code:
Private Sub TextBox2_AfterUpdate()
If IsDate(TextBox2.Value) Then
TextBox2 = Format(TextBox2, "dd-mm-yyyy")
TextBox2.BackColor = rgbWhite
Else
TextBox2.BackColor = rgbPink
MsgBox ("Please Enter a Vaid Date")
TextBox2.SetFocus
Exit Sub
End If
End Sub
Laatst bewerkt door een moderator: