Argument not optional - LESS THAN 24 HOURS TO COMPLETE!!

AC-Dev

What say you, good sir?
Local time
Today, 17:13
Joined
Jun 20, 2011
Messages
81
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.

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
 
Get rid of the = sign before the False.
 
Get rid of the = sign before the False.

wow...i feel like an idiot lol

always helps to have a second pair of eyes. THANKS DJ!
 

Users who are viewing this thread

Back
Top Bottom