before update

[scott04]

Hi everyone. I am using the following code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Combo60 = True And (Nz(Me.Personal_Data_Inaccuracies, 0)) +
(Nz(Me.Improper_Combine, 0)) = 0 Then
MsgBox "You selected yes to the Maintenance Issue question, therefore
please select the number of errors in that section", vbCritical
Cancel = False ' Stop the process
End If
End Sub
If you try and save it prompts for the msgbox one time. How can i make it
so that the message comes up until they enter the required data or change the
field to false? Thanks.

 

[BruceM]

Cancel = False has the effect of telling Access to ignore the line of code
and go ahead with the update. Cancel = True, on the other hand, will cancel
the update (that is, the save won't happen). Try something like:
Cancel = True
Me.Combo60.SetFocus

 

[scott04]

Bruce,
I tried what you suggested and it still allows me to save without going back
to asking for the code again.

 

[BruceM]

What do you mean by "save without going back to ask for the code again"?
Are you saying that if the user clicks the Save button again the record will
be saved with no prompt for additional fields?
On another point, if "True" for Combo60 is a text value it needs to be in
quotes.

 

[scott04]

Bruce,
Sorry for not responding sooner. The when you hit my command button to save
or exit, the code runs and the message box pops up as it should. If you hit
ok to the msgbox and then hit save again it allows you to save the
information.