datum compileer fout

[jasco]

Hoi ben nieuw hier en vind het tot nu wel gezellig hier.
Ik heb echter een vraagje met deze compileer fout.

Private Sub TextBox12_Change()
Dim CellDatum As Date
Dim mydate As Date
    mydate = DateValue(TextBox12.Text)
    CellDatum = Now
    If CellDatum - mydate <= 30 Then
       TextBox12.BackColor = &H8080FF
       Else
       TextBox12.BackColor = &HC0C0C0
    End If
End Sub

Deze werkt goed als er maar een datum in textbox12 staat maar staat er niks in textbox12 krijg ik een fout melding. Wat is er hier niet goed aan. Kan dit niet als de textbox leeg is.Of wat zie ik over het hoofd.

Alvast bedankt

 

[Wigi]

Hey Jasco

ongeteste code

Private Sub TextBox12_Change()

    Dim CellDatum As Date
    Dim mydate As Date
    
    On Error Resume Next
    mydate = CDate(TextBox12.Text)
    
    If Err.Number <> 0 Then
        
        Err.Clear
        
    Else
    
        On Error GoTo 0
        
        CellDatum = Date
        
        If CellDatum - mydate <= 30 Then
            TextBox12.BackColor = &H8080FF
        Else
            TextBox12.BackColor = &HC0C0C0
        End If
        
    End If
    
End Sub

Wigi

 

[jasco]

Opgelost

Hallo wigi

Harstikke bedankt het werkt perfect nu.

 

[Wigi]

Dan graag nog even de vraag op opgelost zetten aub :thumb: