Discussion :

[frabeau]

Bonjour,

J'utilise le code suivant pour lancer ma requète de mise à jour, mais il ne fonctionne pas ("Trop peu d'élément attendu...")

Code :

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

1
2
3
Private Sub Commande125_Click() 
CurrentDb.Execute ("R MAJ TOUT COCHER"), dbFailOnError 
End Sub

Si quelqu'un a la solution...

[nico84]

Bonjour,

La syntaxe est plutot dans ce cas :

Code :

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

CurrentDb.QueryDefs("ma requete").Execute

[frabeau]

J'ai toujours le même message.
Pour info je lance ma requète depuis un formulaire.
Mon entête de formulaire me permet de filtrer les enregistrements.
Et je lance la requète pour que la mise à jour se fasse sur les enregistrements filtrés.

[Invité]

Bonjour
Question bête, mais la requête fonctionne t-elle?

[frabeau]

Oui elle fonctionne car pour l'instant je l'a lance via une macro.
Là je souhaitais passer en vba afin de rajouter un message d'alerte avant qu'elle soit lancé. Du style : "Souahitez-vous lancer ...".
A moins que l'on puisse rajouter ce message en passant par la macro.

[Beub']

Bonjour,

Si tu cherches simplement à convertir ta macro en VBA, va dans :
- Outil
- Macro
- Convertir les macro en Visual Basic

Je ne m'en suis servi qu'une ou deux fois, mais je pense que ça marchera dans ton cas. Tu n'auras qu'à ajouter ton message dans le code, une fois la conversion réalisée après.


Sinon, je ne sais pas comment tu appelles ta macro, mais si c'est une exécution lors d'un évènement genre "clic bouton" => "Macro" :
- Transforme l'évènement en "Procédure évènementielle".
- Affiche ta msg box
- Appelle ta macro.

ça donnerait qqc comme :

Code :

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

1
2
3
4
5
Private Sub Commande2_Click()
    If MsgBox("Msg de confirmation", vbOKCancel, "Titre") = vbOK Then
        DoCmd.RunMacro "Macro1"
    End If
End Sub

J'espère t'avoir renseigné.

Cordialement,
Beub'