ACCES clic choix liste déroulate interdisant accès autres champs ou ouvrant mémoFermé

Question

Bonjour, ACCES 2010 WINDOWS 10, très débutant j'essaie de me débrouiller avec divers tuto, mais je ne trouve pas de réponse aux questions suivantes :
Suit à notre échange précédent, j'ai finalement opté pour des champs de listes déroulantes pour mon relevé exhaustif de violences en milieu scolaire par établissements (plus de 600 établissements, avec nécessairement plusieurs enregistrements par établissement, grosse BD donc), plutôt que des groupes d'option qui m'obligent à créer un champ par option, donc à avoir un nombre de champs qui dépasse les limites, ou me conduise à lier plusieurs tables, compliquant ensuite les nombreuses requêtes de tri. MES QUESTIONS :
1.	Sur mes 5 types de violences possibles (verbale, physique, morale, socioéconomique (vols, racket), ou sexuelle), chacune répartissant ses diverses modalités sur une liste de choix d'un seul champ respectivement, le Chef d'Établissement qui saisit peut ne signaler que des violences verbales seules, ou violences verbales et violences physiques par exemple.
L'option violence seule de chaque type seule existe en-tête de chaque liste déroulante, et je voudrais qu'un clic sur "violence verbale seule" dans la liste  par exemple, interdise l'accès aux 4 autres listes déroulantes. Comment serait-ce possible ? Code VBA ? Soyez sympa de m'en donner quelques indications si vous pouvez 
2.	Pour chaque liste déroulante je dois prévoir une option "autre" non prévue et n'existant pas encore dans ma liste. Je voudrais qu'un choix "autre" ouvre sur un champ mémo créé à cet effet pour que le Chef d'Établissement puisse y écrire cet "autre". Comment ce choix "autre" dans ma liste déroulante peut-il entraîner à l'ouverture d'un champ mémo ?
3.	Comment faire pour faire apparaitre toute la succession des choix d'un enregistrement  au fur et à mesure en dessous du formulaire (exemple : violence verbale dépréciant simple, 'suivie de" violence physique coups armés portés, suivie de violence socio éco racket, … etc. sans compter les autres choix des listes déroulantes du même enregistrement (autres champs agresseur, victimes, causes, conséquences, ...) pour que celui qui saisit ne perde pas le fil de son enregistrement, avant de passer à l'enregistrement suivant. Je ne trouve pas. Si vous avez un exemple de code VBA ….
Désolé pour la longueur mais mon enquête est complexifiée par le nombre de champs différentes et les nombres de choix de leurs listes déroulantes. Merci si vous pouvez m'aider sur un de ces points au moins.

yg_be · Answer

bonjour, afin de faciliter la préparation d'exemples, peux-tu partager ton fichier, après avoir ajouté au formulaire le champ mémo et le champ qui servira pour faire apparaître toute la succession des choix d'un enregistrement?

FVR812 · Answer

Mais c'est e que je viens de te donner !
GROS FICHIERS 
grosfi.ch/dF3V374fXfR

FVR812 · Answer

Merci de ton suivi mais je t'ai envoyé hier soir ma BD la plus à jour Een GROS FICHIERS (ci dessous) qui comporte en 1° place de liste déroulante de chacune des 5 types de violence  l'option "seule" pour laquelle je demande qu'une bloque l'accès aux 4 autres.

RQ. 

 Pour l'instant cette BD est théorique, c'est sa structure qui m'intéresse d'où mes questions, et la manière de les résoudre, les champs ici sont remplis au hasard sans signification aucune 
 J'ai mis des listes déroulantes pour tout les champs pratiquement pour limiter le nombre de champs, mais on peut mettre un champ oui/non par choix, ce qui conduira à plusieurs tables liées probablement. La table qui contient les renseignements spécifique à l'établissement (premiers champs de ma BD) peur être seule et liée aux autres par un code établissement.
 chaque établissement doit être codé pour que ça serve de clé de liaison aux plusieurs enregistrements faits par l'enquêteur ou le Chef d'Etablissement pour un même établissement. 

Oui il y a plusieurs choix dans mes listes, ce qui entraîne lorsque 2 ou + sont cochées l'enregistrement séparé par des points-virgules dans le champ correspondant. Raison pour laquelle je demande comment faire pour faire une requête sur ce type de saisie couplée (exp. Enregistrement 9 : Dépréciation disqualifiante avenir; Dépréciation simple; Vverbal Aucun de ces choix > comment faire pour que la requête me sorte ce type de choix couplés ?), alors que c'est facile pour un choix seul.

En fin de chaque liste déroulante, le choix "autre, préciser" existe. Le cocher doit ouvrir le champ mémo qui apparaît (pour l'instant car normalement il est invisible (visible nin je crois) et ne devient visible que si on coche "autre préciser") sur le formulaire,  et existe dans la table (V ... mémo autre)

Enfin comme ça fait beaucoup de choix et de saisies pour un enregistrement, je souhaiterais qu'au fur et à mesure d'un enregistrement, les choix s'affichent en dessous les uns à la suite des autres lisibles en permanence afin que celui qui saisit ne perde pas le fil et les aient toujours sous les yeux. Je ne sais comment ça peut être possible, pied de formulaire ? état, ? ...
 
Cordialement, merci encore.


MANTE <***@yahoo.fr> vous a envoyé des fichiers 

Télécharger les fichiers: www.grosfichiers.com/CGxLxwcxXKh 

Disponible encore 14 jours (jusqu'au lun. 27 janvier 2020 à 21h04) 

Fichiers: 
VSMMAROC 200108 AM200113.accdb
1 Mo

yg_be · Answer

voici un exemple de code, à ajouter au formulaire, pour faire apparaître le champ memo en fonction du choix fait pour les violences socio-économiques.
Option Compare Database
Option Explicit

Private Sub Form_Current()
vis_vsoceco
End Sub

Private Sub Violences_SocioEconomiques_AfterUpdate()
vis_vsoceco
End Sub
Private Sub vis_vsoceco()
Dim choix
Me.VSocioEcoM2MOaUTRES.Visible = False
If Not IsNull(Me.Violences_SocioEconomiques.Value) Then
    For Each choix In Me.Violences_SocioEconomiques.Value
        If InStr(choix, "Préciser") > 0 Then
            Me.VSocioEcoM2MOaUTRES.Visible = True
            Exit For
        End If
    Next choix
End If
End Sub

FVR812 · Answer

Merci de me débrouiller tout ça :
Tu écris :

ce que tu appelles "memo", c'est bien la zone de texte dans laquelle il est possible d'entrer du texte libre, la zone appelée VSocioEcoM2MOaUTRES? 

OUI tout à fait 

Le plus possible, essaie d'utiliser le vocabulaire de Access: c'est une zone de texte, pas un memo.
 
OK

Je vois bien ton code VBA qui concerne cette ouverture mais ça ne marche pas : en cliquant sur la case autre : VSocEcoAutreCliquerPreciser, la zone VSocioEcoM2MOaUTRES ne s'ouvre pas
J'ai le sentiment qu'il y a un bug quelque part car les N° d'enregistrement de la table et du formulaire ne correspondent pas; Je ne suis pas calé pour résoudre ça, si tu peux jeter un œil …
Merci, cordialement.

FVR812 · Answer

Je m'excuse, C'est de ma faute en fait, j'ai fait un essai de la mette en propriété/visible/non
Je te mets la bas en gros fichiers ce jour
grosfi.ch/Bw35tznDjTk
cordialement.

FVR812 · Answer

Bonjour, je reviens de plusieurs jours de boulot et m'excuse d'être resté en stand by.
Donc, j'ai remis mon visible non,
J'ai suivi tes instructions : - ouvrir le formulaire en mode création 
- cliquer à droite, et choisir "créer code événement" 
- choisir "générateur de code"
J'ai collé ton code et voila ce qu'il me dit : (copie écran impossible ici), je recopie :
après 
if Instr(choix, "VSocEco Autre(s) (Cliquer, Préciser)

") > 0 Then est en rouge

et une fenêtre dit : erreur de compilation erreur de syntaxe
 
Et ça ne marche pas : 
le mémo
VSocioEcoM2MOaUTRES.Visible 
reste ouvert en cochant VSocEcoAutreCliquerPreciser
Que faut-il faire ? Merci de ton aide.

FVR812 · Answer

Merci, 
1. mais écoute je suis un peu largué là, qu'entends-tu par tester ta suggestion? J'ai déjà essayé  comme je te l'ai écrit et ça ne marchait pas. Ma base est sur GROSFICHIERS, si tu veux bien essayer de faire quelque chose et de m'expliquer :

Télécharger les fichiers:   grosfi.ch/jQZyYcJfgeJ
Gérez vos fichiers: grosfi.ch/dB43CSd5vZh

2. Au passage, dis moi comment on fait dans le formulaire pour faire apparaître une info bulle sur l'étiquette d'un contrôle, ou sur le controle seul en passant la souris dessus. J'ai essayé avec propriétés/Autres/Texte d'info bulle et je n'arrive à rien. Merci, désolé pour mes questions naives.

FVR812 · Answer

Je te recopie et réponds sur ton texte :
c'est de plus en plus confus. 
Désolé

1) le code que je t'ai proposé en #1 teste sur la présence de "Préciser" dans les choix cochés, parce que c'est ce qui était présent dans les fichiers que tu avais partagé avant. 
Entre-temps, je vois que tu as changé l'intitulé des choix, il est donc normal que le code ne fonctionne pas. 
OK j'ai fait évoluer entre remps, mais même en reprenant les anciennes, je n'ai pas de "Préciser", peu importe, je vais réessayer avec mes nouveaux intitulés, ou refaire une base plus propre

2) tu écris "le mémo 
VSocioEcoM2MOaUTRES.Visible 
reste ouvert en cochant VSocEcoAutreCliquerPreciser" 

je t'avais demandé d'adapter ton vocabulaire: essaie d'utiliser le vocabulaire de Access: c'est une zone de texte, pas un memo. OUI mais ce n'est que le nom 
Que veux-tu dire par "reste ouvert en cochant ...": n'est-ce pas ce que tu souhaites, d'avoir la zone de texte visible? 
C'est une erreur effectivement, il faudrait qu'il reste fermé et qu'il s'ouvre en cochant.

3) tu me montres ce code: if Instr(choix, "VSocEco Autre(s) (Cliquer, Préciser), comme s'il venait de ma suggestion. bizarre, non? 
C'est un bidouillage où j'ai du essayer, de transformer ton code avec mes intitules.

Pour l'info bulle ça ne marche toujours pas même en laissant la souris dessus...

Je vais essayer de revoir tout ça avant de revenir vers toi. Merci de continuer à t'y intéresser. Cordialement.

FVR812 · Answer

OK, je n'avais pas pigé.

FVR812 · Answer

Attends STP avant de continuer, je reconstruis ma base. Cordialement et merci.

ACCES clic choix liste déroulate interdisant accès autres champs ou ouvrant mémo

11 réponses

Discussions similaires

Newsletters