How to run a report for only the current record

[benks]

Hi guys,



My database is set up as such:

Main Form, Sub Form1 (Priorities), Sub Form2 (Strats), Sub Form3 (Tasks)

They are linked as you would expect: Main Forum PK = Sub Form1 FK, Sub Form1 PK = Sub Form2 FK, Sub Form2 PK = Sub Form3FK

I have a report that runs values for Sub Form1, 2 and 3. Right now when I run the report, it runs for all records from the Main form. How do I set up a "Print Report" button to only print the report for the specific record that I am on in the Main form. For example, if I am currently on record 5 of the main form, all I would want to print is all priorities (and by extension strats and tasks) that related to record 5. If I were to move to record 7, I would only print priorities, strats and tasks that related to record 7, etc. I also need this to run via a button for ease of use to the end user.

Thanks for any help

[pbaldy]

As answered elsewhere:

One way, with the appropriate form reference:

http://www.baldyweb.com/wherecondition.htm

[benks]

Thanks for both response, haha.

I am new with VBA and having a bit of trouble getting the code right, if you don't mind helping me out it would be greatly appreciated. This is what I have entered thus far and I can't seem to get it to work. This would be a "on click" from a button.

DoCmd.OpenReport "HSIF data table", , , "ID Prime = " & Me.Text1088

HSIF data table - name of the report
ID Prime - text box in the report i want to screen by
Text1088 - control in my main form that contains the ID prime number I wish to screen by

Thanks

Edit: I have also tried both text and numeric (adding the '). The data is numeric, but it is going into a text box. Dunno if that could be causing my problem

[pbaldy]

Because of the inadvisable space, the field name needs brackets.

[benks]

So i tried adding brackets and it didn't work. I also renamed the fields all of the names to single words to avoid any issues with spaces but the code still won't work. It currently looks as such:

 DoCmd.OpenReport "HSIFdatatable", , , "IDPrime = " & Me.Text1088

Thanks in advance

[pbaldy]

Looks okay. Can you post the db here?

[benks]

Here it is. Command button is in the form HSIF Data Entry Form, report options tab. Report isn't formatted yet, but I doubt that is the issue.

Edit: I solved the issue, ended up adding AcViewPreview to the line code and it worked great. Thanks a ton for your help

[pbaldy]

Glad you sorted it out. Without that it should have been going straight to the default printer, but properly filtered.