Date carry over to next record not working.

[starclassic]

Hello everyone,
For some reason the txtExpDate_AfterUpdate()
does not carry the date to next record. If date is entered manualy will work but if I choose the date from the form Calendar thats pop up when click doesn't carry the value to next record. Any Ideas.I try everything and seems not working.

Private Sub txtExpDate_AfterUpdate()
Me.txtExpDate.DefaultValue = "#" & Me.txtExpDate & "#"
End Sub

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Module
Option Compare Database

Public olddate As Date

Public Originator As Control
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub txtExpDate_Click()
'open form calendar to select date.

Dim stDocName As String
stDocName = "frmCalendar"

Set Originator = Me.txtExpDate
olddate = IIf(IsDate(Me.txtExpDate.Value), Me.txtExpDate.Value, Now)
DoCmd.OpenForm stDocName, , , , , acDialog

Exit_txtExpDate_Click:
Exit Sub

Err_txtExpDate_Click:
MsgBox Err.Description
Resume Exit_txtExpDate_Click
End Sub

 

[starclassic]

After trial and error I was able to get it workin.

Thanks...

 

[TomCologne]

Sharing your solution would have been nice.

TomCologne

 

[starclassic]

I will post it after I clean up all the bugs out... Thank

 

[starclassic]

Here's final code

Private Sub txtExpDate_AfterUpdate()
If IsNull(Me.txtExpDate) Then
Exit Sub
ElseIf CDate(Me.txtExpDate) < CDate(Now) Then
MsgBox "Expiration date entered should be greater than date today", vbInformation, "Lunch Voucher"
Me.txtExpDate = ""
Me.txtExpDate.SetFocus
Exit Sub
Else
Me.txtExpDate.DefaultValue = "#" & CDate(Me.txtExpDate) & "#"

End If

End Sub

 

[TomCologne]

Thank you!

TomCologne