Waarde tekstvak

[Mark_68]

Hallo,

Ik wil in een tekstvak een tijdsnotatie handmatig invoeren waarbij de uren, minuten en seconden door een : worden gescheiden.
Is het mogelijk om als deze word opgeslagen door op een commandbutton te klikken, er een melding word gegeven als de uren en/of de minuten en/of seconden niet zijn ingevuld?

 

[HSV]

In ThisWorkbook module bij het sluiten aangeven indien de tekstvak leeg is je een MsgBox tevoorschijn laat komen.

 

[edmoor]

Gaat dat om een tekstvak in het werkblad of in een Userform?

 

[Mark_68]

In ThisWorkbook module bij het sluiten aangeven indien de tekstvak leeg is je een MsgBox tevoorschijn laat komen.

Ja dat begrijp ik het gaat er mij meer om als een van de drie niet is ingevuld

Bericht automatisch samengevoegd: Gisteren om 15:12

Gaat dat om een tekstvak in het werkblad of in een Userform?

Sorry in een Userform

 

[edmoor]

Dat kan bijvoorbeeld met iets als dit voor het Exit event van de Textbox:

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox1.Text) = 8 Then
        If IsDate(TextBox1) Then Exit Sub
    End If
    Cancel = True
    MsgBox "Ongeldige tijd", vbCritical
    TextBox1 = Null
End Sub

 

[Mark_68]

Dank je wel

 

[edmoor]

Code in #5 iets ingekort.