Color a box (1 Viewer)

[nate0057]

Hi there,

I have little texttbox in the report named Mainreport. I have some requirements like "control plan"...

What I want is when a requirement is missing the little textbox is colored in red. I try this code:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

'GetRGB As Integer
If ([flagconp] = 1 And [Requirement] = "Control Plan") Or ([flagProcCert] = 1 And [redticket] = "Process Certifications") Or ([flagProcVal] = 1 And [redticket] = "Process Validation") Or ([flagSPCDt] = 1 And [redticket] = "SPC Data") Then
    Me.redticket.BackColor = RGB(237, 28, 36)
Else
   Me.redticket.BackColor = RGB(255, 255, 255)

If ([flagCheckingAids] = 1 And [redticket] = "Checking Aids") Or ([flagFirstArt] = 1 And [redticket] = "First Article") Or ([flagIniProcStudies] = 1 And [redticket] = "Initial Process Studies") Or ([flagInspecRes] = 1 And [redticket] = "Inspection Results") Or ([flagMatCert] = 1 And [redticket] = "Material Certifications") Or ([flagPreciCofC] = 1 And [redticket] = "Precipart C of C") Or ([flagQLabDoc] = 1 And [redticket] = "Qualified Laboratory Documentation") Or ([flagRecordDt] = 1 And [redticket] = "Record Data") Or ([flagSOSReq] = 1 And [redticket] = "Site or Other Specific Requirements") Or ([flagSupChainNot] = 1 And [redticket] = "Supply Chain Notification") Or ([flagCSA] = 1 And [redticket] = "CSA") Then
        Me.redticket.BackColor = RGB(237, 28, 36)
    Else
        Me.redticket.BackColor = RGB(255, 255, 255)

 If ([flagVQA] = 1 And [redticket] = "VQA") Or ([flagMSA] = 1 And [redticket] = "MSA") Then
            Me.redticket.BackColor = RGB(237, 28, 36)
        Else
            Me.redticket.BackColor = RGB(255, 255, 255)
        End If
    End If
End If
End Sub

Private Sub Detail_Paint()

'GetRGB As Integer
If ([flagconp] = 1 And [Requirement] = "Control Plan") Or ([flagProcCert] = 1 And [redticket] = "Process Certifications") Or ([flagProcVal] = 1 And [redticket] = "Process Validation") Or ([flagSPCDt] = 1 And [redticket] = "SPC Data") Then
    Me.redticket.BackColor = RGB(237, 28, 36)
Else
   Me.redticket.BackColor = RGB(255, 255, 255)

If ([flagCheckingAids] = 1 And [redticket] = "Checking Aids") Or ([flagFirstArt] = 1 And [redticket] = "First Article") Or ([flagIniProcStudies] = 1 And [redticket] = "Initial Process Studies") Or ([flagInspecRes] = 1 And [redticket] = "Inspection Results") Or ([flagMatCert] = 1 And [redticket] = "Material Certifications") Or ([flagPreciCofC] = 1 And [redticket] = "Precipart C of C") Or ([flagQLabDoc] = 1 And [redticket] = "Qualified Laboratory Documentation") Or ([flagRecordDt] = 1 And [redticket] = "Record Data") Or ([flagSOSReq] = 1 And [redticket] = "Site or Other Specific Requirements") Or ([flagSupChainNot] = 1 And [redticket] = "Supply Chain Notification") Or ([flagCSA] = 1 And [redticket] = "CSA") Then
        Me.redticket.BackColor = RGB(237, 28, 36)
    Else
        Me.redticket.BackColor = RGB(255, 255, 255)

 If ([flagVQA] = 1 And [redticket] = "VQA") Or ([flagMSA] = 1 And [redticket] = "MSA") Then
            Me.redticket.BackColor = RGB(237, 28, 36)
        Else
            Me.redticket.BackColor = RGB(255, 255, 255)
        End If
    End If
End If
End Sub


Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

'GetRGB As Integer
If ([flagconp] = 1 And [Requirement] = "Control Plan") Or ([flagProcCert] = 1 And [redticket] = "Process Certifications") Or ([flagProcVal] = 1 And [redticket] = "Process Validation") Or ([flagSPCDt] = 1 And [redticket] = "SPC Data") Then
    Me.redticket.BackColor = RGB(237, 28, 36)
Else
   Me.redticket.BackColor = RGB(255, 255, 255)

If ([flagCheckingAids] = 1 And [redticket] = "Checking Aids") Or ([flagFirstArt] = 1 And [redticket] = "First Article") Or ([flagIniProcStudies] = 1 And [redticket] = "Initial Process Studies") Or ([flagInspecRes] = 1 And [redticket] = "Inspection Results") Or ([flagMatCert] = 1 And [redticket] = "Material Certifications") Or ([flagPreciCofC] = 1 And [redticket] = "Precipart C of C") Or ([flagQLabDoc] = 1 And [redticket] = "Qualified Laboratory Documentation") Or ([flagRecordDt] = 1 And [redticket] = "Record Data") Or ([flagSOSReq] = 1 And [redticket] = "Site or Other Specific Requirements") Or ([flagSupChainNot] = 1 And [redticket] = "Supply Chain Notification") Or ([flagCSA] = 1 And [redticket] = "CSA") Then
        Me.redticket.BackColor = RGB(237, 28, 36)
    Else
        Me.redticket.BackColor = RGB(255, 255, 255)

 If ([flagVQA] = 1 And [redticket] = "VQA") Or ([flagMSA] = 1 And [redticket] = "MSA") Then
            Me.redticket.BackColor = RGB(237, 28, 36)
        Else
            Me.redticket.BackColor = RGB(255, 255, 255)
        End If
    End If
End If
End Sub

But I have a error which say:
"Run-time error '2465': Microsoft Access can't find the field 'l1' referred to in your expression"

Could somebody help me??

Thanks a lot!!

 

[nate0057]

Nobody can answer me??? PLEASE help me!!!

 

[jdraw]

Do you know on which line the error occurs? You refer to Me.redticket and redticket are these well defined to you?

Have you tried google for MsAccess 2465 and looked at some of the posts?

 

[nate0057]

The first one!! Yes I tried but I didn't found anything to help me!!