Hello all,
I need some assistance please.
Here is the situation:
I have an RFQ form open. On that form is a button to add your name to a drop down list. The button pulls up an 'addinitiator' form for them to type in their name. When the are done typing in their name, they click on the ok button and the form closes and takes them back to the RFQ form. What I want it to do is immediatly after closing the addinitiator form, I want the drop down list in the other form to update. If my code on the ok button to close the addinitiator form is simply "docmd.close acform,'Addinitiator'", and in the RFQ form module I have a prodecure as follows:
Private Sub InitiatorUpdate()
Initiator.SetFocus
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acRefresh
End Sub
What do I add to the close command to make it run the Initiator update procedure?

Any help is greatly appreciated!

Regards,
Laura

The only thing standing between you and your goal is doubt. Quit doubting yourself and you'll be able to accomplish anything!

__________________
Regards,
Laura

The only thing standing between you and your goal is doubt. Quit doubting yourself and you'll be able to accomplish anything!

Hi,

   A very simple way to do this is to close the RFQ form when you open the AddInitiator form. Just add a line like this:

'=====
... ' your code

DoCmd.Close
DoCmd.OpenFrom, stDocName (AddInitiator Form) etc
'=====

Then make the close button on the AddInitiator form reopen the RFQ form, and the combo box will be synched.

There are other ways to do this (search Help for "synchronize forms") but I use this method to keep the user from getting too many forms open on the page. Just one form at a time is my rule.

HTH


mmcdonal

Thank you for your suggestion. Unfortunately, I cannot have it close the RFQ form because of the many required fields. If I close the form, the users will be very unhappy that they have lost their information.

Any other ideas?

Regards,
Laura

The only thing standing between you and your goal is doubt. Quit doubting yourself and you'll be able to accomplish anything!

Suppose the dropdown list in the RFQ form is called cboMyDropdown. Then when you close the addinitiator form, on that form's ON CLOSE event, put

Forms.[Name of RFQ Form Here].Form.cboMyDrowndown.Requery



Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Worked like a charm...Thank you so much!

Regards,
Laura

The only thing standing between you and your goal is doubt. Quit doubting yourself and you'll be able to accomplish anything!

“The only thing standing between you and your goal is doubt. Quit doubting yourself and you'll be able to accomplish anything!”

Frankly, I doubt it... It is unlikely that suspending my doubt would allow me suddenly to be elected to a high political office (as just one of myriad such examples). Just for what it’s worth...

But Brian, do you want to be elected to a high political office? If that's what you want, :D

BTW, another option to all of this would be to use the "NotInList" event. If someone enters a name not in the list, you could popup your addinitiator form (do it Modal so the form must be closed before they can do anything else). When the form is closed, set

Response = acDataErrAdded

Response is a parameter of the NotInList event. acDataErrAdded will automatically refresh the dropdown list.

And if all you are doing is adding a name to your initiator lookup table, you could even take that all a step further by simply adding the initiator without the user having to see a form. In the NotInList...

strSQL = "INSERT into [initiatortable] SET ([Initiator]) VALUES (""" & Me.cboMyDropDown & "")"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Response = acDateErrAdded

Note: this assumes Me.cboMyDropDown will never have a quote in it.

The one problem with this is that it doesn't slow people down enough to see if they made a typo. So, change that to...

strMsg = """" & Me.cboMyDropDown & """ is not a valid initiator." & vbcrlf & vbcrlf
strMsg = strMsg & "Do you wish to add it?"
if vbYes = MsgBox(strMsg, vbQuestion + vbYesNo, "Add Initiator") then
    ... the code above ...
else
    Response = acDateErrContinue
End If

Advantage: Don't need that damn addinitiator form anymore. Which means... one less thing to maintain.:D

Randall J Weers
Membership Vice President
Pacific NorthWest Access Developers Group
http://www.pnwadg.org