Form does not close... keep popping up MsgBox Error message

[ETCallHome]

Hi,

Calling on all the experts to assist this dumb guy with Access form programming...



I created a form (DataMode = Add) with with validation for all required fields in the OnExit Event for the fields. However, I open the form and then decide to do one of 2 things...

1. Decide not to add any record and press the exit CmdButton that closes the Form, or
2. Add the necessary data and after the record was added, press the exit CmdButton that closes the Form...

In Both instances... it keep popping up the MsgBox that I created prompting me to enter the required fields, and does not want to exit. Is there a way that when the exit CmdButton is pressed that all events on the form is disabled.... I Wonder.... !!! I am going to check whether the is a property that disables an event... maybe this will help.

But you expertise is highly appreciatetd.

Thanks

[RuralGuy]

If you want to continue using the OnExit event of each control then create a Public variable above all of the event procedures and watch it in your OnExit code. You can change it in the Click event of the Exit cmdButton.

[ETCallHome]

Hi Allan,

I put the validation code for each field on the CmdButton event OnEnter, and also created a nested If Statement for the validation as apposed to individual If Statement, i.e.

If isnull(A)
msgbox "error"
else
if isnull(b)
msgbox "error"
.
.
.
This ensured that this validation is only done when the cmdbutton to open the other form is execute, therefore the form will only open when all the fields are correctly populated. I also put the same code into the BeforeUpdates on the Form, thereby ensure that only if data was entered then the validation will be executed before the savecmd. This allowed me to undo any changes and then exit or just exit.

I tried putting the validation in a public sub procedure that I created in the code builder, i.e. Check_Validation and the code looks as follows:

If A = ....
call Check_Validation
.
.

Sub Check_Validation(Cancel As Integer)
cancel = true
msgbox "Error"
me.A.setfocus

This is to prevent have to maintain the validation code in more than one place, however, when I execute it it returns a compile error "expected: list separator or)" I have search the Internet for answers... but not getting anything that assist me. Can you help me with this problem..

I changed the code as follows

if A = ....
call Check_Validation(Cancel As Integer)

It then complains about invalid arguements....

It is now 23h40 in South Africa and I am dead tired as I need to have a Pilot run on the developed software ready by tomorrow.

Thanks