M
MartyMart
Good day all,
i'm getting an error mess. (Too Few Parameters. Expected 4.) each time I'm
trying to execute this code. If anyone knows how to fix it it will be great..
Private Sub PrintSN_Click()
On Error GoTo PrintSN_Click_Err
Dim rstTP As DAO.Recordset
Dim FILENAME As String
Dim FILE, SystFic
Dim RecNo, RecCnt As Integer
crlf = Chr(13) + Chr(10)
Crit_1 = "((Part_Number_ID) = " & PartID & ")"
Crit_2 = "((week_number) = " & WeekNo & ")"
Crit_3 = "((Year_number) = " & YearNo & ")"
Crit_4 = "((Seq_number) between Val(" & First & ") And Val(" & Last & "))"
sqlSelect = "SELECT Seq_number, Part_Number_ID, week_number,
Year_number"
sqlFrom = "FROM Bar_Code_Label_Part_number LEFT JOIN
Serial_Numbers_WW_YY_NNNN" & _
"ON Bar_Code_Label_Part_number.ID =
Serial_Numbers_WW_YY_NNNN.Part_number_ID"
sqlWhere ="WHERE(" & Crit_1 & " And " & Crit_2 & " And " & Crit_3 & "
And " &
Crit_4 & ")"
sqlOrder = "ORDER BY Seq_number;"
StrSQL = sqlSelect
If (IsNull(First) Or IsNull(Last)) Then _
MsgBox ("Please select the range of labels to print!"),
vbExclamation: GoTo PrintSN_Click_Exit
FILENAME = week_number & "" & _
Year_number & "" & _
Seq_number & "" & _
First & "_to_" & Last & ".txt"
Close #1
Open FILENAME For Output As #1
Set rstTP = CurrentDb().OpenRecordset(StrSQL)
RecCnt = rstTP.RecordCount <== Seems to
hang here..
While Not rstTP.EOF
With rstTP
Print #1, "PartID " & !Part_Number_ID & crlf & _
"Year " & !Year_number & crlf & _
"Week " & !week_number & crlf & _
"Seq " & !Seq_number
.MoveNext
End With
Wend
i'm getting an error mess. (Too Few Parameters. Expected 4.) each time I'm
trying to execute this code. If anyone knows how to fix it it will be great..
Private Sub PrintSN_Click()
On Error GoTo PrintSN_Click_Err
Dim rstTP As DAO.Recordset
Dim FILENAME As String
Dim FILE, SystFic
Dim RecNo, RecCnt As Integer
crlf = Chr(13) + Chr(10)
Crit_1 = "((Part_Number_ID) = " & PartID & ")"
Crit_2 = "((week_number) = " & WeekNo & ")"
Crit_3 = "((Year_number) = " & YearNo & ")"
Crit_4 = "((Seq_number) between Val(" & First & ") And Val(" & Last & "))"
sqlSelect = "SELECT Seq_number, Part_Number_ID, week_number,
Year_number"
sqlFrom = "FROM Bar_Code_Label_Part_number LEFT JOIN
Serial_Numbers_WW_YY_NNNN" & _
"ON Bar_Code_Label_Part_number.ID =
Serial_Numbers_WW_YY_NNNN.Part_number_ID"
sqlWhere ="WHERE(" & Crit_1 & " And " & Crit_2 & " And " & Crit_3 & "
And " &
Crit_4 & ")"
sqlOrder = "ORDER BY Seq_number;"
StrSQL = sqlSelect
If (IsNull(First) Or IsNull(Last)) Then _
MsgBox ("Please select the range of labels to print!"),
vbExclamation: GoTo PrintSN_Click_Exit
FILENAME = week_number & "" & _
Year_number & "" & _
Seq_number & "" & _
First & "_to_" & Last & ".txt"
Close #1
Open FILENAME For Output As #1
Set rstTP = CurrentDb().OpenRecordset(StrSQL)
RecCnt = rstTP.RecordCount <== Seems to
hang here..
While Not rstTP.EOF
With rstTP
Print #1, "PartID " & !Part_Number_ID & crlf & _
"Year " & !Year_number & crlf & _
"Week " & !week_number & crlf & _
"Seq " & !Seq_number
.MoveNext
End With
Wend