Filter and print the current record in the form in the report

Question

Hello,

I would like to insert a button in my form with which you can filter a report according to the current record in the form and print it directly. Below is my current code, but something seems to be wrong because he prints all records.

I hope someone has an idea, thanks Caro

Private Sub Befehl4982_Click()
Dim DocName As String
Dim strFltr As String
DocName = "Ber_Checkliste_Angebot"
strFltr = "[Angebotsnummer]=Forms![Checkliste Angebot]![Angebotsnummer]"
DoCmd.OpenReport DocName, acNormal, , strFltr
End Sub

Answer 1

Hi,

I see no real error in your syntax, although I would not write it like this. What data type does the field Angebotsnummer have?

Have you checked the value of the criteria, using a break point or with

Debug.Print Forms![Checkliste Angebot]![Angebotsnummer]

and then have a look at the result in the Immediate Window?

You could also try to formulate the filter differently. Maybe you'll get an error message because of data types or the like. Based on your object names, I assume you understand German. Then take a look at this syntax variant.

Servus Karl

Access Bug Trackers Access News Access DevCon

Answer 2

I think the problem is the line: strFltr = "[Angebotsnummer]=Forms![Checkliste Angebot]![Angebotsnummer]"

Depending on the type of the Angebotsnummer, try (numeric): strFltr = "[Angebotsnummer]=" & Forms![Checkliste Angebot]![Angebotsnummer] or strFltr = "[Angebotsnummer]='" & Forms![Checkliste Angebot]![Angebotsnummer] & "'"

Answer 3

One thing I'd add is that you ensure the current record is saved with:

Me.Dirty = False

before opening the report.

Answer 4

Thank you very much, it works now. I have replaced this line with the following wording:

DoCmd.OpenReport "Ber_Checkliste_Angebot", , , "Angebotsnummer = '" & Me!Angebotsnummer & "'"

I also added the line to save the record, thanks for the hint.

Thanks a lot, have a nice day.