another report question

[bone head]

Hi

I had a problem the other day which Braddcccs kindly helped me with many thanks and i was left with the following code


Private Sub print_credit_Authorisation_Click()
On Error GoTo Err_print_credit_Authorisation_Click

Dim stDocName As String

stDocName = "credit authorisation"
DoCmd.OpenReport stDocName, acNormal, , "[Credit Approv] = 'Approved'"

Exit_print_credit_Authorisation_Click:
Exit Sub

Err_print_credit_Authorisation_Click:
MsgBox Err.Description
Resume Exit_print_credit_Authorisation_Click

I now need to refine this further and am stuck again i need to also show records where a field called Credit amount ( Currrency field) shows greater than 0

this is in addition to the origional code so i do not print out reports where no credit is required.

Can some kind soul out their help me, i am sure i will get my head round this stuff eventually, and be able to return the advice

Many thanks in anticipation

Bonehead ( by name and nature)

 

[Rob.Mills]

I would change your WHERE clause to ""[Credit Approv] = 'Approved' AND [Credit amount]>0"