[AC-2003] Boîte de dialogue OUI/NON [Résolu]

[jeanpierre78]

Bonjour,

Sur un bouton je lance une boîte de dialogue OUI/NON avec le code suivant :

Code :

1
2
3
4
5
6
7
8
Function tesmonmessage()
    If MsgBox("Voulez-vous poursuivre? Merci de choisir oui ou non", vbYesNo + vbInformation, "Message") = vbYes Then
       MsgBox "Vous avez cliquer sur Oui", vbInformation, "La mise à jour sera effectuée."
       DoCmd.OpenQuery "MàJ_cautions_Acquises"
    Else
       MsgBox "Vous avez cliquer sur Non", vbInformation, "La mise à jour est abandonnée."
    End If
End Function

Si l'on chois OUI je désire que la requête MàJ_cautions_Acquises s'éxécute, si NON il ne se produit rien. Au lancement l'action échoue.

Il me faut avouer que je suis nul en code. Où est l'erreur?

Jean-Pierre

[RobiPMS]

Bonjour.

Essaie ceci :
1. Dans les déclarations :

Code :

Dim Msg, Style, Response, MyString

2. La fonction :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Function tesmonmessage()
Msg = " Voulez-vous poursuivre? Merci de choisir oui ou non "    ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
Response = MsgBox(Msg, Style)
If Response = vbYes Then    ' L'utilisateur a choisi Oui.
       MsgBox "Vous avez cliqué sur Oui. La mise à jour sera effectuée.", vbInformation
       DoCmd.OpenQuery "MàJ_cautions_Acquises"
       Exit Function	
Else
       MsgBox "Vous avez cliqué sur Non. La mise à jour est abandonnée.", vbInformation
       Exit Function
End If
End Function

Je pense que ça devrait marcher!

[jeanpierre78]

Bonsoir,

Bravo et merci pour ta réponse. Grâce à ton aide j'ai réussi. En finale j'ai affecté le code suivant à mon bouton :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Commande130_Click()
On Error GoTo Err_Commande130_Click
 
    Dim stDocName As String
 
    stDocName = "Macros.Situation cautions (aperçu)"
    DoCmd.RunMacro stDocName
 
Exit_Commande130_Click:
    Exit Sub
 
Err_Commande130_Click:
    MsgBox Err.Description
    Resume Exit_Commande130_Click
 
End Sub

en ça fonctionne.

Jean-Pierre