Text Box Appearance Condition

[Mike555]

The Access 2000 database that I'm working on prints customer invoices. I'm trying to setup a report so that if the ClientID field in the Client table reads "ABC", then a dialog box will display on the report reading "unique payment plan (see notes)". If the ClientID field equals anything other than "ABC", then this dialog box should say "Charge Account". Below is the syntax that I have, but it does not work.


If Tables!Client.ClientID = "ABC" Then
Me.txtbox.FontWeight = 700
Me.txtbox.ForeColor = RGB(255, 0, 0)
Me.txtbox.Caption = "Unique Payment Plan (see notes)"
Else
Me.txtbox.FontWeight = 700
Me.txtbox.ForeColor = RGB(255, 0, 0)
Me.txtbox.Caption = "Charge Account"

End If


Appreciate any help.

Mike

 

[randysmid]

Hello,
Textboxes do not have a caption property. You will want to use the text property. HTH,
Randy Smith
California Teachers Association

 

[Mike555]

I've made that change, but still it will not work. Is my reference to the table correct, or do you see anything else?

Thanks.


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

If Tables!Groups.GroupID = "CST" Then
Me.txtbox.FontWeight = 700
Me.txtbox.ForeColor = RGB(255, 0, 0)
Me.txtbox.Text = "CD"
Else
Me.txtbox.FontWeight = 700
Me.txtbox.ForeColor = RGB(255, 0, 0)
Me.txtbox.Text = "Diskette"

End If

End Sub

 

[Mike555]

Sorry, I posted the wrong code. Here is the updated code:



If Tables!Client.ClientID = "ABC" Then
Me.txtbox.FontWeight = 700
Me.txtbox.ForeColor = RGB(255, 0, 0)
Me.txtbox.Text = "Unique Payment Plan (see notes)"
Else
Me.txtbox.FontWeight = 700
Me.txtbox.ForeColor = RGB(255, 0, 0)
Me.txtbox.Text = "Charge Account"

End If

 

[randysmid]

Actually,
You should not be referencing the table in your Detail print section. You can refer directly to the field on your report:
If ClientID = "ABC" Then....

You may want to look at my FAQ on how to change the format of a text box. faq703-2679

AND, I wrote an FAQ on how to change the colors in a form or a report.
faq702-2711

You will notice that I didn't have to reference Me.txtbox..... HTH,
Randy Smith
California Teachers Association