Print Single Report from Form

H

Harry Taylor

Registered User.
Local time
Today, 10:53
Joined
Jul 10, 2012
Messages
90
Please Help,

I'm trying to print a Report specific to the record i'm viewing on my Form.

I've created a Report linked to the Table - "SCJobsheet"

I've created a button in my Form;
Name; cmdSCJobsheet
Caption: Print Record
OnClick: [Event Procudure]

Private Sub cmdSCJobsheet_Click()
Dim strReportName As String
Dim strCriteria As String
strReportName = "SCJobsheet"
strCriteria = "[ACCOUNT]='" & Me![ACCOUNT] & "'"
DoCmd.OpenReport strReportName, acViewPreview, strCriteria

The Report is opening but shows Every record (Not just the one I'm viewing in the Form.

Any ideas where I'm going wrong?
 
Is [Account] numeric or text? You are formatting it as text.
And it might be worth changing the form control name to txtAccount or similar as having the same name as the field in the table can cause issues.

Edit - and is ACCOUNT unique? If not you will get a report page for every record with that account number.
 
Hi Minty, thank for the reply.

Yes it is formatted as Number but I get the same result if I make it ;

strCriteria = "[ACCOUNT]=' & Me![ACCOUNT]

The ACCOUNT is unique

I am very new to VB and took a lot of the code below from Google.
What part of the code below is the form control?

Thanks again for your help.
 
You are nearly there;

strCriteria = "[ACCOUNT]= " & Me.ACCOUNT

Assuming me.ACCOUNT where ACCOUNT is the the name of the control on your form.
 
Hi Minty,

Unfortunately I'm getting the same result (all records are printing).

I'm stuck :(
 
To Clarify;

Origional Table (BE) - Heatmaster100
Form- Heatmaster
Report - SCJobsheet
The primary (number) Key field is - ACCOUNT

I have put a button on the form and want it to print the SCJobsheet Report for the record i'm viewing on the form.

The button code is;
Private Sub cmdSCJobsheet_Click()
Dim strReportName As String
Dim strCriteria As String
strReportName = "SCJobsheet"
strCriteria = "[ACCOUNT]=" & Me.ACCOUNT
DoCmd.OpenReport strReportName, acViewPreview, strCriteria
End Sub
 
Can you add the following into your code;

Code: 
strCriteria = "[ACCOUNT]=" & Me.ACCOUNT
[COLOR="Red"]Debug.Print strCriteria [/COLOR]
DoCmd.OpenReport strReportName, acViewPreview, strCriteria

Then save, leave the code window open and open the form and press the button. In the Immediate window for the code you will see what the result of me.ACCOUNT is.
 
Can you post the record source SQL for your report and your form?
 
When I go into the record source SQL it's blank.
(Although I'm not sure im going about it correctly).
 
In design view (of both the Form and report) open the properties and select the data tab, at the top make sure Form is selected and then you should see either a table name or a SELECT ... Statement. That is what we are after
 
Form SQL -
SELECT
FROM Heatersmaster100;

Report SQL -
SELECT
FROM Heatersmaster100;
 
That doesn't look correct - at the very least it should say
SELECT * FROM HeatersMaster100;

Would it be possible for you to post up a stripped down version of your database?

I'm sure there is something pretty basic going wrong here but can't see it, and could be here all day trying to fathom it via the forum.
 
You must log in or register to reply here.

Similar threads

D
Solved Open a report that filters off a form field
Replies
7
Views
657
dullster
D
C
Solved Passing form in OpenArgs
Replies
14
Views
559
ClaraBarton
C
A
FILTER PRINT REPORT
Replies
2
Views
262
arnelgp
arnelgp
S
Is there a way to have print/save options for filtered form without utilizing right click?
Replies
10
Views
650
Gasman
Gasman
K
Solved Pass Parameter from Form to Report
Replies
16
Views
886
arnelgp
arnelgp

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom