Selections from a list clearing before they can be updated when using DoCmd

[Paranap]

Hi

I have a form linked to one table. It is a form for adding a new record of a lesson plan. This I've managed to do fine using the

DoCmd.RunCommand acCmdSaveRecord

I have then tried to add a list box which adds training needs for a given lesson plan. As there are normally many training needs for one lesson plan it is in a seperate table linking by the lessonID. Again I can get this to work using the code

Set ctl = Me.lstTraining
  For Each varItem In ctl.ItemsSelected
    rs.AddNew
    rs!TrainingID = ctl.ItemData(varItem)
    rs!LessonID = Me.Text44
    MsgBox "now"
    rs.Update

Problem is when I try to put them together in one function like command button the first part of the code seems to clear the selected items in the list. If you reselect the items and click it again it seems to work fine.

Any help would be appreciated

Neil

[orange]

A For --Next construct has a For statement with some iterator/counter, some processing statement, and a Next statement.
Please post all the code involved in the routine. Thanks for using code tags.

[Paranap]

  Dim db            As DAO.Database
  Dim rs            As DAO.Recordset
  Dim ctl           As Control
  Dim varItem       As Variant
   Set db = CurrentDb()
   DoCmd.RunCommand acCmdSaveRecord
 
 Set rs = db.OpenRecordset("tblLessonTraining", dbOpenDynaset, dbAppendOnly)
  Set ctl = Me.lstTraining
  For Each varItem In ctl.ItemsSelected
    rs.AddNew
    rs!TrainingID = ctl.ItemData(varItem)
    rs!LessonID = Me.Text44
    MsgBox "now"
    rs.Update
  Next varItem

  Set rs = Nothing
  Set db = Nothing

Sorry must have missed the bottom bit off when copying