Report Headache

[manfran]

Using Access 2003 on Windows XP SP2

I have a report based on a query. It's meant to display a complete order, which is based on two tables, “Proposals” and “Orders”. In the proposal table, I quote “Sold As” prices as follows: Purchase, Lease or Reprogram.

When the final order is placed, the price is one of the three. On the report, “Complete Order”, I'd like to have an unbound text field that displays the price based on the value of the “Sold As” field.

I assume it's some kind of Select Case or If, Then, Else… and DLookup combination, but I can figure out the code. Basically, I want the report to run something like:

If [Report Field] Sold As = Lease then [Report Unbound Field] Price should show [Proposal Table Field] Lease

If [Report Field] Sold As = Purchase then [Report Unbound Field] Price should show [Proposal Table Field] Purchase

Otherwise [Report Unbound Field] Price should show “N/A”

[Rabbit]

Do it through a query instead and bind the report to the query.

[ADezii]

Using Access 2003 on Windows XP SP2

I have a report based on a query. It's meant to display a complete order, which is based on two tables, “Proposals” and “Orders”. In the proposal table, I quote “Sold As” prices as follows: Purchase, Lease or Reprogram.

When the final order is placed, the price is one of the three. On the report, “Complete Order”, I'd like to have an unbound text field that displays the price based on the value of the “Sold As” field.

I assume it's some kind of Select Case or If, Then, Else… and DLookup combination, but I can figure out the code. Basically, I want the report to run something like:

If [Report Field] Sold As = Lease then [Report Unbound Field] Price should show [Proposal Table Field] Lease

If [Report Field] Sold As = Purchase then [Report Unbound Field] Price should show [Proposal Table Field] Purchase

Otherwise [Report Unbound Field] Price should show “N/A”

What you are requesting can typically be done in the Format() Event of the Detail Section:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Select Case Me![Sold As]
  Case "Purchase"
    Me![txtUnbound] = "some string"
  Case "Lease"
    Me![txtUnbound] = "some string"
  Case "Reprogram"
    Me![txtUnbound] = "some string"
  Case Else
    Me![txtUnbound] = "N/A"
End Select
End Sub