Private Sub Form_AfterUpdate()
Dim RS As DAO.Recordset
Dim varitem As Variant
Set RS = CurrentDb.OpenRecordset("tblSelectedLoadIDs")
If DCount("[DASContractNumber]", "tblSelectedLoadIDs", "[DASContractNumber] = " & Forms!frmBillOfLadingSelector!txtDASContractNumber) > 0 Then
With RS
For Each varitem In listLoadIDs.ItemsSelected
RS.Edit
RS!SelectedLoadID = Me.listLoadIDs.Column(2)
RS!DASContractNumber = Me.txtDASContractNumber
RS.Update
Else
With RS
For Each varitem In listLoadIDs.ItemsSelected
RS.AddNew
RS!DASContractNumber = Me.txtDASContractNumber
RS!SelectedLoadID = Me.listLoadIDs.Column(2)
RS.Update
End With
End If
RS.Close
Set RS = Nothing
End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.