Closing a report function

H

Hanksor

Below is the code I'm trying to get to work on the close of a report. It
"hangs up" at the DBEngine line with a "To Few Parameters" error. Anyone see
where the problem is? Any help will be appreciated.

Private Sub Report_Close()
Dim strID As String
Dim strSql As String
strID = Me!CardHolderIDtxt
If MsgBox("Mark ALL records as printed?", vbYesNo) = vbYes Then
strSql = "UPDATE tblChargeVerification SET Submitted = True WHERE
Submitted = False AND CardHolderID = strID;"
DBEngine(0)(0).Execute strSql, dbFailOnError
End If


End Sub
 
H

Hanksor

Found it!!! I forgot to concantinate the strSQL line.

Should be;

strSql = "UPDATE tblChargeVerification SET Submitted = True WHERE Submitted
= False AND CardHolderID = '" & strID & "';"
 
Top