My error is this Line Argument not optional
Code: Select all
Dim strSQL As String
DoCmd.SetWarnings False
strSQL = "INSERT INTO tblReportList (userID) " & _
"VALUES (" & Me.byUserID & ", " & Me.rptlists.ItemsSelected & ")"
Call MsgBox("All Users Report Access to Selected Report(s) is Set to Allow.", vbExclamation, "Report Access")
DoCmd.SetWarnings True