Force Textfield as date

[Michiel82]

Hoe kan ik een text opmaken als een datum veld dag-maand-jaar? Ik heb iets geprobeerd, maar werkt nog niet helemaal. Verder wordt nu de datum weggescrheven als maand-dag-jaar ipv dag-maand-jaar

Private Sub CommandButton1_Click()

lastrow = ThisWorkbook.Worksheets("database").Cells(Rows.Count, 1).End(xlUp).Row
DossierNr = WorksheetFunction.Max(Sheets("database").Range("A:A")) + 1

If Not TextBox4.Value Like "##[-]##[-]####" Then
    MsgBox "Vul datum in dd-mm-jjjj format"
    TextBox4.SetFocus
Else
    Sheets("database").Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 11) = Array([Max(database!A:A)] + 1, TextBox1, TextBox2, TextBox3, TextBox4, "", "Open", ComboBox1, ComboBox2, Date, TextBox5)
    
    MsgBox "Melding toegevoegd"
    
    TextBox1.Value = vbNullString
    TextBox2.Value = vbNullString
    TextBox3.Value = vbNullString
    TextBox4.Value = vbNullString
    TextBox5.Value = vbNullString
    ComboBox1.Value = vbNullString
    ComboBox2.Value = vbNullString
End If

End Sub

Verder ben ik ook benieuwd hoe ik de overige velden kan verplichten naar waarden / nummers

 

[edmoor]

Kijk eens naar de IsDate functie:
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/isdate-function

Schrijf Textbox4 weg als CDate(TextBox4)

Tekstboxen bevatten wat de naam al zegt, altijd tekst.
Wil je een andere datatype voor de ingegeven waarde dan moet je dat converteren.
Met bijvoorbeeld de functie INT of CDbl.
Dat is dan weer nodig om er mee te kunnen rekenen als het om getallen gaat.