Button on form to print report for THAT record

[kbrooks]

Hi, I have a database set up that we will use to record patient information when our normal system is down. I have a form set up where they enter all the information. I then have a report set up that will ask them for the patient account # (assigned on the form) and will print a sheet of labels for that patient.

I'd like to put a button on the bottom of the form that they can click to generate and print the "Labels" report. I tried setting one up, but it still asks for patient account #, since that's how I have my query set up that my report pulls from.

Is there any way to make it run the report for the current record that is open on the form? I'm sure there is but heck if I know how!

Thanks for any help you can give me!

 

[Chris RR]

You need to change the query that your report is based on, so that instead of asking for the patient account, it looks at the account field on the form. (The criteria would look something like this: [Forms]![fMyForm]![txtPatient_Acct])

Now, when you test that query and/or report, you'll need to have the form open. It can be minimized, tho, to get it out of your way.

[This message has been edited by Chris RR (edited 10-16-2001).]

 

[Pat Hartman]

Remove the criteria from the query entirely. Then use the parameters available with the OpenReport method to pass a Where Clause to the query. Prior to running the OpenReport, you will need to save the current record so add the following line of code.

DoCmd.RunCommand acCmdSaveRecord

 

[kbrooks]

Thanks, guys. Chris, I tried your suggestion and I got a compile error when I tried to open my form.

Pat, I'd like to try your suggestions but I need a little more help. I'm not sure what you mean by the OpenReport method or how to word a Where Clause. Also where to add the code you gave me for saving the report. I'm learning as I go and the code stuff really confuses me.

Thanks!

 

[BukHix]

kbrooks the syntax looks something like this:

DoCmd.OpenReport "ReportName", acViewPreview, , _
"[FieldName] = '" & Criteria & "'"

Here is an example of that in code (cut and pasted from my app). There is a lot more going on here then just opening a report so if you need more explanation to what is going on inside the code just post back.

Dim strMsg As String, strTitle As String
Dim intStyle As Integer, cancel As Integer
Dim Answer As Variant
Dim strInput As String

strInput = InputBox("Enter job number", "Select Job")
If strInput = "" Then Exit Sub

If DCount("[JobNumber]", "TimeGR", "[JobNumber]= '" & strInput & "'") = 0 Then
strMsg = "Please try a different number"
strTitle = "Report Not Found"
intStyle = vbOKCancel + vbInformation
Answer = MsgBox(strMsg, intStyle, strTitle)
If Answer = vbCancel Then cancel = True
Exit Sub

End If

DoCmd.OpenReport "GRTimeSheet", acViewPreview, , _
"[JobNumber] = '" & strInput & "'"

 

[Pat Hartman]

The help entries for the OpenForm Method are very clear. You might try reading them. Add the line of code that saves the current record immediately before the - DoCmd.OpenReport ..... statement