Problem printing multiple records

[Guest]

Good Morning,

I'm hoping someone can help me with the following problem. I have 8 people
who work for me , all use an Access97 database to perform inspections and
report results.

One computer , (same brand and type exact- as all 7 others), when a "Print"
Button is invoked on one form , tries to print all the records in the
database (about 6700 of them). The same code on another form , when invoked
only prints a single record as designed. The same code runs both occurrences
of the print button in both places. The properties look exactly like the
ones on the other machines and there appears to be no difference between the
code on one machine and another. Everybody has the same front end / back end
in a split database and it appears as if the code invoked by the "Print"
button is exactly the same in all the machines, on both occurrences of the
print buttons. All computers are running MS Windows 2000 , Service PK 4.

I have no idea what is causing this. Has anyone else seen this ?

The code behind the print button is :

Private Sub cmdPrint_Click()
On Error GoTo Err_cmdPrint_Click

Dim stDocName As String
Dim strReportSelected As String

'since this form is for creating new records, I need to make
'sure the record has been written to the table before I try to
'print it
RunCommand acCmdSaveRecord

stDocName = "rptSingleAssessment"
strReportSelected = "intRecordNumber = " & Me!intRecordNumber
DoCmd.OpenReport stDocName, acNormal, , strReportSelected

Exit_cmdPrint_Click:
Exit Sub

Err_cmdPrint_Click:
MsgBox Err.Description
Resume Exit_cmdPrint_Click

End Sub

Thankx,
Michael Jordan
mjordan1@Nospam_bellsouth.com

to reply by email : remove the Nospam_

 

[George Nicholson]

Are all machines running the same level of Office/Access 97 Service packs?

 

[Albert D. Kallal]

Thus sounds like the expression service is broken.

To ensue a trouble free ms-access environment, you need for all machines to:

install sr1
install sr2b

And *most* important install the jet update *after* you done the above. The
update for jet is jet35sp3.exe

If you don't install the jet update, then expressions in ms-access97 can
break. So, make sure you got ser2b installed, and the jet update.