Form Date/Time

[ninab]

I have created a form, and wanted to be able to click on a button to change a field in the form from the existing date to a past date automatically with a click. However, I keep receiving an error message stating the value basically doesn't make sense. Here is what I have for codes:



Private Sub Command15_Click()
If Forms!AddOrderEntry!ActionSpecify = "RENEWAL" Then
If MsgBox("Would you like to close this case?", vbQuestion + vbYesNo, "Confirm Closure?") = vbYes Then

Me.CloseDate = Date - 1
Me.Status.Visible = True
Me.Refresh
End If

Else
If Forms!AddOrderEntry!ActionSpecify = "DEACTIVATION" Then
If MsgBox("Would you like to close this case?", vbQuestion + vbYesNo, "Confirm Closure?") = vbYes Then

Me.CloseDate = Date
Me.Status.Visible = True
Me.Refresh
End If

End If

End Sub


I have already did numerous different ways, and none of them took. Datediff ("d"(date-1)) was one I tried. Can someone help me please????

[orange]

For the purpose, syntax and samples of Access/vba functions, check with www.techonthenet.com

Google techonthenet DateDiff access

[ninab]

Nothing in that site, that I can see, helps me with what I need. I am using Access 2010. The codes that were used for Access 2003 older worked, however in 2010 they don't.

Me.Closedate = Date - 1

This was used in the Access 2003 and older version and worked. It is not registering in 2010. For example, this field, CloseDate on the form, has an existing date of June 20, 2014. I want to be able to change that to June 19, 2014.

[ItsMe]

Date() function works for me