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>
39 lines
1.1 KiB
Plaintext
39 lines
1.1 KiB
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 = False
|
|
|
|
' Ouvrir le formulaire en mode normal
|
|
accessApp.DoCmd.OpenForm "frm_Accueil", 0 ' acNormal
|
|
|
|
WScript.Sleep 1000
|
|
|
|
' Essayer d'appeler directement la procedure
|
|
accessApp.Run "Form_frm_Accueil.btnClients_Click"
|
|
|
|
If Err.Number <> 0 Then
|
|
WScript.Echo "Erreur lors de l'appel: " & Err.Number & " - " & Err.Description
|
|
Err.Clear
|
|
End If
|
|
|
|
WScript.Sleep 2000
|
|
|
|
' Lire le log si créé
|
|
Dim fso
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
If fso.FileExists("C:\Users\alexi\Documents\projects\timetrack-pro\button_log.txt") Then
|
|
Dim logFile
|
|
Set logFile = fso.OpenTextFile("C:\Users\alexi\Documents\projects\timetrack-pro\button_log.txt", 1)
|
|
WScript.Echo "LOG CONTENT:"
|
|
WScript.Echo logFile.ReadAll()
|
|
logFile.Close
|
|
Else
|
|
WScript.Echo "Aucun fichier log cree - le code n'a pas ete execute"
|
|
End If
|
|
|
|
accessApp.Quit
|
|
Set accessApp = Nothing
|