Need cancel code when input box open

[VBABEGINER]

Hello Board Members,

I have below code with me. I'm using one command button. After click on 'button', message box appearing and asking user to input date. I want in this code, when this input box appear and suppose user click on cancel or close button, it shall give msg - "You have not entered a date" with error style msg window.

The part which i want to edit highlighted in bold. Pls suggest..

Sub Button1_Click()

Dim strDate As String
Dim acceptDate As Integer
    
Do
    Do
        strDate = InputBox("Please Enter the DATE as MM/DD/YYYY", "Date", Format(Date - 1, "mm/dd/yyyy"))
        
       [B] If Not IsDate(strDate) Then MsgBox "Please enter a date!", vbCritical
    
    Loop Until IsDate(strDate)[/B]
   
    strDate = Format(CDate(strDate), "mm/dd/yyyy")
    acceptDate = MsgBox("The date you entered is " & strDate & vbNewLine & "Accept this date?", vbYesNo)

Loop Until acceptDate = vbYes

Sheets("Sheet1").Range("A3") = strDate

End Sub

 

[Phuoc]

Try this

Sub Button1_Click()
Dim strDate As String
Dim acceptDate As Integer
    
Do
    Do
        strDate = InputBox("Please Enter the DATE as MM/DD/YYYY", "Date", Format(Date - 1, "mm/dd/yyyy"))
        If strDate = "" Then
            MsgBox "You have not entered a date", vbCritical
        ElseIf Not IsDate(strDate) Then
            MsgBox "Please enter a date!", vbCritical
        End If
    Loop Until IsDate(strDate)
    
    strDate = Format(CDate(strDate), "mm/dd/yyyy")
    acceptDate = MsgBox("The date you entered is " & strDate & vbNewLine & "Accept this date?", vbYesNo)

Loop Until acceptDate = vbYes
Sheets("Sheet1").Range("A3") = strDate

End Sub
[code]

 

[Rick Rothstein]

Here is a generalized structure you can use for the InputBox that will allow you to react to the user clicking the Cancel button or clicking Enter without filling in anything as well as when the user enters actual data...

Dim Answer As String
 '....
 '....
 Answer = InputBox("Tell me something")
 If StrPtr(Answer) = 0 Then
   MsgBox "The user clicked Cancel, so we will exit the subroutine now."
   Exit Sub
 ElseIf Len(Answer) = 0 Then
   MsgBox "The user clicked OK without entering anything in the InputBox!"
 Else
   MsgBox "The user entered the following..." & vbLf & vbLf & Answer
 End If

 

[VBABEGINER]

Hi Phuoc, Thanks for your time. But what i look is, if i clicked on cancel or close on msg box, it will show me msg that 'U hv not entered any details' and close the entire loop. And hence I followed what Rick Sir suggested me.

Hello Rick Sir, after very long time..

Sir I modified the statement like this..

Do
        strDate = InputBox("Please Enter the DATE as MM/DD/YYYY", "Date", Format(Date - 1, "mm/dd/yyyy"))
        
        If Not IsDate(strDate) Then MsgBox "You have not entered a date!"
        Exit Sub

Hence Rick Sir and Phuoc for your valuable time and reply. ??

 

[VBABEGINER]

Hello again here.. I dont know but I'm getting error on this spot..

strDate = InputBox("Please Enter the DATE as MM/DD/YYYY", "Date", Format([SIZE=6][COLOR=rgb(184, 49, 47)]Date[/COLOR][/SIZE] - 1, "mm/dd/yyyy"))

Error is - Compile error: Cant find project or library.. Little bit worried. Can anyone of you please suggest..

 

[VBABEGINER]

dear members, pls guide on this.. i think this about library not found.. and i'm not aware how to get that in order to resolve this.. very close actually.. hence report.. thanks..

 

[VBABEGINER]

hello all, i got it this