error checking

[MAMIBUSSOL]

Hi

I am using the following code, and would like to put in some error checking.

code being used is:

Sub enterstartdate(startdate)
Do
startdate = InputBox("ENTER STARTDATE AS DD/MM/YYYY ie 01/01/2010", "STARTDATE")
If Len(startdate) = 0 Then Exit Sub
Loop Until IsDate(startdate)

startdate = CDate(startdate)
End Sub

for example

I want to force them to enter a date in the format 01/10/2010 if they enter anything else I want to repeat the request

If they click on the cancel button, I want it to exit the macro

 

[Jon von der Heyden]

Perhaps:

Sub EnterStartDate()
    Dim blnValidDate As Boolean: blnValidDate = False
    Dim startdate As Variant
    
    Do While Not blnValidDate
        startdate = Application.InputBox(Prompt:="Enter start date as DD/MM/YYYY", Type:=2)
        If startdate = False Then Exit Sub
        If IsDate(startdate) Then
            blnValidDate = (Format$(startdate, "dd/mm/yyyy") = startdate)
        End If
    Loop
    
    startdate = CDate(startdate)
    'proceed here
    
End Sub

 

[MAMIBUSSOL]

on my clicking on cancel

I no the exit sub will exit a procedure, how do i exit the macro

 

[Jon von der Heyden]

When I click cancel it exits. What happens on your side when you hit cancel?

 

[MAMIBUSSOL]

I am running the code you helped me with within a sub procedure, it exits the procedure running your code, but it doesn't exit the full macro, it just returns to the procedure that called your code, I think I need to pass

procedure 1
Call EnterStartDate(startdate)
'further coding

'exits coding below but carries on with my coding in the previous procedure

Sub EnterStartDate(startdate)
'your coding, exits this procedure on cancel, not problem
End Sub

 

[MAMIBUSSOL]

its ok, just being slow today, I just passed the variable back to the first procedure and placed a line of code to exit the procedure that way, thanks anyhows