Access-VBA: Setzen der Werte einer Mehrfachauswahl-Listenfeld in eine Tabelle

Ich habe ein Listenfeld, wo ich auswählen kann von Montag - Freitag. Ich kann wählen, wie viele Tage, wie ich will in der Liste, alle von Ihnen, wenn ich wollte. Ich will wissen, wie legen Sie den Wert der listbox in meine Tabelle.

Hier ist der code habe ich bisher geschrieben:

Private Sub Command499_Click()
Set RstRecSet = Nothing
Set db = CurrentDb
Dim dateDay As String
Dim dateWeek As String
MsgBox (lstDateDay.Selected)
''dateWeek = lstDateWeek.Value

db.Execute " INSERT INTO tblContacts (DateDay, DateWeek)Values" & "('" & dateDay & "', '" & dateWeek & "');"
db.Close

End Sub

Wie Sie sehen können ich habe versucht eine Menge verschiedener Dinge. Mein problem ist immer der Wert des Listenfeldes; es hält die zeigen, wie null, obwohl es Daten ausgewählt. Der genaue Fehler, den ich bekomme ist: "Ungültige Verwendung von Null."

Lassen Sie mich wissen, was Sie denken.

Dank,
Salat

EDIT:

       Set rs = db.OpenRecordset("tblContacts")
   For Each itm In lstDateWeek.ItemsSelected
        rs.AddNew
        rs!dateWeek = lstDateWeek.ItemData(itm)
        rs!dateDay = itm
        rs.Update
  Next
  rs.Close
  Set rs = Nothing
  Set db = Nothing

dateDay und dateWeek sind Spalten in tblContacts.

InformationsquelleAutor SaladSnake | 2014-10-10

1

Müssen Sie die ItemsSelected-Auflistung, um den index des gewählten items im Multi-Select-Liste " und anschließend Durchlaufen Sie, und verwenden Sie den index, der Verweis auf die Zeilen gespeichert, die in der ItemData-Sammlung. Als Teil dieser iteration erstellen Sie einfach einen Datensatz hinzufügen und die Felder und aktualisieren. Es gibt verschiedene Möglichkeiten, dies zu behandeln ist, sondern ich wie das unten gezeigte.

Verwendung meinem Beispiel, erstellen Sie einfach eine Tabelle namens tblTest und zwei Spalten Beschreibung (text) und Tag als Zahl.
Erstellen Sie ein Formular und fügen Sie ein multi-select-Listenfeld mit dem Namen DaysOfWeek. füllen Sie es mit den Tagen der Woche als ValueList und fügen Sie eine Schaltfläche, die ich beschriftet Speichern.

Fügen Sie den folgenden code in die Tasten, click-Ereignis, und versuchen Sie es
```
Dim db As Database
   Dim rs As Recordset

   Set db = CurrentDb()
   Set rs = db.OpenRecordset("tblTest")
   For Each itm In DaysOfWeek.ItemsSelected
        rs.AddNew
        rs!Description = DaysOfWeek.ItemData(itm)
        rs!Day = itm
        rs.Update
  Next
  rs.Close
  Set rs = Nothing
  Set db = Nothing
```
Meine Ereignisprozedur sieht wie folgt aus:
```
Private Sub Command19_Click()
   Dim db As Database
   Dim rs As Recordset

   Set db = CurrentDb()
   Set rs = db.OpenRecordset("tblTest")
   For Each itm In DaysOfWeek.ItemsSelected
        rs.AddNew
        rs!Description = DaysOfWeek.ItemData(itm)
        rs!Day = itm
        rs.Update
  Next
  rs.Close
  Set rs = Nothing
  Set db = Nothing
End Sub
```
Dies könnte getan werden, mit einem ADO-Aufruf durch den Bau einer Zeichenfolge AUSWÄHLEN, die für Ihre INSERT-Anweisung als gut, aber für mich ist das einfach.. Wenn Sie Fragen haben, lassen Sie es mich wissen. Wenn ich herausfinden kann, wie befestige meine Beispiel-Datenbank ich.
- btw, wenn Sie Shop itm haben wie ich, Sie werden sehen, es ist eigentlich ein Wert correspondiing auf die Nummer der Zeile und es ist null-basiert, nur zur info
- Vielen Dank für die Hilfe, sehr informativ! Ich konvertiert Ihre gode zu meinem Zweck. Es Durchlaufen aber nicht hinzufügen zu meinem Tisch. Ich lege den code in mein op.
- Ich sah, wie Sie meine modifizierten code. Das sollte funktionieren und aktualisieren Sie die Tabelle natürlich ich nehme an, dass diese Tabelle eine Access-Tabelle. Es ist eine Sache, die ich gedacht haben obwohl. Ich Frage mich, Ob Sie die Tabelle öffnen, während Sie diesen code testen, müssen Sie möglicherweise um es zu schließen und es erneut öffnen, um die updates zu sehen. Einen offenen Tisch nicht unbedingt eine änderung der Daten in das zugrunde liegende recordset. Ich habe diesen Fehler gemacht, einmal oder zweimal. Wenn Sie fühlen, dass es Ihnen geholfen, bitte markieren Sie es als Antwort, btw. Vielen Dank.
- Hey David, Also du wo Recht. Die Tabelle hat einfach ein bisschen zu aktualisieren. Jedoch ist dies nur noch eine Woche Tag. Wenn ich auf Donnerstag und Freitag itll nur hinzufügen, Freitag, der Letzte Datensatz.
- Wenn Sie möchten, fügen Sie die Daten, sobald Sie auf den Mehrfachauswahl-Listenfeld, Sie hätte hinzufügen müssen, um eine gewisse Logik zu halten, die zuvor eingegebenen Elemente wieder Hinzugefügt. Habe ich eine Taste, dann kann ich da halten Sie die control-Taste gedrückt, klicken Sie auf mehrere Elemente, und klicken Sie dann auf die Schaltfläche, um alle Werte auf einmal. Die iteration sollte einzeln hinzufügen. Wenn Sie buchen können Sie Ihre Formular -, Tabellen-und code in einer Beispieldatenbank irgendwo, dass ich zugreifen kann, ich wäre mehr als glücklich, werfen Sie einen Blick auf es. Auch stellen Sie sicher, dass Ihr Listenfeld festgelegt ist, zu Simple oder Extended in multi-select-Eigenschaft nur um sicher zu sein.
- David, ich bin mir nicht sicher, ob Ihr noch die überwachung dieser thread oder nicht, aber in Bezug auf deinen vorherigen Kommentar. Ich arbeite noch immer an diesem Problem. Das problem ist, ich bin mir nicht sicher, wie Sie ziehen Sie die Daten zurück in die form.
- oder beispielsweise, wenn ich auf Montag Mittwoch Freitag. In recCount es würde noch ein 3 und es werden Datum und Woche es Freitag. Ich möchte die Daten nicht direkt eingegeben werden, in meinem Tisch, sondern auch die Abrufbaren form. also ich habe eine Suchfunktion, zeigt recordsets zurück in die Formen. Nein, wenn ich mein recordset und versuchen Sie es zu füllen mein Listenfeld mit den Daten, die ich Hinzugefügt habe mit diesem code wird es füllen Sie alle Daten korrekt oder einfach nur Freitag? Persönlich denke ich, dass ich haben könnte, um den Zyklus durch diese Daten recCount, um die richtige info angezeigt.
- Wenn ich Sie richtig verstehe. Wenn Sie die Speicherung der Daten aus dem Listenfeld in eine Tabelle, die Sie auch speichern Sie es mit einem Schlüssel entspricht, der form-Datensatz für jede Auswahl, so dass Sie eine Abfrage der Tabelle, um die Daten abzurufen, die in das Formular entspricht den key-Wert für den Datensatz auf dem Formular angezeigt.
InformationsquelleAutor David

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.