asked on
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