Requery or refresh Report

[Perfac]

Changing any info on a form, does not reflect immediately on a report. When exiting the form and returning the changes will then display on the report. I did add DoCmd.Requery under open on the Report. Adding refresh results in a different error. Is there a way to get the report to display the changed data instantly?

[Gicu]

You need to save the form before opening the report so just add that before you open the report:

Me.Dirty=False 'saves the bound form's data
Docmd.OpenReport....

Cheers,

[Perfac]

Thank you. Did exactly what you suggested. Print button on Form, click event, VBA. Result is, report does not change even if I exit the Form and come back. Up to now the print Button Click event is connected by Macro like on the image, it works. All of my forms have a Save button. That never helped me to the required result. If the Macro can do it, please show me. If VBA will do it, please show me how the where condition must be. Eg Docmd.Openreport "r01Agents", acViewNormal "[AgtID]=[forms]![f01Agents]![AgtID]". I tried it like that but the filter doesn't work.
Attachment 48176

[Welshgasman]

Invalid attachment.?
If you have a Save button, is the form unbound?

[Perfac]

When I posted the first thread I saw the image afterwards and it was good. I will try again. My application has more than 200 forms. I don't think the save buttons have value. I do not know what you mean is the form unbound? This form is linked to a query. The Report is linked to the same query. The required result is when opening the report after changing any info on the form, the report must instantly display the changes made.

[Gicu]

I don't use macros but as I suggested you need to save the form before you open the report if you want to see the changes. So if you want to stick to macros instead of VBA what you shot in your screen shot in post #5 needs to be the second "action" of the macro, not the first; the first should be something like SaveRecord or similar then your OpenReport. If you change to VBA you can use my suggestion in post # 2 for the syntax to change the form and follow that up with Docmd.OpenReport:
https://docs.microsoft.com/en-us/off...cmd.openreport

Cheers,
Vlad

[Perfac]

Thank you. I tried everything you suggested, before you replied. No luck.

[Gicu]

Can you show us what you tried exactly?
Cheers,

[Perfac]

I added Saverecord as on the image to the Macro. The error message. "The command or action "Saverecord is not vailable now".

[Perfac]

Private Sub btn19PrintFrm_Click()
Me.Dirty = False
DoCmd.OpenReport "r01Agents", acViewPreview
End Sub

Thank you.
Just now I got the result I need with the above. Don't know what I did different previously. Maybe I added a comma.
I still need to add the "where" condition.
I just tested my thoughts how the "where condition' should be set up, but I fail. If you look at the way the Macro works? There are 9 agents in my Agents Table. I want to print the one that is open on the form only. Without the where condition it prints all 9.

[Welshgasman]

Use intellisense for the where argument location.
Concatenate the agent id in the clause.

[Perfac]

While the form is open the Agent ID field "AgtID" returns the number of the record which should be printed In my case it is one page with all the information of one Agent. The code above in the macro does it successfully. But now I am changing to VBA on that button. Do you know exactly what I must add to get the where condition right?
Eg. DoCmd.OpenReport "r01Agents", acViewPreview, =AgtID = forms!f01Agents!AgtID
Should I add Me.AgtId, I tried already?

[Perfac]

Private Sub btn19PrintFrm_Click()
Me.Dirty = False
DoCmd.OpenReport "r01Agents", acViewPreview, , "[AgtID]=forms!f01Agents!AgtID"
End Sub

Thank you. It work exactly correct like above.

[Welshgasman]

That should really be

DoCmd.OpenReport "r01Agents", acViewPreview, , "[AgtID]=" & Me.AgtID
if the code is in the form. Also what I meant by concatenation.
However I have learnt something new today as well?

[Gicu]

Glad to see you solved it... VBA good Macros b.. (a bit harder and trickier).

Cheers,