View Single Post
  #1 (permalink)  
Old August 19th, 2007, 08:24 PM
Paulys72 Paulys72 is offline
Registered User
 
Join Date: Aug 2007
Location: Lyons, ACT, Australia.
Posts: 3
Thanks: 0
Thanked 0 Times in 0 Posts
Default MS Date Time picker change

Hi
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

        Me![Status] = "Completed late"

    End If

    DoCmd.Save acForm, stDocName

End Sub

Thanks
Reply With Quote