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>
42 lines
1.2 KiB
Plaintext
42 lines
1.2 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
|
|
|
|
WScript.Echo "Fixing frm_SaisieTemps..."
|
|
|
|
' Ouvrir en mode Design
|
|
accessApp.DoCmd.OpenForm "frm_SaisieTemps", 2 ' 2 = acDesign
|
|
WScript.Sleep 1000
|
|
|
|
' Fixer les bindings
|
|
accessApp.Forms("frm_SaisieTemps").RecordSource = "tbl_Temps"
|
|
WScript.Sleep 200
|
|
accessApp.Forms("frm_SaisieTemps").Controls("cboProjet").ControlSource = "ProjetID"
|
|
WScript.Sleep 200
|
|
accessApp.Forms("frm_SaisieTemps").Controls("txtDate").ControlSource = "Date"
|
|
WScript.Sleep 200
|
|
accessApp.Forms("frm_SaisieTemps").Controls("txtDuree").ControlSource = "Duree"
|
|
WScript.Sleep 200
|
|
accessApp.Forms("frm_SaisieTemps").Controls("txtDescription").ControlSource = "Description"
|
|
WScript.Sleep 200
|
|
|
|
' Sauvegarder et fermer
|
|
accessApp.DoCmd.Close 2, "frm_SaisieTemps", 1 ' 1 = acSaveYes
|
|
|
|
If Err.Number = 0 Then
|
|
WScript.Echo "frm_SaisieTemps fixed successfully!"
|
|
Else
|
|
WScript.Echo "Error: " & Err.Number & " - " & Err.Description
|
|
End If
|
|
|
|
' Cleanup
|
|
accessApp.CloseCurrentDatabase
|
|
accessApp.Quit
|
|
Set accessApp = Nothing
|
|
|
|
WScript.Echo "Done!"
|