Code: Select all
If ComboQCType = BAG Then
rsAddProducts("BAGID") = Chr(81) & Chr(67) & numQC
Else
rsAddProducts("BAGID") = Chr(81) & Chr(86) & numQC[/b]
End If
If ComboQCType is equal to BAG then I want it to enter QC1 etc to "BAGID" Field. This is working, but if I ComboQCType is equal to VIAL I want it to enter QV1 etc it enters QC1 etc not QV1. What did I do wrong?
Code: Select all
Option Compare Database
Dim dbs As DAO.Database ' variable for recordset
Dim rsDivisions As DAO.Recordset
Dim rsNewProducts As DAO.Recordset
Dim rsAddProducts As DAO.Recordset
Dim strSQL As String ' variable for string expressions
Dim strWSQL As String
Sub WriteDivisions()
Set dbs = CurrentDb
Set rsAddProducts = dbs.OpenRecordset("tblInventory") ' open the table
rsAddProducts.MoveLast
For numdiv = 1 To Form_frmAddDivisions.Division
rsAddProducts.AddNew
rsAddProducts("COLL#") = Form_frmAddDivisions.ProductID
If numdiv > 26 Then
rsAddProducts("BAGID") = Chr(numdiv - 26 + 64) & Chr(97)
Else
rsAddProducts("BAGID") = Chr(numdiv + 64) & "0"
End If
rsAddProducts("ProdCode") = Form_frmAddDivisions.ProdCode
rsAddProducts("VOLBAG") = Form_frmAddDivisions.Volume
rsAddProducts("BAGSFRZ") = Form_frmAddDivisions.Division
rsAddProducts("StorageUnitID") = Form_frmAddDivisions.Storage
rsAddProducts("SectionID") = Form_frmAddDivisions.SectionID
rsAddProducts("RackID") = Form_frmAddDivisions.Rack
rsAddProducts("StatusID") = Form_frmAddDivisions.Status
rsAddProducts.Update
Next numdiv
For numQC = 1 To Form_frmAddDivisions.QC
rsAddProducts.AddNew
rsAddProducts("COLL#") = Form_frmAddDivisions.ProductID
If ComboQCType = BAG Then
rsAddProducts("BAGID") = Chr(81) & Chr(67) & numQC
Else
rsAddProducts("BAGID") = Chr(81) & Chr(86) & numQC
End If
rsAddProducts("ProdCode") = Form_frmAddDivisions.ProdCode
rsAddProducts("VOLBAG") = Form_frmAddDivisions.QCVolume
rsAddProducts("BAGSFRZ") = Form_frmAddDivisions.QC
rsAddProducts("QCType") = Form_frmAddDivisions.ComboQCType
rsAddProducts("StorageUnitID") = Form_frmAddDivisions.QCStorage
rsAddProducts("SectionID") = Form_frmAddDivisions.QCSectionID
rsAddProducts("RackID") = Form_frmAddDivisions.QCRack
rsAddProducts("StatusID") = Form_frmAddDivisions.Status
rsAddProducts.Update
Next numQC
End Sub