Discussion :

[alainmante]

Bonjour, ACCES 2010 WINDOWS 10 très débutant avec une petite expérience sur une version très antérieure, où je ne me retrouve pas trop, j'essaie de me débrouiller avec divers tuto, mais je ne trouve pas de résolution ni de correspondance dans les FAQ
Je dois faire une enquête sur la violence en milieu scolaire sur plus de 600 établissements d'un pays. Vu le nombre de modalités pouvant exister, j'ai mis des listes déroulantes sur mes 5 types (champs) de violences possibles (verbale, physique, morale, socioéconomique, ou sexuelle). Les autres champs pertinents à l'enquête sont pratiquement tous en liste déroulantes (champs listes déroulantes aussi : agresseur, victime, lieu, durées, causes envisagées, conséquences objectivées, Solutions déjà entreprises, solutions à prévoir, nombre objectivé, nombre estimé… etc.).
Je soumets mes 4 problèmes séparément, ce serait sympa si vous pouviez me donner des solutions de manipulations dans ACCESS 2010 , avec ou sans code VBA:
1. Le Chef d'Établissement (ou l'enquêteur) qui saisit peut ne signaler que des violences verbales seules, ou violences verbales accompagnées de violences physiques par exemple. La case violence seule de chaque type de violence existe en-tête de chaque liste déroulante (verbale, physique, morale, socioéconomique, ou sexuelle), et par exemple, je voudrais qu'en cochant cette case "violence verbale seule", cela interdise l'ouverture des champs des 4 autres listes déroulantes (physique, morale, socioéconomique, ou sexuelle). Comment serait-ce possible ?

[Jeannot45]

Imaginons que tes listes soient nommées : cboVerbale, cboPhysique, cboMorale, cboSociale, ou cboSexuelle
Ne sachant pas comment sont alimentées tes listes, je vais utiliser l'expression "violence verbale seule" comme critère.

Tu pourrais donc envisager une petite procédure sur l'événement Après MAJ de la première liste déroulante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub cboVerbale_AfterUpdate()
    If Me.ActiveControl = "violence verbale seule" Then
     If Me.ActiveControl = 12 Then
        Me.cboPhysique.Enabled = False
        Me.cboMorale.Enabled = False
        Me.cboSociale.Enabled = False
        Me.cboSexuelle.Enabled = False
    Else
        Me.cboPhysique.Enabled = True
        Me.cboMorale.Enabled = True
        Me.cboSociale.Enabled = True
        Me.cboSexuelle.Enabled = True
    End If
 
End Sub

Bonne continuation

[alainmante]

Merci, je vais essayer mais tu demandes comment est alimenté ma liste 1. elle est limitée mais avec plusieurs choix possibles 2. "Violence verbale seule" est l'intitulé de la première case à cocher et pas du champ. La case à cocher c'est toujours la toute première de la liste quelle que soit la nature de la violence, de fait dans ton VBA où tu inscrit 12, je devrais mettre 1 ? Merci Beaucoup et meilleurs vœux !

[Jeannot45]

dans ton VBA où tu inscrit 12, je devrais mettre 1 ?

tout à fait, j'ai oublié de corrigé lors de la recopie de mon test... Je suis désolé

Meilleurs voeux