Run Time Error 2450

I've got a data entry form: frm_Log with a combo box for clientID: ComboClientID and a combo box for Staff: ComboStaffSignature
When a new client or a new staff has to be entered, I've got a command buttons that open either frm_Client or frm_Clinicians
When those forms close, I want the respective combo box to update, and so have this code on the form close:
Private Sub Form_Close()
     Forms!frm_Log![ComboStaffSignature].Requery
End Sub
Private Sub Form_Close()
     Forms!frm_Log![ComboClientID].Requery
End Sub
but am getting the error code 2450 .....can't find the form 'frm_Log' referred to...but it does exist
schneider_ksAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

thenelsonCommented:
In the form close event, the table is already unloaded so the requery fails. Move your code to the form unload event.

The combobox not in list event has features built in to simplify this: NewData And Response.

NewData    A string that Microsoft Access uses to pass the text the user entered in the text box portion of the combo box to the event procedure.

Response    The setting indicates how the NotInList event was handled. The Response argument can be one of the following intrinsic constants:

Constant Description

acDataErrDisplay (Default) Displays the default message to the user. You can use this when you don't want to allow the user to add a new value to the combo box list.

acDataErrContinue Doesn't display the default message to the user. You can use this when you want to display a custom message to the user. For example, the event procedure could display a custom dialog box asking if the user wanted to save the new entry. If the response is Yes, the event procedure would add the new entry to the list and set the Response argument to acDataErrAdded. If the response is No, the event procedure would set the Response argument to acDataErrContinue.

acDataErrAdded Doesn't display a message to the user but enables you to add the entry to the combo box list in the NotInList event procedure. After the entry is added, Microsoft Access updates the list by requerying the combo box. Microsoft Access then rechecks the string against the combo box list, and saves the value in the NewData argument in the field the combo box is bound to. If the string is not in the list, then Microsoft Access displays an error message.

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Scott McDaniel (Microsoft Access MVP - EE MVE )Infotrakker SoftwareCommented:
Is the Log form actually named "frm_Log", and is it open at the time? Your code would only work if those two conditions are True.

Also, are these combos on a SUBFORM?

FWIW, I use this syntax:

Forms("frm_Log").ComboStaffSignature.Requery

Either way will work, but as the Combo is part of the controls Collection, you really should refer to it with a Dot ( . ) instead of a Ban ( ! ).
0
Scott McDaniel (Microsoft Access MVP - EE MVE )Infotrakker SoftwareCommented:
I agree with Nelson regarding the NotInList, but it's quite common to open a form when this event is triggered ... often you don't simply add a single line of data to a new record, and you often need to allow the user to enter other data items.

0
schneider_ksAuthor Commented:
Thanks!  I moved the code to the unload event, and it's working.  Sorry, but I didn't understand the rest of your comments.
0
thenelsonCommented:
You're welcome.  Glad to help.

The usual place records are added to a combobox is in the combobox not in list event. It has features designed to simplify the process.

Happy Computing!

Nelson
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.