Why do I get an Error on the DoCmd.Close
Code:
Private Sub Score_Exit(Cancel As Integer)
UPDATESCOREPRINT = CardNumber2.Value
DoCmd.OpenReport "customerreceiptreprint", acViewNormal, , "[CardNumber2] = '" & UPDATESCOREPRINT & "'", , acHidden
DoCmd.OpenReport "receiptreprint", acViewNormal, , "[CardNumber2] = '" & UPDATESCOREPRINT & "'", , acHidden
Debug.Print UPDATESCOREPRINT
DoCmd.Close
DoCmd.OpenForm "EntryForm", acNormal, , , acFormAdd, acWindowNormal
End Sub