Single report for one record

[Ryanm0085]

Hello. I have a very basic database that has pretty much everything i need in one table, which is entered by filling out a form. It is actually a call run report for my fire department. The issue i have now i i have about 3000 records compiled on one table and i need to print single incidents. When i try to print reports, it wants to print everything. I have searched high and low online and have found plenty of coding online, but nothing seems to work. My primary key is Case Number, which is a text input because of the format we required. The Form is Fire Call. The report i need it to print is Fire Report. If anyone can help, i would greatly appreciate it.

[orange]

but nothing seems to work

please show us what you have tried.

If you build a query to select only 1 record, and use that as the record source of the report, I think it should work.

[Ryanm0085]

This was code i found online,

Private Sub cmdPrint_Click()
'Print current record
'using rptFire_Report.
If IsNull(Me!Case_Number) Then
MsgBox "Please select a valid record", _
vbOKOnly, "Error"
Exit Sub
End If
DoCmd.OpenReport "rptFire_Report", , , _
"Case_Number = " & Me!Case_Number
End Sub

[davegri]

but nothing seems to work

Do you get an error? What is it?
Can you show us a typical Case_Number?

Meanwhile, maybe

DoCmd.OpenReport "rptFire_Report", , , _
"Case_Number = " & [Case_Number]

[Ryanm0085]

i put the button on the form page where the site told me to. When i push the button, absolutely nothing happens.

The case numbers are the Primary Key, but I had to use text because of the format. Our case numbers would look like this: 18-001

[davegri]

So the case_number is alphanumeric since it contains a non-numeric character.
That fact has to be indicated to the criteria like this:

DoCmd.OpenReport "rptFire_Report", , , _
"Case_Number = '" & [Case_Number] & "'"

Also, you need to be sure the button's event procedure points to the actual CmdPrint_Click code.

Another tip:
The code you are using will send the report directly to the Windows default printer.
If you wish to see the report on the monitor first, use this:

DoCmd.OpenReport "rptFire_Report", acViewPrintPreview, , _
"Case_Number = '" & [Case_Number] & "'"

[Ryanm0085]

So i put in the data box of the button =[CmdPrint_Click]

The error i get now is:The expression On Click you entered as the event property setting produced the following error: The object doesnt contain the automation object 'cmdPrint_Click.'.

[Ryanm0085]

This is the current code i am using:

Private Sub cmdPrint_Click()
'Print current record
'using rptFire_Report.
If IsNull(Me!Case_Number) Then
MsgBox "Please select a valid record", _
vbOKOnly, "Error"
Exit Sub
End If
DoCmd.OpenReport "rptFire_Report", acViewPrintPreview, , _
"Case_Number = '" & [Case_Number] & "'"
End Sub

[davegri]

Here's how to name the button and attach the code to it.
This is the form in design view


Also the form design view



And this is the code window (VB Editor). Click on the 3 dots beside "Event Procedure" above to see this


Now go back to the form and right click on it and select FORM VIEW
Click on Print Report and you should see the report showing only the current Case_Number on the form.

[Ryanm0085]

I have that all. Unfortunately it still doesnt seem to work. Very frustrating

[davegri]

Unfortunately it still doesnt seem to work.

Can you post your DB for analysis?

[Ryanm0085]

I have attached the database. unfortunately i had to delete all the information. But basically the forms are used to fill out the tables. Nothing fancy. I am working on a report design that i would like to be able to print for single entries.

Fire House - Copy.zipFire House - Copy.zip

[davegri]

Your design of including all the members in each table is not the way to go.
See the attached. I've set up the Drills as a many-to-many situation between members and drills. Requires adding a junction table, tblDrillMember.
I've made a new form for Drills that has 2 side-by-side listboxes that allow you to see available members in the left listbox and attending members in the right listbox.
You can move the members between them to show who attended the drill.

You can replicate this for the other actions, extra credit, fires, etc.

FireHouse-davetgri-v01.zip

I am working on a report design that i would like to be able to print for single entries.

What does this mean, a single member, or a single event like a drill?