Listbox multiselect in Recordset

[silentwolf]

Hi guys I got a multiselect listbox in a access userform

Private Sub btnOeffnen_Click()
    Dim rcsObj As Recordset
    
    Dim lItem As Long
    
        For lItem = 0 To lstMitarbeiter.ListCount - 1
    
            If lstMitarbeiter.Selected(lItem) = True Then
                
            Set rcsObj = CurrentDb.OpenRecordset("tblStundenTest", dbOpenDynaset)
                With rcsObj
                    .AddNew
                    .Fields("stdDatum").Value = Me.txtDatum
                    .Fields("stdAnfang").Value = Me.txtStart
                    .Fields("stdEnde").Value = Me.txtEnde
                    
                    [COLOR=#ff0000].Fields("stdMitIDRef").Value = Me.lstMitarbeiter.ItemsSelected[/COLOR]
                    
                    .Fields("stdObjIDRef").Value = Me.lstObjekte
                    rcsObj.Update
                End With
                     
            lstMitarbeiter.Selected(lItem) = False
                

            End If
        Next lItem


End Sub

I found the ItemsSelected but it is not really working what do I need to change here?

Could someone let me please know?

Found for each loop to got through more selected Items but is there a way of doing it in the code above?

Thanks for advice!

Albert

 

[silentwolf]

Guys!

Don't worry I got it worked out ! It works with a for Each loop!
Fantastic I am soo happy

But it is funny how different excel and access work with the lisbox ...

    Dim rcsObj As Recordset
    Dim varItem As Variant
    
    If lstMitarbeiter.ItemsSelected.Count = 0 Then
        MsgBox "You need to select an employee!"
    Else
    
    
    Set rcsObj = CurrentDb.OpenRecordset("tblStundenTest", dbOpenDynaset)
    
        For Each varItem In lstMitarbeiter.ItemsSelected
                With rcsObj
                    .AddNew
                    .Fields("stdDatum").Value = Me.txtDatum
                    .Fields("stdAnfang").Value = Me.txtStart
                    .Fields("stdEnde").Value = Me.txtEnde
                    
                    .Fields("stdMitIDRef").Value = Me.lstMitarbeiter.Column(0, varItem)
                    .Fields("stdMitName").Value = Me.lstMitarbeiter.Column(1, varItem)
                    .Fields("stdMitGesamt").Value = TimeDiff(txtStart, txtEnde)
                    .Fields("stdObjIDRef").Value = Me.lstObjekte
                    rcsObj.Update
                End With
        Next varItem
    End If

Thanks for looking