Generate error message if todays date not picked.

**processchip** · 02-10-2011, 03:47 PM

Hi All

I have a userform with a DTpicker on it, I would like a warning message to appear if any other date has been picked except "Todays" date. Generally todays date is used but there are certain circumstances that another date may be entered so i dont want the code to stop as such, just a warning to say "are you sure you want another date".

Can anyone help me with the code on this

Thanks in advance.

**nimrod** · 02-10-2011, 05:06 PM

Public Sub DemoConfirm()
  Dim Today As Date
  
  Today = Now
   
TryAgain:
   msg = "please enter date  mm/dd/yy"
   resp = Application.InputBox(msg, "Enter Date", Format(Today, "mm/dd/yy"))
   If resp = False Then Exit Sub
 
   If IsDate(resp) Then
      If Format(resp, "mm/dd/yy") <> Format(Today, "mm/dd/yy") Then
         
         msg = "Are you sure you want to use " & Format(resp, "mm/dd/yy") & " ?"
         confirm = MsgBox(msg, vbQuestion + vbYesNoCancel, "Confirm Date")
         
         Select Case confirm
            Case vbyes:
            Case vbNo: GoTo TryAgain
            Case vbCancel: Exit Sub
        End Select
         
      End If
   End If
   
   MsgBox "date used " & Format(resp, "mm/dd/yy")
   
End Sub

**processchip** · 02-15-2011, 09:28 AM

Hi Nimrod

Thanks for your reply but couldnt get it to work. I'm a bit of a newbie

I have solved the problem by doing a simple excel eqation between todays date and the date entered and have a textbox in my userform display a warning message if the dates are not the same.

Thanks again