Unbound Form that can run one of two reports

[Jacqui3]

Hi,

I have an unbound form which the user selects a projectcode from and this currently runs a report.

I now need to change this form to run one of two different reports -
(1) I now need to identify in the project table the billingindicator for the projectcode selected, and then decide
(2) if the billingindicator is yes then run report A else run report B .

Any suggestions on how to do this?

 

[jebry]

Hi!

Make a button to run the required report and in the button's click event use the following code:

Dim bolBilling As Boolean

bolBilling = DLookUp("BillingIndicator", "ProjectTable",
"ProjectCode = '" & Me!cmbProjectCode & "'&quot

If bolBilling = True Then
Print the first report
Else
Print the other report
End If

All of the names of controls, fields and tables will need to be changed to match what is in your database.

hth
Jeff Bridgham
bridgham@purdue.edu

 

[Jacqui3]

Hi,

I tried what you gave me but I get the following error:
"The expression you entered as a query parameter produced this error: 'The object doesn't contain the Automation object 'BillingIndicator.'"

What does this mean???

Here is my code:

Private Sub txtPreviewWAreport_Click()
On Error GoTo Err_txtPreviewWAreport_Click

Dim stDocName As String
stDocName = "Work Authorisation Report"

Dim bolBilling As Boolean

bolBilling = DLookup("BillingIndicator", "Project", "ProjectCode = '" & Me!txtProjectCde & "'&quot

If bolBilling = True Then
DoCmd.OpenReport stDocName, acPreview
Else
Print the; other; Report
End If

Exit_txtPreviewWAreport_Click:
Exit Sub

Err_txtPreviewWAreport_Click:
MsgBox Err.Description
Resume Exit_txtPreviewWAreport_Click

End Sub

 

[rajeessh]

Check the spelling of column name .

 

[Jacqui3]

Thanx, it worked!