Require Field if another field is not blank

[OsmoseTom]

I am having some troble with my code within a form. What I am trying to do
is diplay a message box and require entry for a field when another field has
an amount greater than zero.

Here is my code that is not working.


Private Sub Sun_Hours_1_Exit(Cancel As Integer)

Dim strMsg As String
If (Me.[Sun PR OUS 1] = "" And Me.[Sunday Hours 1] > 0) Then
Beep
MsgBox "If hours are entered for sunday a corresponding PR OUS job number is
required.", vbOKOnly, "Entry Required"
Cancel = True
End If

End Sub

Can someone please help me?

 

[Tom Lake]

I am having some troble with my code within a form. What I am trying to do
is diplay a message box and require entry for a field when another field has
an amount greater than zero.

Here is my code that is not working.


Private Sub Sun_Hours_1_Exit(Cancel As Integer)

Dim strMsg As String
If (Me.[Sun PR OUS 1] = "" And Me.[Sunday Hours 1] > 0) Then
Beep
MsgBox "If hours are entered for sunday a corresponding PR OUS job number is
required.", vbOKOnly, "Entry Required"
Cancel = True
End If

End Sub

Can someone please help me?

Try this:

If (IsNull(Me.[Sun PR OUS 1]) And Me.[Sunday Hours 1] > 0) Then

Tom Lake

 

[Linq Adams via AccessMonster.com]

Along with Tom's suggestion, if you're going to leave this in the

Sun_Hours_1_Exit

event, you'll have to remove the

Cancel = True

line! If you don't, you will not be able to move to the

Sun PR OUS 1

textbox to enter the needed data! Focus will remain in the

Sunday Hours 1

textbox as long as it is greater the 0 and

Sun PR OUS 1

is empty!

In point of fact, this type of Validation code should really be in the
Form_BeforeUpdate event. That way your user will only be warned if they try
to save the record with the conditions

IsNull(Me.[Sun PR OUS 1]) And Me.[Sunday Hours 1] > 0

being true. Your users may simply wnat to enter the

[Sun PR OUS 1]

data after entering Sundy's hours.

In this case, with the code being in the Form_BeforeUpdate event, it would
then be appropriate to have the

Cancel = True

line, to cancel the Save until the correction is made.