[kapetang]

Καλησπέρα

Χρήστο, χαίρομαι που ψάχνεις τον κώδικα ....

Παρακάτω δες μια τροποποίηση της μεθόδου που πρότεινε ο Στέλιος.

Private Sub CmdAdd_Click()
    Dim Itm As Variant, i As Integer, rs As DAO.Recordset
    Dim x As Variant
    x = Array("Pedio1", "Pedio2", "Pedio3", "Pedio4", "Pedio5")
    With Me.Lista0
        If .ItemsSelected.Count > 0 And .ItemsSelected.Count <= 5 Then
            Set rs = CurrentDb.OpenRecordset("Omades", dbOpenDynaset)
            rs.AddNew
            For Each Itm In .ItemsSelected
                rs.Fields(x(i)).Value = .Column(1, Itm)
                i = i + 1
            Next
            rs.Update
            rs.Close
            Set rs = Nothing
            Me.Lista2.Requery
        Else
            MsgBox "Πρέπει να επιλέξετε ένα έως πέντε ονόματα"
        End If
    End With

End Sub

Φιλικά/Γιώργος