Code run correctly once but errors each time after that

[PinkLady50]

added from lstCAR # 3, 6
added from lstCAR # 4, 7
Key is 450


added from lstCAR # 1, 2
added from lstCAR # 2, 4
added from lstCAR # 3, 5
added from lstCAR # 4, 6
added from lstCAR # 5, 7

[PinkLady50]

So this is this Problem-Record for 450
It writes item 2 from Listbox then writes the NonconformanceRecordID 450
Then it write the other records.

[davegri]

Set dbs = CurrentDb
      Set rst = dbs.OpenRecordset("Problem_record") 'Form Recordsource = Nonconformance_Record tbl
      If Me.Dirty Then Me.Dirty = False   'force record save
    Debug.Print "Key is " & Me.nonconformance_record_NonconformanceRecordID
    
    'Loop through the ItemsSelected in the list box.
    With Me.lstCAR
        'here we are getting the Problemid of the selected Items '*********************************
      For Each varItem In .ItemsSelected
          If Not IsNull(varItem) Then
              rst.AddNew
              recCnt = recCnt + 1
              rst!ProblemID = lstCAR.ItemData(varItem)
              rst!NonconformanceRecordID = Me.nonconformance_record_NonconformanceRecordID

              debug.print "added from lstCAR # " & reccnt & ", " &  lstCAR.itemdata(varItem) 
              
               rst.Update
            End If
             
        Next
   End With

Gotta put that key into the update...

[PinkLady50]

Davegri

SUCCESS!!!! Thank you for your patience in helping me get this completed. I have learned a great deal from you. My management has agreed to finally get me some training!!

[davegri]

Happy ending. Good luck in your career!