Retrieve new entry without closing/reopening Form

lxu · April 4th, 2004, 03:08 PM

There are a combo box and button âCreateâ on Form_1. Clicking on the button, the Form_2 which is used to create a new record is opened. After a new record is entered, the Form_2 is closed.

Problem: The new record just entered cannot be found in the combo box of Form_1. It will show there only after closing/reopening Form_1

How to make it without closing/reopening the form?

Thanks in advance,

LX

Steven · April 4th, 2004, 04:45 PM

Try refreshing or requerying the combo box when Form_2 is closed.

So you'll have something like this in Form_2:

Code:

Private Sub Form_Close()
cbxSomething.Requery
End Sub

I am a loud man with a very large hat. This means I am in charge

Steven · April 4th, 2004, 04:46 PM

Of course, you'll have to define what form cbxSomething is on, so you'll really have:

Code:

Private Sub Form_Close()
Form_Form_1.cbxSomething.Requery
End Sub

I am a loud man with a very large hat. This means I am in charge

lxu · April 5th, 2004, 11:39 AM

It works perfectly! Thanks.

Lx

mmcdonal · April 9th, 2004, 10:27 AM

I got around this problem another way. I have two forms that I switch back and forth between to enter new records. The buttons that I use to open the new form has this line before the code to open the new form:

DoCmd.Close

Then when the record is added in the second form, the button to go back does the same thing. This automatically requeries the opening form, of course.

This assumes you want to click a button each time. But I find it keeps the work area less cluttered having only one form open at a time.

mmcdonal

lxu · April 29th, 2004, 01:16 PM

After creating the new record in Form-2, close the form by clicking on button click. The key field of the new record is added in the combo box in Form-1. How to set the new one to be selected in combo box and display data of other fields in form-1 automatically?

I add the following codes in form-2
Private Sub newClsClose_Click()
     Forms![Form-1].Requery
     Forms![Form-1].[cbx].Requery 'combo box requery

     'Find the record that matches the control
     Dim rs As DAO.Recordset

     Set rs = Forms![Form-1].Recordset.Clone

     rs.FindFirst "[Class-Name] = '" & Me.Input_Name & "'"
     If Not rs.EOF Then Forms![Form-1].Bookmark = rs.Bookmark

     Forms![Form-1]![cbx].Value = Me!Input_Name

     DoCmd.Close
End Sub

It is failed to display the new record in Form-1 since I cannot find the new record in the RecordsetClone. There is anything wrong?

Thanks for any suggestion.

chrislx