Hallo,
Ich habe das Problem:
Ich habe eine Listbox die Namen von Mitarbeitern enthält die jeweils mit zwei Kombiboxen in Bezug stehen die beschränkten wie viele Mitarbeiter ausgewählt werden können.
Nun ist es so das ich diese werte die in dem Formular eingegeben werden also :
Das Datum , Die Abteilung , Das Team , und der Mitarbeiter
Wobei das Datum flexibel eingeben werden muss.
Wie schaffe ich es das ich in der Listbox wenn sie auf Mehrfachauswahl steht auch mehrere datensätze in der Tabelle habe und nicht nur einen in dem die Mitarbeiter in einer Zelle stehen (mit Kommas getrennt). Folgenden Code habe ich da momentan.
Private Sub cbxT4_Click()
Dim strSQL As String
Dim DB As DAO.Database
Dim varItm As Variant
Set DB = CurrentDb
For Each varItm In Me.cbxT3.ItemsSelected
strSQL = "INSERT INTO Schulungsdaten (Abteilung,Team, Mitarbeiter) VALUES(" & Me.cbxT1 & "," & Me.cbxt2 & "," & Me.cbxT3.Column(0, varItm) & ")"
DB.Execute strSQL, 128
Next varItm
End Sub
Funktioniert aber überhaupt nicht . es werden doppelt so viele >Zeilen eingefügt und das Datum wird auch nicht übernommen
P.S: Bin in VBA total schlecht.
Hallo,
das Datum wird in deinem Code gar nicht angesprochen. Wenn du es im SQL-Statement verwenden willst, musst du es maskieren. (s.
http://www.donkarl.com?FAQ6.8)
Ansonsten werde ich aus deinen Ausführungen nicht so recht schlau.