Why does code not work 1

[Saturn57]

I have the following code and it always gets stopped at the line "PrintWRNo = (PrintWRNo + 1)" can anyone tell me why?

Private Sub Command3_Click()
PrintWRNo = Me.StartJobNo

While (PrintWRNo <= Me.EndJobNo)
[Forms]![SpecificJobForm]![PrintJob] = PrintWRNo
DoCmd.OpenReport "WorkReleases Specific Job", acViewNormal
DoCmd.Close acReport, "WorkReleases Specific Job"
PrintWRNo = (PrintWRNo + 1)
Wend
End Sub

 

[jrbarnett]

What data type is PrintWRNo defined as?

My guess is it is declared as a text variable, and you can't increment a text variable with a number.

John

 

[Saturn57]

Do you mean
Dim PrintWRNo As String

 

[jrbarnett]

Yes - that's it.

If you change that line to

Dim PrintWRNo As Integer

and the first line to:

PrintWRNo = CInt (Me.StartJobNo)

then it should be fine.

John

 

[Saturn57]

This field is a combination of letters and numbers.
ex JD00798. Is there a way to increment this to JD00799, JD00800 etc...

 

[PHV]

What about something like this ?

PrintWRNo = Left(PrintWRNo, Len(PrintWRNo) - 5) & Format(1 + Right(PrintWRNo, 5), "00000")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886