[AC-2003] Exécuter une requête si .. [Résolu]

[jeanpierre78]

Bonjour,

Grâce à votre aide, bien que je ne connaisse rien en code, j'ai réussi à créer un bouton qui lance une requête avec une boîte de dialogue OUI/NON :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Commande129_Click()
Dim Msg, Style, Response, MyString
 
    Msg = " Voulez-vous poursuivre la mise à jour des cautions acquises par le Club? 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"
 
    Else
       MsgBox "Vous avez cliqué sur Non. La mise à jour est abandonnée.", vbInformation
 
    End If
End Sub

J'aimerais que cette action puisse être lancée seulement en Août et Septembre. En dehors de cette période, un message indique "Vous ne pouvez faire la mise à jour qu'en août ou septembre." et l'action est alors abandonnée.

Comment faire?

Merci d'avance.

Jean-Pierre

[jeanpierre78]

Bonjour,

A force de tatonnements et d'erreurs j'ai trouvé :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
If Format(date, "w") < 39 Then
    If Format(date, "w") > 30 Then
 
        Dim Msg, Style, Response, MyString
 
        Msg = " Voulez-vous poursuivre la mise à jour des cautions acquises par le Club? 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"
 
            Else
                MsgBox "Vous avez cliqué sur Non. La mise à jour est abandonnée.", vbInformation
 
        End If
            Else
                MsgBox "La mise à jour des cautions clés acquises par le Club doit se faire fin août."
    End If
End If

Jean-Pierre