B
bigwillno2 via AccessMonster.com
Hello, i hope someone could help me with this.
i have a multiselect list and as i select and click on a send button, i send
the items to a new table. this is my code. the if statement will do the IF
it already exist dont send to history table(ProdHistory), but somehow its not
working properly. it seems like it's only sending OrderNo which could be many
and if it already exist by the first selection, it's gonna flag. it seems
like it's not doing, OrderNo AND ModelNumber.....it's there anything wrong
with my code bellow. i also dont want it do nothing, if it flags that the
OrderNo AND ModelNumber exists.
strSQL = "(OrderNo=" & Me.sched.ItemData(itm) & ")"
strSQL = strSQL & " AND (ModelNumber = '" & Me.sched.Column(3, itm) & "')
"
Set db = CurrentDb
Set rst = db.OpenRecordset("ProdHistory")
'run through all selected items
For Each itm In Me.sched.ItemsSelected
If DCount("*", "ProdHistory", strSQL) = 0 Then
rst.AddNew
rst.Fields("OrderNo") = Me.sched.ItemData(itm)
rst.Fields("RequiredDate") = Me.sched.Column(1, itm)
rst.Fields("CustomerID") = Me.sched.Column(2, itm)
rst.Fields("ModelNumber") = Me.sched.Column(3, itm)
rst.Fields("Description") = Me.sched.Column(4, itm)
rst.Fields("OrderQty") = Me.sched.Column(5, itm)
rst.Fields("Comment") = Me.sched.Column(6, itm)
rst.Fields("Bfill") = Me.sched.Column(7, itm)
rst.Fields("Qfill") = Me.sched.Column(8, itm)
rst.Fields("Uphfill") = Me.sched.Column(9, itm)
rst.Fields("Ptfill") = Me.sched.Column(10, itm)
rst.Fields("Spring") = Me.sched.Column(11, itm)
rst.Fields("Label") = Me.sched.Column(12, itm)
rst.Fields("Size") = Me.sched.Column(13, itm)
rst.Fields("Needle") = Me.sched.Column(14, itm)
rst.Fields("Pattern") = Me.sched.Column(15, itm)
rst.Fields("Config") = Me.sched.Column(16, itm)
rst.Fields("Border") = Me.sched.Column(17, itm)
rst.Fields("FoamCore") = Me.sched.Column(19, itm)
rst.Fields("FoamEnc") = Me.sched.Column(20, itm)
rst.Fields("ProtoTypeNum") = Me.sched.Column(22, itm)
rst.Fields("ModelRoot") = Me.sched.Column(23, itm)
rst.Fields("Color") = Me.txtColor
rst.Fields("Type") = Me.cmbType
rst.Fields("ProductionDate") = Me.Combo68
rst.update
strSel = "'" & Me.sched.ItemData(itm) & "',"
Else
MsgBox "This bed has been scheduled with this Order, do want to
continue", vbYesNo
Me.Combo68.SetFocus
End If
Next
i have a multiselect list and as i select and click on a send button, i send
the items to a new table. this is my code. the if statement will do the IF
it already exist dont send to history table(ProdHistory), but somehow its not
working properly. it seems like it's only sending OrderNo which could be many
and if it already exist by the first selection, it's gonna flag. it seems
like it's not doing, OrderNo AND ModelNumber.....it's there anything wrong
with my code bellow. i also dont want it do nothing, if it flags that the
OrderNo AND ModelNumber exists.
strSQL = "(OrderNo=" & Me.sched.ItemData(itm) & ")"
strSQL = strSQL & " AND (ModelNumber = '" & Me.sched.Column(3, itm) & "')
"
Set db = CurrentDb
Set rst = db.OpenRecordset("ProdHistory")
'run through all selected items
For Each itm In Me.sched.ItemsSelected
If DCount("*", "ProdHistory", strSQL) = 0 Then
rst.AddNew
rst.Fields("OrderNo") = Me.sched.ItemData(itm)
rst.Fields("RequiredDate") = Me.sched.Column(1, itm)
rst.Fields("CustomerID") = Me.sched.Column(2, itm)
rst.Fields("ModelNumber") = Me.sched.Column(3, itm)
rst.Fields("Description") = Me.sched.Column(4, itm)
rst.Fields("OrderQty") = Me.sched.Column(5, itm)
rst.Fields("Comment") = Me.sched.Column(6, itm)
rst.Fields("Bfill") = Me.sched.Column(7, itm)
rst.Fields("Qfill") = Me.sched.Column(8, itm)
rst.Fields("Uphfill") = Me.sched.Column(9, itm)
rst.Fields("Ptfill") = Me.sched.Column(10, itm)
rst.Fields("Spring") = Me.sched.Column(11, itm)
rst.Fields("Label") = Me.sched.Column(12, itm)
rst.Fields("Size") = Me.sched.Column(13, itm)
rst.Fields("Needle") = Me.sched.Column(14, itm)
rst.Fields("Pattern") = Me.sched.Column(15, itm)
rst.Fields("Config") = Me.sched.Column(16, itm)
rst.Fields("Border") = Me.sched.Column(17, itm)
rst.Fields("FoamCore") = Me.sched.Column(19, itm)
rst.Fields("FoamEnc") = Me.sched.Column(20, itm)
rst.Fields("ProtoTypeNum") = Me.sched.Column(22, itm)
rst.Fields("ModelRoot") = Me.sched.Column(23, itm)
rst.Fields("Color") = Me.txtColor
rst.Fields("Type") = Me.cmbType
rst.Fields("ProductionDate") = Me.Combo68
rst.update
strSel = "'" & Me.sched.ItemData(itm) & "',"
Else
MsgBox "This bed has been scheduled with this Order, do want to
continue", vbYesNo
Me.Combo68.SetFocus
End If
Next