'''Right here I have all items in "ListBoxWaferID" selected and I am creating a new record for every item
For Each varItm In Me.ListBoxWaferID.ItemsSel
ected
Me.tmpWaferID.value = Me.ListBoxWaferID.ItemData
(varItm)
varWaferID = Me.tmpWaferID
Set rstWaferTable = db.OpenRecordset("tblWafer
ID", dbOpenDynaset, dbAppendOnly)
With rstWaferTable
.AddNew
rstWaferTable![LotID] = varLotID
rstWaferTable![WaferID] = varWaferID
rstWaferTable.Update
rstWaferTable.Close
End With
'Right here I am putting the same "varWaferID" in a seperate table
Set rstLayerTable = db.OpenRecordset("tblWafer
IDToLayer"
, dbOpenDynaset, dbAppendOnly)
With rstLayerTable
.AddNew
rstLayerTable![WaferID] = varWaferID
rstLayerTable.Update
rstLayerTable.Close
End With
'Right here I would like to append data from "listBoxLayerInfo" to the "varWaferID" created in "tblWaferIDToLayer".
'There are about 6 columns in the listbox
'[Layer], [Field], [Address Size], [Mask Grade], and [Percent Clear]
''''''
''''''
''''''
''''''
Next
Start Free Trial