Print Current Record

[Guest]

I want to print the current record in the form, I am using the following code:
Private Sub cmdPrint_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[EmployeeID] = " & Me.[EmployeeID]
DoCmd.OpenReport "MyReport", acViewPreview, , strWhere
End If
End Sub

The report opens , but it is showing me all the records not just one. The
form I am using has 3 subforms on seperate Tabs, Is this causing my problem?

thanks

 

[UpRider]

Dan, first, after setting me.dirty to false, it is impossible for
me.newrecord to be true, so you don't need to check newrecord.
Second, the code looks good for the criteria.
However, try putting

debug.print strWhere

just before the docmd.openreport.
That will tell what you are actually passing as the report criteria.
The debug.print will appear in the immediate code window after you click the
cmdPrint.

UpRider

 

[Guest]

Thanks for the quick reply, but the report still prints all records, not just
the current
--
Dan

Dan, first, after setting me.dirty to false, it is impossible for
me.newrecord to be true, so you don't need to check newrecord.
Second, the code looks good for the criteria.
However, try putting

debug.print strWhere

just before the docmd.openreport.
That will tell what you are actually passing as the report criteria.
The debug.print will appear in the immediate code window after you click the
cmdPrint.

UpRider

I want to print the current record in the form, I am using the following
code:
Private Sub cmdPrint_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[EmployeeID] = " & Me.[EmployeeID]
DoCmd.OpenReport "MyReport", acViewPreview, , strWhere
End If
End Sub

The report opens , but it is showing me all the records not just one. The
form I am using has 3 subforms on seperate Tabs, Is this causing my
problem?

thanks

 

[Guest]

Interestly, if I change the report name to one of my other reports, it prints
just the current record, so could it be a flaw in my report?
--
Dan

Dan, first, after setting me.dirty to false, it is impossible for
me.newrecord to be true, so you don't need to check newrecord.
Second, the code looks good for the criteria.
However, try putting

debug.print strWhere

just before the docmd.openreport.
That will tell what you are actually passing as the report criteria.
The debug.print will appear in the immediate code window after you click the
cmdPrint.

UpRider

I want to print the current record in the form, I am using the following
code:
Private Sub cmdPrint_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[EmployeeID] = " & Me.[EmployeeID]
DoCmd.OpenReport "MyReport", acViewPreview, , strWhere
End If
End Sub

The report opens , but it is showing me all the records not just one. The
form I am using has 3 subforms on seperate Tabs, Is this causing my
problem?

thanks

 

[Guest]

my report has 1 field linked to a different table, the field is called
'budgetCode" in the tbl_department. I removed that field and now it prints
perfect. So I guess, the next question is How do I add that field back in as
it is required for the report. Do I need to create a query and base the
report on that, or can I add something to the cmdprint code?

thanks
--
Dan

Interestly, if I change the report name to one of my other reports, it prints
just the current record, so could it be a flaw in my report?
--
Dan

Dan, first, after setting me.dirty to false, it is impossible for
me.newrecord to be true, so you don't need to check newrecord.
Second, the code looks good for the criteria.
However, try putting

debug.print strWhere

just before the docmd.openreport.
That will tell what you are actually passing as the report criteria.
The debug.print will appear in the immediate code window after you click the
cmdPrint.

UpRider

I want to print the current record in the form, I am using the following
code:
Private Sub cmdPrint_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[EmployeeID] = " & Me.[EmployeeID]
DoCmd.OpenReport "MyReport", acViewPreview, , strWhere
End If
End Sub

The report opens , but it is showing me all the records not just one. The
form I am using has 3 subforms on seperate Tabs, Is this causing my
problem?

thanks

 

[Rick Brandt]

my report has 1 field linked to a different table, the field is called
'budgetCode" in the tbl_department. I removed that field and now it
prints perfect. So I guess, the next question is How do I add that
field back in as it is required for the report. Do I need to create
a query and base the report on that, or can I add something to the
cmdprint code?

You'll have to explain further. A report based on a table cannot have "1 field
linked to a different table".

If you used the wizard to create the report and selected fields from more than
one table then your report is already based on a query (the wizard built it for
you). That is perfectly okay and I can think of no reason why that would make
your criteria not work.

 

[Guest]

The report was built with a wizard with 1 field from a seperate table. After
the wizard was done I re arranges the layout. When I remove the 1 field from
the report everything works fine. I am thinking it has something to do with
the way the tables are joined in the query. The field on the report is not a
PK or a FK. The primary key from tbl_department is joined to tbl_employees.
The report is mainly based on tbl_employee.

 

[Rick Brandt]

The report was built with a wizard with 1 field from a seperate
table. After the wizard was done I re arranges the layout.

When I remove the 1 field from the report everything works fine. [snip]

Explain what you mean by this. Do you mean you are removing the extra table
from the query? Just removing the use of that field in your actual report
should make no difference at all.

Do the tables have a join between them in the query?

 

[Guest]

The query for the report has a join between tbl_department and tbl_employee,
the join is between DepartmentID pk in tbl_department and DepartmentID fk in
tbl_employee. If I remove this join and the field budgetcode from the
report. the print current record works fine. If I have the field budgetcode
in the report, then all records print, not just the current.
--
Dan

The report was built with a wizard with 1 field from a seperate
table. After the wizard was done I re arranges the layout.

When I remove the 1 field from the report everything works fine. [snip]

Explain what you mean by this. Do you mean you are removing the extra table
from the query? Just removing the use of that field in your actual report
should make no difference at all.

Do the tables have a join between them in the query?

 

[Guest]

amazingly, I have rebuilt the report with all the required fields and it
works fine. So I have no idea why the old report wouldn't work