Required field

[liam_conor]

I have two fields on a form, Date1 and Date2, where the user must fill out at least one before entering the record. If the user does not fill out one of the two I want to prompt him with a message box. Here is an example of what I am currently trying, obviously it does not work. Any examples?

Private Sub Form_AfterInsert()

If Date1.Value = "" And Date2.Value = "" Then

MsgBox "You must fill out either Date1 or Date2"

End If

End Sub

 

[Joe4]

How about:

If Len(Date1&Date2)=0 Then MsgBox "You must fill out either Date1 or Date2"
Exit Sub

 

[liam_conor]

I got a Compile error:

"Expected: )"

So I tried this:

Private Sub Form_AfterInsert()

If Len(date1&(date2)) = 0 Then MsgBox "You must fill out either Date1 or Date2"
Exit Sub

End Sub

Then I got the following Compile Error:

"Type-declaration character does not match declared datatype."

 

[Joe4]

Are Date1 and Date2 the EXACT name of the textboxes as they are found on the form (make sure they are not named something like TextBox1 and TextBox2)?

Also, the second set of quotes is unnecessary:

If Len(date1 & date2) = 0 Then MsgBox "You must fill out either Date1 or Date2"

 

[liam_conor]

works great...

However, it lets the user insert the next record. How can I force them to enter data into these two fields without being able to continue to the next record?

 

[Joe4]

That is what the "Exit Sub" was meant to do, but it probably won't work here.

What you want to do is set some sort of Flag, Variable, or Boolean statement, and send it back to your main macro. Then in the step which actually processes the form entries and runs, have an IF statement, deciding on whether or not to run the macro.

Or, just copy the logic into your main macro that runs:

If Len(date1 & date2) = 0 Then
   Exit Sub
Else
'   Run macro
End if

 

[liam_conor]

thanks