Conditional formating in a report

[msmithtlh]

I have 2 very similar reports. One is initiated off of an update form, the other is initiated off of an add form.


In both cases, I have similar data.
I have the following code on the report which comes from the update screen, which is working as I want to format the IDText field:
Private Sub Report_Load()
If Me!IDType = "FEIN" Then
Report!IDText.InputMask = "##-#######"
End If

If Me!IDType = "SSN" Then
Report!IDText.InputMask = "###-##-####"
End If

If Me!IDType = "CERT" Then
Report!IDText.InputMask = "##-##########-#"
End If
If Me!IDType = "BP" Then
Report!IDText.InputMask = "##########"
End If
End Sub

When I put the same code on the report which comes from the add screen, I get a runtime error 438 "Object doesn't support this property or method."

I don't understand why it would work on the report from the update screen, but not on the report from the add screen. The button from the update screen runs a query to get the data, then opens a report. The button from the add screen first saves the record, then runs a query to get the data, then opens a report. Very, very similar. I'm stumped. Appreciate your help!!

[redbull]

Try this

If Forms!formname.IDType = "FEIN" Then
Report!IDText.InputMask = "##-#######"
End If

If Forms!formname.IDType = "SSN" Then
Report!IDText.InputMask = "###-##-####"
End If

If Forms!formname.IDType = "CERT" Then
Report!IDText.InputMask = "##-##########-#"
End If

If Forms!formname.IDType = "BP" Then
Report!IDText.InputMask = "##########"
End If
End Sub

Of course swap out formname, for the actual Form name.

[msmithtlh]

New error now: 2465 "Application-defined or object-defined error

[msmithtlh]

Please note, the IDtype field is on a subform. I don't know how the syntax would be for that.

Form name - Addworklog
Subform name - Record Requests - addtl data

[redbull]

Anyway to post the DB here without the sensitive info? I'd like to take a crack at it.

[msmithtlh]

I tried, but the files exceed the size limit.

I think the problem with your original suggestion is that the value needed is on the subform (I don't know how to write the expression for a field on a subform).

Going back to my original situation, the data is the same, just coming in one case from a new record that has just been saved vs coming from a record retrieved in edit mode. Why would the report object (based on the same field in both cases) support the inputmask property in one case and not the other? Error: "Object doesn't support this property or method."

[June7]

Did you run Compact & Repair on the db? Remove records? Zip the file? - up to 2mb zip allowed

Reference to field on subform when code is on main form:
Me.subformcontainername!fieldname

Reference to control on subform when code is on main form:
Me.subformcontainername.Form.controlname

I always give subform/subreport container control name different from the object held.

Is this code behind subform? IDType is field and IDText is textbox and both are on subform?

If Me!IDType = "BP" Then
Me.IDText.InputMask = "##########"
End If

Does report display multiple records? Does it show only one or all IDType? Setting property of control will not work if mixing IDType records.

This conditional code could be done in query or textbox ControlSource. It will be a lengthy expression (or could be a custom function) to format the data, not set a textbox property.

IDTextForm: Format([IDText], Switch([IDType]="FEIN", "##-#######", [IDType]="SSN", "###-##-####", [IDType]="CERT", "##-##########-#", [IDType]="BP", "##########"))

[msmithtlh]

client.zipDatabase attached (client & data). All data is test data at this point. Thanks!!!

[June7]

Want to respond to questions in my previous post? Have you considered the information I provided?

[msmithtlh]

I don't understand the following: "I always give subform/subreport container control name different from the object held." So, I didn't do anything with that.

The report only displays one record. It is a page that is printed as a "routing slip" to accompany a work assignment.

Concerning the code you gave at the end, I'm not sure where you are suggesting I put it. Could it be put in an event?
Thanks again.

[June7]

A subform/subreport is created by placing a subform/subreport container control on another form/report. The container holds an object (SourceObject property). The object can be a table, query, form, report. I always name the container different from the object it holds. Example:

Report is named OrderDetails so I name the container ctrDetails.

The code could be in a query to create field with expression or it could be expression in a textbox ControlSource.

[msmithtlh]

OK. I have a subform called "Record Requests - addtl data" on the form "AddWorkLog," but the report doesn't have a subreport. However, the field that is causing the issue - idtext - does originate on the subform.

Just for clarification, a new record gets created on the "addworklog" form, with a category of "record requests." The data in both the form (at top) and the subform (on the bottom gets filled in - through the ID fields. Then the button for "routing slip" is pushed, which runs the macro "MacroRouting Slip New" which (1) saves the record, (2) runs the query "routing slip query new" and then opens the report "Routing slip for new"

A similar process is done with the update process - form: "Update Record Requests," macro: "MacroRoutingSlip Update," query "Routing Slip Query Update," report: "Routing Slip for update." In this process, I have a formatting attached to the load event of the report and

[msmithtlh]

I found my problem - it was a slight naming discrepancy between the 2 forms, my code worked fine once I fixed the field names. Thanks!!!