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>
50 lines
2.3 KiB
Plaintext
50 lines
2.3 KiB
Plaintext
Dim accessApp
|
|
Set accessApp = CreateObject("Access.Application")
|
|
|
|
accessApp.OpenCurrentDatabase "C:\Users\alexi\Documents\projects\timetrack-pro\db\TimeTrackPro.accdb"
|
|
accessApp.Visible = False
|
|
|
|
On Error Resume Next
|
|
|
|
' Fix frm_Clients
|
|
accessApp.DoCmd.OpenForm "frm_Clients", 2, , , , 1 ' acDesign, Hidden
|
|
WScript.Sleep 500
|
|
accessApp.Forms("frm_Clients").RecordSource = "tbl_Clients"
|
|
accessApp.Forms("frm_Clients").Controls("txtNom").ControlSource = "Nom"
|
|
accessApp.Forms("frm_Clients").Controls("txtEmail").ControlSource = "Email"
|
|
accessApp.Forms("frm_Clients").Controls("txtTelephone").ControlSource = "Telephone"
|
|
accessApp.Forms("frm_Clients").Controls("txtNotes").ControlSource = "Notes"
|
|
accessApp.DoCmd.Close 2, "frm_Clients", 1
|
|
If Err.Number = 0 Then WScript.Echo "frm_Clients fixed" Else WScript.Echo "Error frm_Clients: " & Err.Description
|
|
Err.Clear
|
|
|
|
' Fix frm_Projets
|
|
accessApp.DoCmd.OpenForm "frm_Projets", 2, , , , 1
|
|
WScript.Sleep 500
|
|
accessApp.Forms("frm_Projets").RecordSource = "tbl_Projets"
|
|
accessApp.Forms("frm_Projets").Controls("cboClient").ControlSource = "ClientID"
|
|
accessApp.Forms("frm_Projets").Controls("txtNom").ControlSource = "Nom"
|
|
accessApp.Forms("frm_Projets").Controls("txtDescription").ControlSource = "Description"
|
|
accessApp.Forms("frm_Projets").Controls("txtTauxHoraire").ControlSource = "TauxHoraire"
|
|
accessApp.Forms("frm_Projets").Controls("chkActif").ControlSource = "Actif"
|
|
accessApp.DoCmd.Close 2, "frm_Projets", 1
|
|
If Err.Number = 0 Then WScript.Echo "frm_Projets fixed" Else WScript.Echo "Error frm_Projets: " & Err.Description
|
|
Err.Clear
|
|
|
|
' Fix frm_SaisieTemps
|
|
accessApp.DoCmd.OpenForm "frm_SaisieTemps", 2, , , , 1
|
|
WScript.Sleep 500
|
|
accessApp.Forms("frm_SaisieTemps").RecordSource = "tbl_Temps"
|
|
accessApp.Forms("frm_SaisieTemps").Controls("cboProjet").ControlSource = "ProjetID"
|
|
accessApp.Forms("frm_SaisieTemps").Controls("txtDate").ControlSource = "Date"
|
|
accessApp.Forms("frm_SaisieTemps").Controls("txtDuree").ControlSource = "Duree"
|
|
accessApp.Forms("frm_SaisieTemps").Controls("txtDescription").ControlSource = "Description"
|
|
accessApp.DoCmd.Close 2, "frm_SaisieTemps", 1
|
|
If Err.Number = 0 Then WScript.Echo "frm_SaisieTemps fixed" Else WScript.Echo "Error frm_SaisieTemps: " & Err.Description
|
|
Err.Clear
|
|
|
|
accessApp.CloseCurrentDatabase
|
|
accessApp.Quit
|
|
|
|
WScript.Echo "All forms fixed!"
|