Mandatory field Userform creating a runtime error 13

[freddie mitchell]

Hello everyone,

I'd like to put a mandatory field in a functioning VBA userform. This is primarily to stop a runtime error 13 appearing if no value is entered. However, the mandatory field code I've added also brings up an error 13, instead of a message asking the user to input a value. Does anyone know how to get the mandatory field to code to run without the error 13 appearing? I've posted the code for the mandatory field below.

Private Sub OKButton_Click()

'check start date is filled correctly

If StartDate.Value = "" Or "DD/MM/YY" Then
MsgBox "please fill in the start date", vbCritical
Cancel = True
Else
'starting insert row function
Call Insert_Row
End If
End Sub

If anyone can help with this that would be amazing!

Thank you and happy holidays,

 

[dmt32]

You need to repeat the test after the OR statement

Private Sub OKButton_Click()

'check start date is filled correctly
If StartDate.Value = "" Or StartDate = "DD/MM/YY" Then
MsgBox "please fill in the start date", vbCritical
Cancel = True
Else
'starting insert row function
Call Insert_Row
End If
End Sub

or you could try using IsDate function

Private Sub OKButton_Click()

'check start date is filled correctly
If IsDate(StartDate.Value) Then
MsgBox "please fill in the start date", vbCritical
Cancel = True
Else
'starting insert row function
Call Insert_Row
End If
End Sub

and see if this produces required result

not sure what Cancel = True is meant to be doing?

Dave

 

[freddie mitchell]

That's great it works perfectly now, thank you!

Ha, the cancel=true was inadvertently left in by me because I was trying several ways to fix the issue, evidently with no success until you came along and helped out!

Thanks again Dave for your help

 

[dmt32]

No worries glad update resolved your issue

You can replace Cancel = True with

StartDate.SetFocus

to keep focus on the control

My alternative suggestion omitted Not Operator to work correctly

If Not IsDate(StartDate.Value) Then

Dave