Ignore this thread - Found the problem
Don't worry - Found the problem
Hi, I'm having a bit of a problem with my database VB code.
I am trying to get a check box to shade out various fields when the check = true.
In the code builder when i fill in the command Me.CCIssue. or Me.CCName. the only item on the list is "Value".
It's probably something really simple that I'm missing.
My code:
Private Sub Paid_AfterUpdate()
Dim shaded As Long
Dim normal As Long
normal = -2147483643
shaded = 12632256
If Me.Paid = True Then
Me.CCNo = "Paid in full"
Me.CCNo.BackColor = shaded
Me.CCType.BackColor = shaded
Me.CCExp.BackColor = shaded
Me.CCIssue.BackColor = shaded
Me.CCName.BackColor = shaded
End If
If Me.Paid = False Then
Me.CCNo = ""
Me.CCNo.BackColor = normal
Me.CCType.BackColor = normal
Me.CCExp.BackColor = normal
Me.CCIssue.BackColor = normal
Me.CCName.BackColor = normal
End If
End Sub
Don't worry - Found the problem
Hi, I'm having a bit of a problem with my database VB code.
I am trying to get a check box to shade out various fields when the check = true.
In the code builder when i fill in the command Me.CCIssue. or Me.CCName. the only item on the list is "Value".
It's probably something really simple that I'm missing.
My code:
Private Sub Paid_AfterUpdate()
Dim shaded As Long
Dim normal As Long
normal = -2147483643
shaded = 12632256
If Me.Paid = True Then
Me.CCNo = "Paid in full"
Me.CCNo.BackColor = shaded
Me.CCType.BackColor = shaded
Me.CCExp.BackColor = shaded
Me.CCIssue.BackColor = shaded
Me.CCName.BackColor = shaded
End If
If Me.Paid = False Then
Me.CCNo = ""
Me.CCNo.BackColor = normal
Me.CCType.BackColor = normal
Me.CCExp.BackColor = normal
Me.CCIssue.BackColor = normal
Me.CCName.BackColor = normal
End If
End Sub
Last edited: