• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Datum probleem in Userform

Status
Niet open voor verdere reacties.

lam201

Gebruiker
Lid geworden
23 aug 2007
Berichten
557
Ik heb de volgende uitdaging.

In een userform heb ik de volgende drie velden: Naam, geboortedatum en trouwdatum.
Deze worden in een lijst onder elkaar gezet (incl volg nummer) dmv de volgende code:

Code:
Private Sub cmd1_Click()

     
    Dim x   As Long
    x = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & x) = [MAX(Blad1!A2:A100)+1]
Range("B" & x) = txtname.Value
Range("C" & x) = DateValue(txtdate1.Value)
Range("D" & x) = DateValue(txtdate2.Value)

Unload Me
End Sub

Nu het probleem.
Iedereen is geboren. Maar niet iedereen is getrouwd.
Zodra ik het veld trouwdatum leeg laat, krijg ik een foutmelding: "Fout 13 tijdens uitvoering: Typen komen niet met elkaar overeen"


Wat doe ik fout?
En hoe los ik het op?


Lambert
 

Bijlagen

Met zoiets Lambert.
Code:
If txtdate2 = "" Then
   Range("D" & x) = ""
Else
   Range("D" & x) = DateValue(txtdate2)
End If
 
Of zo..........
Code:
Sub cmd1_Click()
  Dim x   As Long
  'getal aan einde volgende regel is aantal witregels tussen records
  x = Cells(Rows.Count, "A").End(xlUp).Row + 1
  Range("A" & x) = [MAX(Blad1!A2:A100)+1]
  Range("B" & x) = txtname.Value
  If IsDate(txtdate1.Value) Then Range("C" & x) = DateValue(txtdate1.Value)
  If IsDate(txtdate2.Value) Then Range("D" & x) = DateValue(txtdate2.Value)
  Unload Me
End Sub
 
Harry, Piet

bedankt voor de snelle oplossing.
De functie If isdate kende ik nog niet.


L.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan