Exécuter une macro dans ACCESS

Question

J'ai une question à propos de l'accès 2000 ou 2003, je dois faire une macro qui ouvre le formulaire et clique automatiquement sur un bouton qui lance une requête, comment puis-je faire, peut m'aider pour faire ça ? Aucune suggestion ? mon idée est de lancer quelque chose comme ceci:

Sub Refreshfiledata() 
m = MsgBox("Are you sure you want to run this macro ?.", vbYesNo) 
If m = 6 Then 
Application.DisplayAlerts = False 
    SendKeys "{Enter}" 
    Application.DisplayAlerts = True 
     MsgBox "Done" 
    End If 
End Sub 

Answer 1

Sendkeys est presque jamais une solution à quoi que ce soit.

Vous pouvez mettre quelque chose comme ça dans un module:

Sub OpenAForm() 
    DoCmd.OpenForm "Form1" 
    Forms!Form1.cmdClick_Click 
End Sub 

qui renverrait à ce code sur form1, notez que le mot Private que Access ajoute habituellement avant Sub a été supprimé:

Sub cmdClick_Click() 
    ''For a query to display data 
    DoCmd.OpenQuery "Query1" 
    ''For a query to change data 
    CurrentDB.Execute "Query1", dbFailOnError 
End Sub 

Vous devrez modifier le code en fonction de votre configuration.