Gegevens toevoegen

[wieter]

In bijlage een poging om een gegevensbestand te beheren.
Het probleem stelt zich met de knop "Gegevens toevoegen".
- Als de textbox "Datum" leeg blijft, komt er een foutmelding, na de knop "Voeg toe".
- Toch zouden de gegevens moeten toegevoegd worden, zonder dat er een datum ingegeven is.
Hoe kan dit opgelost worden?

    .Cells(rij, "H") = DateValue(Format(TextBox7.Value, "dd/mm/yyyy"))

De DateFormat van Textbox7 veroorzaakt die foutmelding.

 

[Timshel]

    If textbox7.Value = "" Then
        .Cells(rij, "H") = ""
    Else
        .Cells(rij, "H") = DateValue(Format(textbox7.Value, "dd/mm/yyyy"))
    End If

 

[wieter]

Bedankt Timshel, opgelost!
Achteraf lijkt het altijd zo logisch.
Groeten en bedankt.

 

[ExcelAmateur]

Volgens mij werkt het verwijderen ook niet correct.

 

[snb]

Zou dit niet voldoende zijn ?

If textbox7.Value <>"" Then .Cells(rij, "H") = DateValue(textbox7.Value)

 

[wieter]

Bedankt snb voor de aanvulling.