calender gebruik is acces

[fke]

ik gebruik onderstaande VBA code voor het invoeren van een datum in een invoer veld in acces mbv een kalender. Helaas neemt het de datum van vandaag over maar als je een andere datum kiest doet ie dat niet. Wat doe ik fout. Is de code wel correct. deze komt van www.fontstuff.com en werkt wel in hun bestand.
Private Sub datum2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Calendar6.Visible = True
Calendar6.SetFocus
If Not IsNull(datum2) Then
Calendar6.Value = datum2.Value
Else
Calendar6.Value = Date
End If
End Sub
Private Sub Calendar6_Click()
datum2.Value = Calendar6.Value
datum2.SetFocus
Calendar6.Visible = False
End Sub

 

[maartenf]

code lijkt me goed
ik gebruik ongeveer dezelfde, maar ik maak eerste een variabele aan. misschien ligt het daaraan?

Private Sub D_Click()
Set Dtemp = datum
' Unhide the calendar and give it the focus
Calendar4.Visible = True
Calendar4.SetFocus
' Match calendar date to existing date if present or today's date
If Not IsNull(Dtemp) Then
Calendar4.Value = Dtemp.Value
Else
Calendar4.Value = Date
End If
End Sub

Private Sub calendar4_Click()
' Copy chosen date from calendar to originating combo box
Me.datum = Calendar4.Value
' Return the focus to the combo box and hide the calendar and
Me.datum.SetFocus
Calendar4.Visible = False
' Empty the variable
Set Dtemp = Nothing
End Sub

zie ook post
http://www.helpmij.nl/forum/showthread.php?t=269275

 

[thedonnl]

kalender

Hallo,

kijk ook eens hier, staat een goede beschrijving van een kalender.

http://www.femda.com/vragen/antwoord.asp?CD=0&ID=vp1122299346

succes:thumb: