Discussion :

[jmde]

Bonjour,

Dans un formulaire j’ai un groupe d’option nommé cadre48.

Sur l’une des options j’ai mis le MsgBox suivant:

Code :

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

1
2
3
4
5
6
7
Private Sub Cadre48_AfterUpdate()
    If Me!Cadre48 = 7 Then
       MsgBox "Veuillez vérifier le choix de la  liste déroulante" _
                & vbCrLf & vbCrLf & "et le modifier si nécessaire."
                ,,,,,,,,,
               ,,,,,,,,,,
    End if

Sur le même formulaire j’ai une liste déroulante nommé cmbChoix qui appelle le Cadre48_AfterUpdate

Code :

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

1
2
3
Private Sub cmbChoix_Click()
   Call Cadre48_AfterUpdate
End Sub

Seulement le message et actionné deux fois, une fois lorsque j’active Me!Cadre48 = 7 et
une autre fois si je modifie le choix qui s’affiche par défaut sur la liste déroulante cmbChoix .

Et-il possible lorsque j’active la liste déroulante cmbChoix de faire démarrer le code après le
Message MsgBox ?

Merci pour votre aide.

Salutations

[User]

Bonsoir,

Vous pourriez tester si le contrôle actif est bien "Cadre48" :

Code :

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

1
2
3
4
5
6
7
Private Sub Cadre48_AfterUpdate()
    If (Me!Cadre48 = 7) and (Me.ActiveControl.Name="Cadre48")  Then
       MsgBox "Veuillez vérifier le choix de la  liste déroulante" _
                & vbCrLf & vbCrLf & "et le modifier si nécessaire."
                ,,,,,,,,,
               ,,,,,,,,,,
    End if

Cdlt,