error message

[kingsgambit]

When i run this code, if the checkbox is not ticked it works. Either the Jobcard is complete and it shows the report or it goes to the control. But if you go to the control then tick it, then press yes for complete nothing happens can you help.

If Me.completed.Value = 0 Then


If MsgBox("Is this a Completed Job Card?", vbYesNo) = vbNo Then
DoCmd.GoToControl "completed"

Else
DoCmd.SetWarnings True


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim stDocName As String

stDocName = "jobcardinvoice2"
DoCmd.OpenReport stDocName, acPreview