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!"