Print Command Button

[cross5900]

I am having a minor headache with a situation, I have a command button that opens a view of the report that will be printed. The problem is if someone creates a new record and hits the button it comes up blank.

If I add me.requery before the DoCmd statement then it just restarts to the very first record and shows that in the report view =(

Any Ideas? Thanks Guys!!

Private Sub PrintForm_cmdbutton_Click()
On Error GoTo Err_PrintForm_cmdbutton_Click

    Stop
    DoCmd.OpenReport "Main_frm Report", acViewPreview, , "ID Like '*" & Me.ID & "'"
    
Exit_PrintForm_cmdbutton_Click:
    Exit Sub

Err_PrintForm_cmdbutton_Click:
    MsgBox Err.Description
    Resume Exit_PrintForm_cmdbutton_Click
    
End Sub

 

[RuralGuy]

Add If Me.Dirty Then Me.Dirty = False before you open the report. It saves the current record if needed.

 

[cross5900]

You rock! Thanks.

 

[ghudson]

Forcing a user to deal with a dirty record should be a requirement.

A Better Mouse Trap?

Enable/Disable The Control Box X Button