Brand               Part              Description             Free              Serial     INOUT
PANASONIC    PAN-CADC300N    PANASONIC IPOD CABLE        9        
PANASONIC    PAN-CALRM10X    REMOTE CONTROL SENSOR        45        
PANASONIC    PAN-CNDV2300N    PANASONIC SAT NAV        5               *1002492*    IN
PANASONIC    PAN-CNDV2300N    PANASONIC SAT NAV        5               *1002508*    IN

WHILE (!EOF[Qry_Brand_Serial_Numbers]){
   IF (!Serial){                                      //All Non Serial Labels
      FOR (j=0;j<Free;j++){
         INSERT_INTO_NEW_TABLE()
     }
   ELSE{
      INSERT_INTO_NEW_TABLE()                         //Serial Labels
   }

Private Sub MultipleLabelGen()

Dim db As Database
Dim rst As Recordset
Dim qdf As QueryDef

Dim strResult As String
Dim strSQL As String
Dim qBrand As String
Dim IsSerial As String
Dim freestock As Integer

freestock = 0
qBrand = [Forms]![Label_Printing_Screen]![Text0]

'qdf = CurrentDb.OpenQueryDef(Label_Printing_Serials)
Set qdf = CurrentDb.QueryDefs("Label_Printing_Serials")

'Now we'll assign values to the query using the parameters option:
qdf.Parameters(0) = qBrand
'strSQL = "SELECT * from Label_Printing_Serials"


'Now we'll convert the querydef to a recordset and run it
Set rst = qdf.OpenRecordset
i = 0
'Run some code on the recordset
Do While Not rst.EOF
i = i + 1
freestock = rst.Fields("free").Value
IsSerial = rst.Fields("Serial").Value
If (freestock > 0) Then
   If (Len(IsSerial) > 0) Then
      MsgBox (freestock & "|" & IsSerial)
      'write2TempTable()
      'not written yet
   End If
End If
rst.MoveNext
Loop

'Close all objects
rst.Close
qdf.Close
Set rst = Nothing
Set qdf = Nothing

Private Sub MultipleLabelGen()

Dim db As Database
Dim rst As Recordset
Dim rstTemp As Recordset
Dim qdf As QueryDef
Dim qdfTemp As QueryDef

Dim strResult As String
Dim strSQL As String
Dim qBrand As String
Dim IsSerial As String
Dim Brand As String
Dim Desc As String
Dim FreeCounter As Integer

CurrentDb.Execute "Delete * From TEMP_LABELS"
Set rstTemp = CurrentDb.OpenRecordset("TEMP_LABELS")

Freestock = 0
qBrand = [Forms]![Label_Printing_Screen]![Text0]

'qdf = CurrentDb.OpenQueryDef(Label_Printing_Serials)
Set qdf = CurrentDb.QueryDefs("Label_Printing_Serials")

'Now we'll assign values to the query using the parameters option:
qdf.Parameters(0) = qBrand

'Now we'll convert the querydef to a recordset and run it
Set rst = qdf.OpenRecordset

'Run some code on the recordset
Do While Not rst.EOF
    Freestock = 0
    FreeCounter = rst.Fields("free").Value
    
    If (rst.Fields("SerialMessage").Value = "NO SERIAL") Then
          Do
            rstTemp.AddNew
                rstTemp!Brand = rst.Fields("Brand").Value
                rstTemp!Part = rst.Fields("Part").Value
                rstTemp!Description = rst.Fields("Description").Value
                rstTemp!Barcode = rst.Fields("Barcode").Value
                rstTemp!Free = rst.Fields("free").Value
                rstTemp!Actual = rst.Fields("Actual").Value
                rstTemp!SerialMessage = rst.Fields("SerialMessage").Value
                rstTemp!INOUT = rst.Fields("INOUT").Value
            rstTemp.Update
            FreeCounter = FreeCounter - 1
            'MsgBox FreeCounter
           Loop While FreeCounter > 1
    End If
    
    If (Len(rst.Fields("SerialMessage").Value) > 0) Then
            rstTemp.AddNew
                rstTemp!Brand = rst.Fields("Brand").Value
                rstTemp!Part = rst.Fields("Part").Value
                rstTemp!Description = rst.Fields("Description").Value
                rstTemp!Barcode = rst.Fields("Barcode").Value
                rstTemp!Free = rst.Fields("free").Value
                rstTemp!Actual = rst.Fields("Actual").Value
                rstTemp!Serial = rst.Fields("Serial").Value
                rstTemp!SerialMessage = rst.Fields("SerialMessage").Value
                rstTemp!INOUT = rst.Fields("INOUT").Value
            rstTemp.Update
            FreeCounter = FreeCounter - 1
            'MsgBox FreeCounter
    End If
    
    rst.MoveNext
Loop

'Close all objects
rst.Close
qdf.Close
Set rst = Nothing
Set qdf = Nothing

rstTemp.Close
Set rstTemp = Nothing