so as soon as i think i was finished with my database, im going through some final testing and i got an error with less than 24 hours to finish.
the error is on the highlighted line...HELP!!
the set warnings command works on every other form that i use it on but not here for some reason.
the error is on the highlighted line...HELP!!
the set warnings command works on every other form that i use it on but not here for some reason.
Code:
Private Sub Check_for_CD_Ops()
'On Error GoTo CD_Ops_Error
Dim strMsgStart As String, strMsgAnd As String, strMsgEnd As String, strFullMsg As String
Dim strIntlOps As String, intIntlOps As Integer
Dim strExem As String, intExem As Integer
Dim sqlE As String, sqlI As String
'give message values
strMsgStart = "Reminder:" & vbCrLf & "You have "
strMsgAnd = ", and "
strMsgEnd = " Coming Due!"
strFullMsg = strMsgStart
'Clear tables and run the queries
DoCmd.[COLOR=Red]SetWarnings[/COLOR] = False
sqlE = "Delete * from Exemptions_List_Coming_Due"
CurrentDb.Execute sqlE, dbFailOnError
DoCmd.SetWarnings True
DoCmd.RunMacro "Exemptions_Coming_Due"
DoCmd.SetWarnings False
sqlI = "delete * from International_Ops_Coming_Due"
CurrentDb.Execute sqlI, dbFailOnError
DoCmd.SetWarnings = True
DoCmd.RunMacro "Intl_Ops_Coming_Due"
'count Records coming due in each table
intExem = DCount("*", "Exemptions_List_Coming_Due")
strExem = intExem & " Exemption(s)"
intIntlOps = DCount("*", "International_Ops_Coming_Due")
strIntlOps = intIntlOps & " International Op(s)"
If intExem = 0 And intIntlOps = 0 Then
strFullMsg = "All Ops are up to date!"
Else
'add intl ops to message
If Not intIntlOps = 0 Then
strFullMsg = strFullMsg & strIntlOps
End If
'add exemptions to message
If Not intExem = 0 Then
strFullMsg = strFullMsg & strMsgAnd & strExem
End If
End If
'add end to message
strFullMsg = strFullMsg + strMsgEnd
'display final message
MsgBox strFullMsg, vbOKOnly, "Doccuments Needing Attention!"
'CD_Ops_Error:
End Sub