Textbox waarde nakijken

[Neuz]

Hey allemaal,

Ik ben bezig met een programmatje in VBA. Nu loop ik tegen een klein probleempje aan.

In een textbox op een userform vraag ik de gebruiker om een tijd in te vullen. Nu wil ik
de invoer in de textbox laten controleren of het inderdaad een tijd is wat is ingevuld.
Ik wilde dit bereiken met de volgende code:

If Not TimeValue(Format(TxtBegin, "hh:mm")) Then
   MsgBox "U dient een tijd in te voeren bij de begin tijd."
   Me.TxtBegin.SetFocus
   Exit Sub
End If

Dit script liep helaas vast. Kunnen jullie me helpen het probleem op te lossen.

Alvast bedankt.

Groet Neuz

 

[edmoor]

Probeer deze eens echter het Userform:

Private Sub txtBegin_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsDate(txtBegin.Value) Then
        MsgBox ""U dient een tijd in te voeren bij de begin tijd."
        Cancel = True
    End If
End Sub

 

[ExcelAmateur]

Probeer dit eens, anders het bestandje even plaatse.

If Not TimeValue(Format(TxtBegin, "hh:mm")) Then
   MsgBox "U dient een tijd in te voeren bij de begin tijd."
   TxtBegin.SetFocus
   Exit Sub
End If

 

[pasan]

iets uitgebreider
mits aan voorwaarden voldaan (aantal tekens ingevoerd, met een punt of dubbele punt) maak er een tijdwaarde van en zet deze in de textbox
Pas de textbox1 naam aan

Private Sub TextBox1_AfterUpdate()

 If InStr(1, TextBox1.Value, ".") + InStr(1, TextBox1.Value, ":") = 0 Then
  MsgBox "typ als scheidings teken een punt of dubbele punt"
   TextBox1 = ""
   
  Else
   If Len(TextBox1) > 5 Then
    MsgBox "Teveel tekens ingevoerd"
     TextBox1 = ""
     
   Else
      For i = 2 To 3
       A = False
       If Mid(TextBox1, i, 1) = "." Or Mid(TextBox1, i, 1) = ":" Then A = True: GoTo volgende
      Next
      
     If Not A Then
      MsgBox "foute waarde ingevoerd"
       TextBox1 = ""
       
     Else
     
volgende:
      TextBox1 = Format(Trim(TextBox1), "hh:mm")
      
     End If
   End If
 End If
End Sub