StillHammer
7c3dd3fb31
- Test and helper VBS scripts for VBA MCP development - Technical reference documentation and PDFs - HTML form templates for all 5 forms - PowerShell and Python scripts for PDF/documentation generation Co-Authored-By: Claude Haiku 4.5 <noreply@anthropic.com>
25 lines
612 B
Plaintext
25 lines
612 B
Plaintext
On Error Resume Next
|
|
|
|
Dim accessApp
|
|
Set accessApp = CreateObject("Access.Application")
|
|
|
|
accessApp.OpenCurrentDatabase "C:\Users\alexi\Documents\projects\timetrack-pro\db\TimeTrackPro.accdb"
|
|
accessApp.Visible = True
|
|
|
|
' Ouvrir le formulaire Accueil
|
|
accessApp.DoCmd.OpenForm "frm_Accueil", 0 ' 0 = acNormal
|
|
|
|
WScript.Sleep 1000
|
|
|
|
' Declencher le clic sur le bouton
|
|
accessApp.Forms("frm_Accueil").btnClients.SetFocus
|
|
accessApp.Forms("frm_Accueil").btnClients_Click
|
|
|
|
WScript.Sleep 3000
|
|
|
|
' Attendre pour voir les messages
|
|
WScript.Echo "Test termine. Appuyez sur OK pour fermer."
|
|
|
|
accessApp.Quit
|
|
Set accessApp = Nothing
|