Update form after popup ?

[Lukael]

Hi,



I have main form, on which I have subfom. Subform gives me a list of names that I want to enter in record. To enter a new name I have command button to open another POPUP FORM.

I want that new saved name with all others from POPUP form, would appear in the Subfom, on the main form. And that would be without closing main form, only closing POPUP form.

Tried "Refresh" macro on Close, Open, Current, Before/After Update... And this code, everything unsuccessful :

Forms!YourFormNameHere.Requery

Please help me !

Regards, Luka

[RuralGuy]

Only a Requery will show new records. In your Command button, open the PopUp with the acDialog argument which will stop the code in the first form right there. Then do the Requeries you need after the OpenForm which will execute *after* the PopUp closes.

[Lukael]

Ok, guess like it's possible. Could you give me more specific instructions, I'm not quite good at programming. This is my code for command button on Click (Open isn't there):

Private Sub Ukaz81_Click()
On Error GoTo Err_Ukaz81_Click


Dim stDocName As String
Dim stLinkCriteria As String


stDocName = "NADZORNIK"
DoCmd.OpenForm stDocName, , , stLinkCriteria


Exit_Ukaz81_Click:
Exit Sub


Err_Ukaz81_Click:
MsgBox Err.Description
Resume Exit_Ukaz81_Click

End Sub

[RuralGuy]

Something like this:

Private Sub Ukaz81_Click()
   On Error GoTo Err_Ukaz81_Click
   Dim stDocName As String
   stDocName = "NADZORNIK"
   DoCmd.OpenForm stDocName, , , , , acDialog
   Me.Requery
   Me.SubFormControl.Form.Requery
Exit_Ukaz81_Click:
   Exit Sub
Err_Ukaz81_Click:
   MsgBox Err.Description
   Resume Exit_Ukaz81_Click
End Sub

...using your form names of course.

[Lukael]

Sorry, still don't know how to do It, I'm not a programmer, I told you.

Names of my Forms: - "VNOS_POGODBE" (main form)
- "NADZORNIK" (popup form)
- "VNOS_NADZORNIKA" (subform in the main form, where change must appear)


Where must I use my names, and which ones ?

[RuralGuy]

I'm going to guess that the SubFormControl is named the same as the SubForm it displays. Therefore, this should work:

Private Sub Ukaz81_Click()
   On Error GoTo Err_Ukaz81_Click
   Dim stDocName As String
   stDocName = "NADZORNIK"
   DoCmd.OpenForm stDocName, , , , , acDialog
   Me.Requery
   Me.VNOS_NADZORNIKA.Form.Requery
Exit_Ukaz81_Click:
   Exit Sub
Err_Ukaz81_Click:
   MsgBox Err.Description
   Resume Exit_Ukaz81_Click
End Sub

[Lukael]

I tried, but It didn't work. Names are matching, what else could go wrong ?

[RuralGuy]

No errors? Which form do you want to have updated?

[Lukael]

No errors. I want to have updated Subform (VNOS_NADZORNIKA) on the main form (VNOS_POGODBE). If I close main form and open again, It updates, otherwise not.

[RuralGuy]

Something else is going on because the code I gave you *will* work.

[ItsMe]

If it is the pop up form that is updating the recordset, perhaps you should run the requery from the pop up form.

Forms!VNOS_POGODBE!VNOS_POGODBE.Form.Requery

Is there any code in the pop up form? Maybe a command button to close the form?

[Lukael]

Pop-up form is updating It's own table, but data of that table must be sent to Subform table in order to link wih main table. Yes I have command button to close the form, I will try what you said. So this code with repeated name of form is correct ?

[Lukael]

If it is the pop up form that is updating the recordset, perhaps you should run the requery from the pop up form.

Forms!VNOS_POGODBE!VNOS_POGODBE.Form.Requery

Is there any code in the pop up form? Maybe a command button to close the form?

I get runtime error "2450", but the name of main form (VNOS_POGODBE) is correct. Is pop-up form not linked with It or is the double name in code wrong ? Name of the pop-up form is INVESTITOR. Or must I add your code between all previous code of RuralGuy ?

[RuralGuy]

Pop-up form is updating It's own table, but data of that table must be sent to Subform table in order to link wih main table. Yes I have command button to close the form, I will try what you said. So this code with repeated name of form is correct ?

Where is the "data from that table sent to the Subform"?

[ItsMe]

Sorry, I typed the subform name incorrectly.

Forms!VNOS_POGODBE!VNOS_NADZORNIKA.Form.Requery