The only thing I really did differently was add an option to have the user cancel the update query if the report doesn't print properly.
I guess I also added a msg box to show how many record were updated.
Thanks again for your example.
Private Sub Report_Close()
Dim stDocName As String
Dim stLinkCriteria As String
Dim Msg, Style, Title, response, MyString
Dim db As Database
Set db = CurrentDb
stDocName = "frmMain"
Msg = "Did the Grow Cards print OK and do you want to update the file that it has been printed?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "Cancel the Update Query" ' Define title.
response = MsgBox(Msg, Style, Title)
If response = vbYes Then ' User chose Yes.
db.Execute "qryCardUpdate", dbFailOnError
MsgBox db.RecordsAffected & " Records Updated"
DoCmd.OpenForm stDocName, , , , , , stLinkCriteria
Set db = Nothing