[pm4698]

Σταύρο είχα κι εγώ τέτοιο θέμα και δημιούργησα έναν πίνακα με δύο πεδία. Το ένα είναι το Αυτόματη Αρίθμηση(paperID) και το άλλο είναι το Author_name. Ο πίνακας ονομάζεται tblPaper ενώ η λίστα ονομάζεται author_list. Δοκιμάζω το παρακάτω για να περάσω τις τιμές του listbox στον άδειο πίνακα αλλά δεν δούλεψε..

Private Sub button_Click()

Dim varItem As Variant
Dim strCriteria As String
Dim strSQL As String
Dim strSQL2 As String

strSQL = "INSERT INTO tblPaper (Auhor_name) VALUES(" & Me!author_list & ", "

If Me!l1.ItemsSelected.Count > 0 Then
For Each varItem In Me!author_list
strSQL2 = strSQL & Me!author_list.ItemData(varItem) & ");"
CurrentDb.Execute strSQL
Next varItem
End If

Exit Sub

End Sub

Αν τον παραμετροποιήσεις και δουλέψει ρίχτο!