MS Access Multi-sélection de Zone de liste déroulante Sélectionner Tout/Aucun

J'ai une zone de liste déroulante dans un formulaire qui est lié à un SharePoint champ, la boîte combo remplit correctement cependant, je vais avoir de la difficulté à essayer d'ajouter du code VBA pour sélectionner toutes les options, ou pour désélectionner toutes les options.

Avec un standard de zone de liste déroulante, vous pouvez utiliser:

cmbBox1.value = ""

et qui permet de réinitialiser le champ. La même chose peut être fait avec une zone de liste qui a multi-sélectionnez activé toutefois, cela jette une erreur", Ce contrôle est en lecture seule et ne peut pas être modifié", avec la liste déroulante qui a multi-sélectionner, à cause de la recherche.

J'ai fait quelques recherches, cependant, personne ne semble avoir une vraie réponse autre que d'utiliser une zone de liste à la place et ce n'est pas une solution ici.

Quelqu'un a travaillé avec l'un de ces champs et de savoir comment sélectionner toutes les options à l'aide de VBA?

Voici un lien qui décrit ce type de champ, mais il n'est pas de discuter de la façon d'interagir avec elle à l'aide de VBA - http://office.microsoft.com/en-us/access-help/use-a-list-that-stores-multiple-values-HA010031117.aspx.

Mise à JOUR:

Il y a eu une certaine confusion sur le type de champ je racontais donc, j'ai ajouté quelques captures d'écran pour montrer la différence entre une zone de liste modifiable qui permet la sélection multiple, une zone de liste qui permet à de multiples options et une liste déroulante avec l'ajout de l'option.

Premier temps, le domaine je décrivais:

MS Access Multi-sélection de Zone de liste déroulante Sélectionner Tout/Aucun

La deuxième zone de liste:

MS Access Multi-sélection de Zone de liste déroulante Sélectionner Tout/Aucun

Enfin la zone de liste déroulante:

MS Access Multi-sélection de Zone de liste déroulante Sélectionner Tout/Aucun

Ces images visualiser le problème décrit. Comme vous pouvez le voir il y a plusieurs cases à cocher qui doivent être activée ou désactivée. Normalement je n'aurais pas créer un domaine comme celui-ci, mais comme décrit ci-dessus c'est la façon dont l'Accès interprète une zone de liste déroulante à partir de SharePoint qui permet de multiples sélections.

  • double possible de Comment faire pour ajouter des fonctionnalités pour la zone de liste déroulante <Select All> dans les formulaires Microsoft Access
  • Comme je l'ai expliqué ci-dessous, ce n'est pas un doublon de les Sélectionner Tous. La raison en est que l'option sélectionner tout est ajouté en modifiant la requête qui alimente la zone de liste modifiable pour inclure une nouvelle option. La zone de liste déroulante que je descride a la fonctionnalité permettant de sélectionner plusieurs éléments en cliquant dans les cases à cocher en regard de chacun des éléments. Deux très différentes fonctionnalités. Ainsi, le prolem était de savoir comment cochez ou décochez toutes les cases. Ma réponse est ci-dessous.
  • Toutes mes excuses, si j'avais réalisé qu'un seul vote serré, était suffisant, je n'aurais pas voté.
  • J'ai ajouté quelques captures d'écran à la question, nous l'espérons résoudre le problème pour quelqu'un d'autre à la recherche de cette solution. Vous n'étiez pas la première personne à mal comprendre alors, j'espère que cela aidera.
  • Pouvez-vous Partager le script de la première Sélectionnez options
  • Vous souhaitez créer le multi-sélectionnez les cases à cocher?
  • Oui, Got Solution, Merci

InformationsquelleAutor AxGryndr | 2013-05-16
  1. 2

    Après une tonne de recherche et d'essai et d'erreur que j'ai pensé à elle.

    Pour désélectionner toutes les cases à cocher, il est 

    cmbBox1.Value = Array()

    Donc, avec cette information, j'ai pensé qu'à sélectionner les éléments qu'ils ont d'être dans un tableau. Créer un tableau avec tous les éléments qui sont dans la liste déroulante, puis définir la zone de liste modifiable égale à la matrice de sélectionner tous les éléments.

    J'ai utilisé une boucle pour définir chaque élément de la matrice

    Dim SelVals(), i
ReDim SelVals(0 to cmbBox1.ListCount - 1)
For i = 0 to cmbBox1.ListCount - 1
     SelVals(i) = cmbBox1.Column(1,i)
Next i
cmbBox1.Value = SelVals

    Évidemment, vous n'êtes pas limité uniquement à l'aide de la totalité du contenu - vous pouvez assigner n'importe quel tableau et ceux qui seraient les valeurs sélectionnées.

    • Bonjour, aviez-vous déjà l' <SelectAll> dans votre zone de liste déroulante? ou avez-u l'ajouter via vba?
    • Pour créer la zone de liste déroulante exemple, j'ai modifié la requête avec une UNION pour ajouter l'enregistrement. Modifier le SQL qui peut être fait avec VBA, mais vous pouvez utiliser le .requery() la méthode pour mettre à jour les valeurs.
    InformationsquelleAutor AxGryndr
  2. 0

    http://msdn.microsoft.com/en-us/library/office/aa140084(v=office.10).aspx
    Je crois ce couvre ce que vous demandez

    • Non en fait. Ce lien parle de l'ajout d'une option pour la zone de liste déroulante source pour (TOUS). À quoi je fais référence est une zone de liste modifiable qui a à valeurs multiples capacités d'où par vous sélectionnez vos valeurs à l'aide des cases à cocher. Voici un lien qui parle de la façon de créer un tel champ - office.microsoft.com/en-us/access-help/... - j'ai déjà le terrain en raison du lien de SharePoint, j'ai juste besoin de savoir comment faire en VBA pour sélectionner ou désélectionner toutes les cases à cocher.
    • Ahh, mon mauvais. Des excuses.
    • Donc... @AxGryndr , comment le lien dans votre commentaire ci-dessus pas de réponse à votre question?
    • Parce que le lien Alan posté est tout simplement l'ajout d'un (TOUT) option de la liste déroulante. Le domaine que j'ai est de ne pas le faire. Les options dans la boîte combo que j'ai sont sélectionnés à l'aide de cases à cocher à côté de chaque élément. J'ai besoin de sélectionner toutes les cases à cocher ou désélectionner tous. La raison pour ceci est mon utilisateur peut vouloir toutes les options, sauf pour 1, donc avec l'existence d'60+ des options, il serait plus rapide pour sélectionner tous les et laissez-les désélectionner ce qu'ils ne veulent pas.
    InformationsquelleAutor Alan Waage