Userform controle op tijd

[johngub]

Hallo,

Hoe kan ik in een userform waar ik de tijd moet invullen controleren of er een dubbele punt is gebruikt ?
En als die niet is gebruikt dat hij die dan zelf plaatst.

 

[gast0660]

Zo?

Private Sub Txttijdstip_AfterUpdate()
On Error GoTo oops
With Txttijdstip
   If InStr(1, .Value, ":", vbTextCompare) = 0 Then
       tString = Format(.Value, "0000")
        tString = Left(tString, 2) & ":" & Right(tString, 2)
       Txttijdstip.Value = Format(TimeValue(tString), "HH:MM")
    Else
        .Value = Format(.Value, "hh:mm")
    End If
End With
oops:
MsgBox "Foute invoer.", vbCritical, "Fout"
Txttijdstip.Value = ""
End Sub

 

[edmoor]

Zo wordt wel de oops: altijd uitgevoerd.
Je mist dus een Exit Sub

 

[johngub]

Ik ga het proberen bedankt
De exit sub kan ik zelf nog wel toevoegen :d

 

[edmoor]

Uiteraard

 

[snb]

Gebruik een combobox met alle geldige tijdwaarden.