Discussion :

[morobaboumar]

Bonjour membres du forum !

Le code suivant permet de contrôler une zone de liste déroulante en cas de modification:

Code :

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

1
2
3
4
5
6
Private Sub ListeClasseFrancais_Dirty(Cancel As Integer)
If MsgBox("ATTENTION !!" & vbCrLf & "VOULEZ-VOUS CHOISIR" & vbCrLf & "UNE AUTRE CLASSE ?", vbQuestion + vbYesNo + vbDefaultButton2, "CLASSE FRANÇAISE") = vbNo Then
    Cancel = True
    Me.ListeClasseFrancais.Requery
End If
End Sub

dans l'événement "si modification" de la zone de liste déroulante (Combobox) du formulaire.
Cependant, le code ci dessus ne renvoie aucun message d'erreur.
Constat: il ne marche pas.
Aidez moi à y trouver la solution.
Cordialement.

[tee_grandbois]

bonjour,
il ne faut pas confondre "Si modification" (Dirty) et "Après modification" (After_Update): Dirty ne se déclenche pas avec une zone de liste indépendante mais uniquement avec une zone de liste associée à un champ de la source (table ou requête) du formulaire: un choix dans une liste indépendante ne modifie pas une donnée si il n'y pas de source contrôle:



Je te conseille d'utiliser l'évènement "Après modification" (After_Update) ou "Sur Clic" (Click)

[morobaboumar]

Bonsoir tee_grandbois !
Bonsoir membres du forum !

Je viens d'appliquer le code à la zone de liste déroulante "ListeClasseFrancais" dont le contenu est
basé sur les éléments de la table "CLASSE_FRANCAIS".

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ListeClasseFrancais_Click()
Dim Cancel As Integer
If MsgBox("ATTENTION !!" & vbCrLf & "VOULEZ-VOUS CHOISIR" & vbCrLf & "UNE AUTRE CLASSE ?", vbQuestion + vbYesNo + vbDefaultButton2, "CLASSE FRANÇAISE") = vbNo Then
    'Me.ListeClasseFrancais = ""
    Cancel = True
    Me.ListeClasseFrancais.Requery
End If
 
End Sub

Voici les captures d'écran du résultat obtenu:





Mon objet est d'éviter le changement de donnée dans le cas où je clique sur le bouton "Non" de la boite de message qui s'affiche.
Sinon, accepter le changement de donnée en cas de clique sur le bouton "Oui" de la boite de message qui s'affiche.
Ce qui n'est pas le cas pour l'instant; le changement s'effectue dans les deux cas.

Quel est la solution ?

Cordialement.

[tee_grandbois]

il n'y a aucun effet sur le Cancel avec l'évènement Clic d'un contrôle indépendant. Il va falloir envisager une autre manière de faire.

[morobaboumar]

il n'y a aucun effet sur le Cancel avec l'évènement Clic d'un contrôle indépendant. Il va falloir envisager une autre manière de faire.

Bonsoir tee_grandbois !
Bonsoir membres du forum !

J'ai essayé avec Evénement BeforeUpdate ne marche pas non plus:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub classeFrancais_BeforeUpdate(Cancel As Integer)
'Dim Cancel As Integer
If MsgBox("ATTENTION !!" & vbCrLf & "VOULEZ-VOUS CHOISIR" & vbCrLf & "UNE AUTRE CLASSE ?", vbQuestion + vbYesNo + vbDefaultButton2, "CLASSE FRANÇAISE") = vbNo Then
    'Me.ListeClasseFrancais = ""
    Cancel = True
   ' Me.classeFrancais.Requery
End If
 
End Sub

Pièce jointe

Cordialement.

[tee_grandbois]

bonsoir,
que ce soit clair une bonne fois pour toutes: on ne peut pas modifier la valeur d'une liste déroulante (avant mise à jour ou encore moins sur clic) si celle-ci est indépendante.
Le code ci-dessous ne fonctionnera que si la liste déroulante est basée sur un champ de la table du formulaire, autrement dit: la propriété source contrôle de la liste doit être renseignée car il s'agit d'annuler la modification d'une donnée:

Code :

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

1
2
3
4
5
6
Private Sub classeFrancais_BeforeUpdate(Cancel As Integer)
If MsgBox("ATTENTION !!" & vbCrLf & "VOULEZ-VOUS CHOISIR" & vbCrLf & "UNE AUTRE CLASSE ?", vbQuestion + vbYesNo + vbDefaultButton2, "CLASSE FRANÇAISE") = vbYes Then
    Cancel = True
End If
 
End Sub

[morobaboumar]

Bonjour membres du forum !
Finalement, j'ai créé une requête interne à mon formulaire. Et ça marche.
Pièce jointe.
Merci infiniment tee_grandbois,
merci à toute la famille developpez.net.
Cordialement