Compile Error

Douglas J. Steele · Sep 24, 2007

Yes, you should worry about it.

How large is your procedure? I was under the impression that a procedure had
a ludicrously large limit (something like 32K lines), which is far larger
than any procedure should ever be.

Now, I'm not sure whether it's complaining that your specific procedure is
too large, or if it's complaining that the module that holds your procedure
is too large.

If it is the procedure about which it's complaining, how large is it? Are
you trying to stuff all your code into a single routine, as opposed to
calling other functions or subs?

If it's the module about which it's complaining, is this the code associated
with a form or report, or is it a stand-along module? Can you move some of
the procedures to a different module?

Guest · Sep 24, 2007

IIRC, you're only allowed a 32kb proceedure. After that, you have to break it
up into another Sub.

DS · Sep 24, 2007

Whenever I compile my database I get a message saying that the
procedjure is too large.
Should I worry about this?What can I or should I do?
How big of a procedjure am I limited to?
Thanks
DS

Douglas J. Steele · Sep 25, 2007

Sorry, but I have no intention of wading through that code!

What's the exact error message?

One thing I did notice is that you've got colons after all the Else
statements: try removing them.

DS · Sep 25, 2007

Thanks Doug, It's complaining about the procedjure...
This is the procedjure.
It has a Select Case for the Group that the report is in
Then it has a Select Case for the report itself...
I need each report sinled out because each one has a different security
code. You need this code assigned to your user number to access the report.

Here is the procedjure. It's big!!!!
Thanks
DS

Private Sub ImagePreview_Click()
On Error GoTo Err_ImagePreview_Click
If IsNull(Me.TxtReportID) Or _
Me.TxtReportID = 0 Or _
Me.TxtReportID = "" Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "SELECT REPORT"
Else:
Me.TxtJobID = Nz(DLookup("[LogJobID]", "[tblTimeLog]",
"LogEmployeeID=" & Me.TxtManID & "And IsNull(LogTimeOut)"), 0)
Select Case Forms!frmReportDates!TxtGroupID
'None DONE
Case 0
Select Case Forms!frmReportDates!TxtReportID
Case 34
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
145"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************
DoCmd.OpenReport "rptFXCustomersInActive",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 35
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
148"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXDepartments",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 36
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
158"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport
"rptFXEmployeeActiveContact", acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 37
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
157"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport
"rptFXEmployeeInActiveContact", acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 38
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
159"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXEndOfDay", acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 39
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
166"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXHouseActive",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 40
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
169"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXHouseInActive",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 41
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
142"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXChartOfAccounts",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 43
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
143"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else: Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXCustomersActive",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 44
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
156"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXIDNumbers",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 45
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
180"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXPayApplied",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 47
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
182"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXReportActivity",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 48
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
187"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesByCategory",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 49
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
188"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesbyCheck",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 50
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
189"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesByCheckType",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 51
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
190"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesByDate",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 52
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
205"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXTheft", acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 53
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
192"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesByHalfHour",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 54
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
193"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesByHour",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 55
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
194"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesByItem",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 56
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
195"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesByMenu",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 57
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
196"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesByQty",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 58
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
199"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesByTable",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 59
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
200"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesByTerminal",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 60
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
146"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSLSReport",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 61
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
204"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXTablesTurns",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 62
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
185"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXTabs", acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 63
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
184"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXTerminal", acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 66
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
197"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXSalesBySalesGroup",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 67
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
174"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXMenuInfo", acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 68
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
175"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXMenuItems",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 69
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
176"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXMenuSetup",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 74
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
161"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXEventByDate",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 75
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
163"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXEventByStatus",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 76
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
162"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXEventStats",
acViewPreview
Forms!frmReportDates.Visible = False
End If
Case 79
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
235"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
Me.TxtAction = 1
Me.TxtActID = Nz(DMax("RptActivityID",
"tblReportActivity"), 0) + 1
CurrentDb.Execute "INSERT INTO
tblReportActivity (RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" & Forms!frmReportDates!TxtActID &
", " & _
"" & Forms!frmReportDates!TxtReportID & ","
& Forms!frmReportDates!TxtManID & ")"

'PRORED ****************************
If Len(REDACT()) > 0 Then
CurrentDb.Execute "INSERT INTO
tblReportActivity IN '" & REDACT() & "' " & _

"(RptActivityID,RptActivityReportID,RptActivityManID) " & _
"Values(" &
Forms!frmReportDates!TxtActID & ", " & _
"" & Forms!frmReportDates!TxtReportID &
"," & Forms!frmReportDates!TxtManID & ")"
Else
End If
'***********************************

DoCmd.OpenReport "rptFXOpenClose",
acViewPreview
Forms!frmReportDates.Visible = False
End If
End Select
'Best
Case 1
Select Case Forms!frmReportDates!TxtReportID
Case 42
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
144"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportBestSelect"
Forms!frmReportBestSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
End Select
'Customer DONE
Case 2
Select Case Forms!frmReportDates!TxtReportID
Case 46
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
181"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportCustomerSelect"
Forms!frmReportCustomerSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 73
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
160"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportCustomerSelect"
Forms!frmReportCustomerSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 78
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
203"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportCustomerSelect"
Forms!frmReportCustomerSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
End Select
'Day DONE
Case 3
Select Case Forms!frmReportDates!TxtReportID
Case 64
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
191"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportDaySelect"
Forms!frmReportDaySelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
End Select
'Discount DONE
Case 4
Select Case Forms!frmReportDates!TxtReportID
Case 28
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
150"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportDiscountSelect"
Forms!frmReportDiscountSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
End Select
'Doc DONE
Case 5
Select Case Forms!frmReportDates!TxtReportID
Case 72
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
172"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportDocSelect"
Forms!frmReportDocSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
End Select
'Employee DONE
Case 6
Select Case Forms!frmReportDates!TxtReportID
Case 1
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
141"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 2
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
149"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 3
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
152"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 5
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
155"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 6
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
154"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 7
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
164"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 8
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
165"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 9
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
173"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 10
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
177"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 11
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
178"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 12
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
179"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 13
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
151"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 14
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
198"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 15
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
116"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 16
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
201"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 17
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
206"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 18
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
207"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 19
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
210"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 20
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
209"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 21
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
208"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 22
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
211"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 23
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
212"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 24
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
213"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 25
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
214"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 26
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
202"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 70
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
186"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 77
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
153"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportEmployeeSelect"
Forms!frmReportEmployeeSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
End Select
'House DONE
Case 7
Select Case Forms!frmReportDates!TxtReportID
Case 30
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
167"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportHouseSelect"
Forms!frmReportHouseSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 31
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
171"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportHouseSelect"
Forms!frmReportHouseSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
Case 32
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
168"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportHouseSelect"
Forms!frmReportHouseSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
End Select
'Payment DONE
Case 8
Select Case Forms!frmReportDates!TxtReportID
Case 71
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
170"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportPaymentSelect"
Forms!frmReportPaymentSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
End Select
'Reproduce DONE
Case 9
Select Case Forms!frmReportDates!TxtReportID
Case 65
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
183"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmFXReproduce"
Forms!frmFXReproduce!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
End Select
'Street DONE
Case 10
Select Case Forms!frmReportDates!TxtReportID
Case 33
Me.TxtSecure =
Nz(DLookup("[JobNameSecurityID]", "tblJobNames", "JobNameID = " &
Me.TxtJobID & ""), 0)
Me.TxtPriv = Nz(DLookup("[SDPrivID]",
"tblSecurityDetails", "SecurityID = " & Me.TxtSecure & " And SDPrivID =
147"), 0)
If Me.TxtPriv = 0 Then
DoCmd.OpenForm "frmMsgWarning"
Forms!frmMsgWarning!TxtMsg = "RESTRICTED"
Else:
DoCmd.OpenForm "frmReportStreetSelect"
Forms!frmReportStreetSelect!TxtAction = 2
Forms!frmReportDates.Visible = False
End If
End Select
End Select
End If
Exit_ImagePreview_Click:
Exit Sub
Err_ImagePreview_Click:
If Err = 2501 Then Err.Clear
Resume Exit_ImagePreview_Click
End Sub

DS · Sep 25, 2007

Don't be sorry, I don't wanna go through it!
Anyways I removed the colons and I removed the INSERT statements and
placed them on the OnFormat propery of the report.
Thanks
DS

Compile Error

Douglas J. Steele

Guest

DS

Douglas J. Steele

DS

DS