Opération selon sélection dans une liste (Access)

Résolu/Fermé

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 - 1 oct. 2017 à 22:49
ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 - 4 oct. 2017 à 02:02

Bonjour,

Sous Access 2010 :

J'ai dans un formulaire (Saisie_Acc) un champ [Type_anest] avec liste de choix. On peut cocher plusieurs choix.

J'ai un autre champ [Epidurale] booléen. J'aimerais que si dans le premier champ, telle valeur est sélectionnée, le deuxième champ soit coché (-1), et sinon décoché (o).

Je n'arrive pas à le faire dans les macro Access, car les champs avec listes de choix ne peuvent pas y être utilisées dans le générateur d'expression. Je me demande si c'est possible sous VBA.

J'ai mis le code dans une private sub du formulaire, sub = Type_anest_AfterUpdate()

J'ai essayé :

If Me.Type_anest.value like "Épidurale" then
Me.Epidurale.Value=-1
Else Me.Epidurale.Value=0
End if

Ainsi que :

If Me.Type_anest.ItemsSelected Like "*" & "Épidurale" & "*" Then
Me.Epidurale.Value = -1

Else: Me.Epidurale.Value = 0
End If

Et enfin :

If Me.Type_anest.Value Like "*" & "Épidurale" & "*" Then
Me.Epidurale.Value = -1
Else: Me.Epidurale.Value = 0
End If

Mais ni l'un ni l'autre ne fonctionne.

J'aurais besoin de savoir :
1. Est-ce possible?
2. Si oui, comment???

Merci à l'avance!

A voir également:

Opération selon sélection dans une liste (Access)
Liste déroulante excel - Guide
Liste déroulante en cascade - Guide
Liste de diffusion whatsapp - Guide
Gertrude a préparé la liste des affaires à prendre pour l'excursion. juliette a modifié cette liste en utilisant le mode suivi des modifications proposé par le traitement de texte. - Guide
Inverser selection excel - Forum Excel

1 réponse

Réponse 1 / 1

yg_be Messages postés 23401 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 décembre 2024 Ambassadeur 1 557
2 oct. 2017 à 18:08

bonjour,
moi j'essaierais ceci:

Me.Epidurale.Value = false
For Each varItm In Me.Type_anest.ItemsSelected 
 if instr(Me.Type_anest.ItemData(varItm),"Épidurale") >0 then
     Me.Epidurale.Value = true
end if 
Next varItm

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
Modifié le 4 oct. 2017 à 01:24

Doit bien y avoir quelque chose que je fais de pas correct...
J'avais bien espoir que ça fonctionne, mais non!

J'avais trouvé, sur un autre site ( https://www.developpez.net/forums/d551510/logiciels/microsoft-office/access/vba-access/condition-genre-champ-contient-ca-existe/ ) une suggestion :

p = instr(0,coderisque,'2')
if p>0 then
chk2 = -1
else 
chk2 =0
end if

Mais je n'arrivais pas à l'appliquer à ma BDD. Je pensais que votre réponse était la bonne. Je l'ai essayée en VBA dans le formulaire concerné, au champ concerné :`
Essai 1 : Type_anest_AfterUpdate()
Essai 2 : Type_anest_Dirty(Cancel As Integer)

Qu'est-ce que je devrais faire et que je ne fais pas?

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40 > ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020
4 oct. 2017 à 01:18

En passant... merci! ;)

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
4 oct. 2017 à 02:02

Ne cherchez plus...
Étant donné qu'il y a seulement 6 types d'anesthésie, j'ai décidé de me créer 6 champs, et de mettre 6 cases à cocher (oui/non) dans mon formulaire. Ce ne sera pas plus long pour l'utilisateur... et pour moi, le champ « Épidurale » demeure le même dans mes requêtes, alors à bien y penser, ce sera beaucoup moins compliqué ainsi, puisque les autres types d'anesthésie ne sont pas pris en compte dans les rapports statistiques (ils ne sont là que pour info.)
Merci encore!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

l'opération demandée necessite une elevation

Rechercher un numéro sur liste rouge

Exemple de base de données access

Annuaire inversé liste rouge