AccessDiscussion of Microsoft Access database design and programming. See also the forums for Access ASP and Access VBA.
Welcome to the p2p.wrox.com Forums.
You are currently viewing the Access section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
I'm still really new to Access and I hope I'm not wasting people's time.
The following code worked when the textbox was Date/time with an input mask but since I changed it to MS DTPicker (superiors want a pretty calendar to choose the date) it won't work. The control sources are the same and I have tried rewriting the code to include the names of the DTPickers but nothing happens. It just won't update the "status" text box.
Private Sub Final_Date_Delivered_AfterUpdate(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmCoordReq"
Me![Status] = "Open"
If ((Me![Final Date Delivered] <= Me![Date of delivery]) Or (Me![Final Date Delivered] <= Me![Date of extension])) Then
Me![Status] = "Completed on time"
ElseIf ((Me![Final Date Delivered] > Me![Date of delivery]) Or (Me![Final Date Delivered] > Me![Date of extension])) Then
Is this giving you any errors, or just not working? Which date is the date picker? If it is Final_Date_Delivered, you may want to put this on the On Dirty event. Alternatively, make sure it is on the Before Update event of the form.