Access VBA: Placer les valeurs d'une multi-sélection de zone de liste dans un Tableau

J'ai une zone de liste où je peux choisir, lundi - vendredi. J'pouvez sélectionner autant de jours que je veux dans la zone de liste, toutes si je le voulais. Je veux savoir comment faire pour insérer la valeur de la listbox dans ma table.

Voici le code que j'ai écrit jusqu'à présent:

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

Comme vous pouvez le voir j'ai essayé beaucoup de choses différentes. Mon problème est d'obtenir la valeur de la zone de liste; il continue de s'afficher comme nulle, même si elle dispose de données sélectionné. L'erreur exacte que j'obtiens est: "non Valide utilisation de Null."

Laissez-moi savoir ce que vous en pensez.

Grâce,
Salade de

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 et dateWeek sont des colonnes dans tblContacts.

InformationsquelleAutor SaladSnake | 2014-10-10

0

Vous avez besoin d'utiliser la collection ItemsSelected pour obtenir l'index de la sélection d'articles dans le Multi Sélectionnez la zone de liste, puis itérer à travers eux et à l'utilisation de l'indice de référence des lignes stockées dans la ItemData collection. Dans le cadre de cette itération il suffit de créer un jeu d'enregistrements et ajouter les champs et la mise à jour. Il y a différentes façons de gérer cette partie mais j'ai comme celui illustré ci-dessous.

À utiliser mon exemple, il suffit de créer une table appelée tblTest et deux colonnes de Description (texte) et le numéro du Jour.
Créer un formulaire et ajouter une multi-sélection de zone de liste nommée DaysOfWeek. le remplir avec les jours de la semaine, comme une liste de valeurs, puis ajouter un bouton sur lequel j'ai marqué Magasin.

Collez le code suivant dans les boutons cliquez sur l'événement et essayer
```
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
```
Ma procédure d'événement ressemble à ceci:
```
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
```
Ce qui pourrait être fait avec un ADO appel par la construction de SÉLECTIONNER la chaîne de votre instruction INSERT en tant que bien, mais pour moi, c'est simple.. Si vous avez des questions laissez-moi savoir. Si je peux comprendre comment joindre mon exemple de base de données, je.
- btw, si Vous stockez de l'imt, comme je l'ai fait, vous verrez que c'est en fait une valeur correspondiing pour le numéro de ligne et il est basé sur zéro, juste pour info
- Merci beaucoup pour l'aide, très instructif! Je me suis converti votre gode pour mon but. C'est marcher à travers, mais ne pas ajouter à ma table. Je vais mettre le code dans mon op.
- J'ai vu comment vous avez modifié mon code. Cela devrait fonctionner et mettre à jour la table bien sûr, je suis en supposant que cette table est une table Access. Il y a une chose que j'ai pensé à bien. Je me demandais Si vous avez de la table ouverte pendant que vous testez ce code, vous pouvez avoir besoin pour le fermer et le rouvrir pour voir les mises à jour. Une table ouverte de ne pas refléter toutes les modifications de données dans le sous-jacent jeu d'enregistrements. J'ai fait cette erreur une fois ou deux fois. Si vous sentez que cela vous a aidé merci de le marquer comme réponse btw. Merci beaucoup.
- Hey David, Afin de vous en droit. La table a juste pris un peu de mise à jour. Cependant cela ne fait qu'ajouter un jour de la semaine. Si je clique sur le jeudi et le vendredi itll seulement ajouter de vendredi, le dernier enregistrement.
- Si vous souhaitez ajouter les données que vous cliquez sur le multi-sélectionnez la zone de liste, vous devrez ajouter un peu de logique pour garder précédemment saisie des éléments de l'ajouter à nouveau. J'ai utilisé un bouton parce que je peux maintenir la touche ctrl enfoncée, cliquez sur les différents éléments, puis cliquez sur le bouton pour ajouter toutes les valeurs à la fois. Cette itération devrait ajouter chacun d'eux séparément. Si vous pouvez poster votre formulaire, un tableau et le code dans un échantillon de la base de données quelque part que je puisse y accéder, je serais plus qu'heureux de prendre un coup d'oeil. Aussi assurez-vous que votre zone de liste est définie à Simple ou Étendu dans le multi-sélectionnez la propriété juste pour être sûr.
- David, je ne suis pas sûr si votre toujours suivi ce thread ou pas, mais en ce qui concerne votre commentaire précédent. Je suis encore à travailler sur cette question. Le problème est que je ne suis pas sûr de la façon de tirer les données sur le formulaire.
- ou par exemple, si je devais cliquez sur lundi, mercredi, vendredi. Dans recCount ce serait ajouter un 3 et il date de la semaine, il ajoute de vendredi. Je voudrais que les données afin de ne pas être entré dans ma table, mais aussi récupérable par un formulaire. j'ai donc une fonction de recherche qui affiche des jeux d'enregistrements dans les formes. Pas si je prends mon jeu d'enregistrements et d'essayer de remplir ma zone de liste avec les données que j'ai ajouté avec ce code, il sera de remplir toutes les données ou vendredi? Personnellement, je pense que je pourrais avoir à faire défiler ces données recCount obtenir la bonne info affiche.
- Si je vous comprends bien. Si vous stockez les données de la zone de liste dans un tableau, vous devez également avoir à les stocker avec une clé qui correspond à l'enregistrement de formulaire pour chaque sélection, de sorte que vous pouvez interroger la table pour récupérer les données sur le formulaire qui correspond à la valeur de la clé pour l'enregistrement affiché sur le formulaire.
InformationsquelleAutor David

Vous devez vous connecter pour publier un commentaire.