Closing Forms and Eliminating Default Warnings

[Marcus]

Something odd I just noticed on one of my forms that has a "Close MS
Access button. It seems I can't use the close button if I have wrong
data entered in any of the form's combo boxes. (I only have 2 combo
boxes and one close button on the form).

The combo boxes only allow date formats to be entered. If I enter a
non-date format I get an obvious default warning saying "The value
you entered isn't valid for this field"

My code to close the form is quite simple:

Private Sub cmdCloseForm_Click()
DoCmd.Close acForm, "frmStudentInfo", acSaveNo
End Sub
I have two questions on this issue:

1) How does one change the text on the default warning (as I can't
find a code number associated with this warning, like one can find
for errors)?

2) How can I suppress the warning when I click the close button?
Marcus
******

[David]

You need to do some data validation. Unfortunatly, Access does not have
the Validate event like VB6 does. You can not put code in the LostFocus
event because you could end up in an endless loop. Probably the best
option here is simply add code so your procedure looks like this:

Private Sub cmdCloseForm_Click()
'************************************************* *************
'New code, check values of combo boxes if there is anything in
there
If Len(Trim$(Combo1)) > 0 then 'this means there is a value present
If Not IsDate(Combo1) then 'THIS MEANS THE VALUE IS NOT A
DATE VALUE
Msgbox "Please supply a valid date.",
vbExclamation, "Invalid Date"
Compbo1.SetFocus 'put the cursor back in the
Combo1 box
Exit Sub
End If
End If
If Len(Trim$(Combo2)) > 0 then 'this means there is a value present
If Not IsDate(Combo2) then 'THIS MEANS THE VALUE IS NOT A
DATE VALUE
Msgbox "Please supply a valid date.",
vbExclamation, "Invalid Date"
Compbo2.SetFocus 'put the cursor back in the
Combo2 box
Exit Sub
End If
End If
'Resume original code

'************************************************* ****************************************
DoCmd.Close acForm, "frmStudentInfo", acSaveNo
End Sub
David Hodgkins, MCSD, MCDBA, MCSE
dh*******@jstarsoftware.com
www.jstarsoftware.com

[Allen Browne]

Access will try to process the events for the control before it processes
the Close button. That means you have to deal with the "bad data" error
first.

This is an engine-level error, so you can use the Error event of the form to
trap it. The event has an argument named DataErr, and it will have the value
2113 for this error. You can trap and handle it however you please, but if
you just discard the error (by setting Response to acDataErrContinue) it
does not solve the unsuitable data, and perhaps worse this will happen in
all cases where the engine raises DataErr 2113.

The simplest solution would be to teach the user to press the Esc key twice
to undo the record, and then try closing again.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Marcus" <to*******@yahoo.ca> wrote in message
news:11**********************@l41g2000cwc.googlegr oups.com...

Something odd I just noticed on one of my forms that has a "Close MS
Access button. It seems I can't use the close button if I have wrong
data entered in any of the form's combo boxes. (I only have 2 combo
boxes and one close button on the form).

The combo boxes only allow date formats to be entered. If I enter a
non-date format I get an obvious default warning saying "The value
you entered isn't valid for this field"

My code to close the form is quite simple:

Private Sub cmdCloseForm_Click()
DoCmd.Close acForm, "frmStudentInfo", acSaveNo
End Sub
I have two questions on this issue:

1) How does one change the text on the default warning (as I can't
find a code number associated with this warning, like one can find
for errors)?

2) How can I suppress the warning when I click the close button?
Marcus
******

[Marcus]

Many thanks for the solutions. I will try them

Marcus
********