Code results in error on the first day of every month

[boomerang]

On the first day of every month, this code results in an error

    ElseIf Me.txtReceiptDate & " " & Me.txtReceiptTime > Format(Now(), "dd/mm/yyyy hh:nn") = True Then
    
        MsgBox "Date out of range." & vbCrLf & vbCrLf & "'Receipt Date / Receipt Time' cannot be set in the future " & _
        "and must be less than the current date and time - " & Format(Now(), "dd/mm/yyyy hh:nn") & ".", vbInformation, "Information"
        Me.txtReceiptDate.SetFocus

if I am inputting a date from the previous month.

Would really appreciate help to patch the code.

Thanks!

[Toyman]

Try this:
ElseIf CDate(Format(Me.txtReceiptDate & " " & Me.txtReceiptTime, "dd/mm/yyy hh:nn")) > Format(Now(), "dd/mm/yyyy hh:nn") = True Then

[boomerang]

Type mismatch :-(

But thanks!

[Toyman]

Type mismatch :-(

But thanks!

Can you post the rest of your code? Also, what is the value of Me.txtReceiptDate and Me.txtReceiptTime?

[ssanfu]

How about this version??

   ElseIf (Format(CDate(Me.txtReceiptDate & " " & Me.txtReceiptTime), "dd/mm/yyyy hh:nn") > Format(Now(), "dd/mm/yyyy hh:nn")) = True Then

      MsgBox "Date out of range." & vbCrLf & vbCrLf & "'Receipt Date / Receipt Time' cannot be set in the future " & _
             "and must be less than the current date and time - " & Format(Now(), "dd/mm/yyyy hh:nn") & ".", vbInformation, "Information"
      Me.txtReceiptDate.SetFocus
   End If

[boomerang]

It doesn't throw up the type mis match but it does trigger the msgbox. It thinks the date is in the future for some reason. Thanks all.

[ssanfu]

It doesn't throw up the type mis match but it does trigger the msgbox. It thinks the date is in the future for some reason. Thanks all.

Is the code working correctly for you?

I changed the regional settings on my computer to Englisk(British) to get the date to display mm/dd/yyyy. Then I created a form and added two text boxes and a button. After renaming the text boxes, I added this code to the On Click event:

Option Compare Database
Option Explicit

Private Sub Command4_Click()
   Dim RD As Date   'RD = Receipt Date
   Dim dtNow As Date  ' DN = Date Now

   RD = CDate(Me.txtReceiptDate & " " & Me.txtReceiptTime)
   dtNow = Format(Now(), "dd/mm/yyyy hh:nn")

   If True = False Then
      'so I could use the ElseIf

   ElseIf RD > dtNow Then

      MsgBox "Date out of range." & vbCrLf & vbCrLf & "'Receipt Date / Receipt Time' cannot be set in the future " & _
             "and must be less than the current date and time - " & dtNow & ".", vbInformation, "Information"
      Me.txtReceiptDate.SetFocus
   Else
      MsgBox "Good Receipt Date / Receipt Time!"
   End If
End Sub

If I set the Receipt Date to tomorrow's date, I get the error message. When I set the Receipt Date to yesterday's date, I get the Good Date message.