[Χρήστος]

Για όποιον "αρέσκεται" να διαβάζει γραμμή-γραμμή τον κώδικα αναφέρω τα εξής:
Στην ιδιαίτερη λύση που πρότεινε ο Γιώργος(Kapetang)
διαπίστωσα ότι στον κώδικα μπορούν να γίνουν 2 αλλαγές: (οι θέσεις σημειώνονται με >>)
.................................................. .................................................. ..............................................
Dim strSQL As String, Itm As Variant, i As Integer, strP As String, strV As String
With Me.Lista0
If .ItemsSelected.Count > 0 And .ItemsSelected.Count <= 5 Then
strSQL = "INSERT INTO omades("
For Each Itm In .ItemsSelected
i = i + 1
strP = strP & ", Pedio" & i
>> strV = strV & "', '" & .Column(1, Itm)
-μετά το 1ο κόμμα υπάρχει κενό
-σχηματίζει την παράσταση: ', 'Γιώργος', 'Χρήστος', 'Τάσος
Next
>> strSQL = strSQL & Mid(strP, 2) & ") VALUES (" & Mid(strV, 4) & "')"
-βάζει 4 διότι αριστερά του 'Γιώργος' υπαρχουν 3 χαρακτήρες που ΔΕΝ πρέπει να εισαγχθούν στην VALUES
-στο τμήμα με την VALUES την μετατρέπει στην επιθυμητή: 'Γιώργος','Χρήστος','Τάσος'
CurrentDb.Execute (strSQL)
Me.Lista2.Requery
Else
MsgBox "Πρέπει να επιλέξετε ένα έως πέντε ονόματα"
End If
End With
.................................................. .................................................. ..............................................
Άρα λοιπόν στην strV = strV & "', '" & .Column(1, Itm) αν διαγράψουμε το κενό μετά το 1ο κόμμα τότε στην strSQL = strSQL & Mid(strP, 2) & ") VALUES (" & Mid(strV, 4) & "')" το 4 θα πρέπει να γίνει 3