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_Clients..."
accessApp.DoCmd.OpenForm "frm_Clients", 2  ' acDesign
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
WScript.Echo "frm_Clients done"

WScript.Sleep 500

WScript.Echo "Fixing frm_Projets..."
accessApp.DoCmd.OpenForm "frm_Projets", 2
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"
' Note: chkActif might not exist
On Error Resume Next
accessApp.Forms("frm_Projets").Controls("chkActif").ControlSource = "Actif"
On Error Goto 0
accessApp.DoCmd.Close 2, "frm_Projets", 1
WScript.Echo "frm_Projets done"

WScript.Sleep 500

WScript.Echo "Fixing frm_SaisieTemps..."
accessApp.DoCmd.OpenForm "frm_SaisieTemps", 2
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
WScript.Echo "frm_SaisieTemps done"

accessApp.CloseCurrentDatabase
accessApp.Quit

Set accessApp = Nothing

WScript.Echo "All forms fixed successfully!"