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>
13 lines
291 B
Plaintext
13 lines
291 B
Plaintext
Dim accessApp
|
|
Set accessApp = GetObject(, "Access.Application")
|
|
|
|
On Error Resume Next
|
|
accessApp.Run "mod_FixFormBindings.FixAllFormBindings"
|
|
|
|
If Err.Number <> 0 Then
|
|
WScript.Echo "Error: " & Err.Description
|
|
WScript.Quit 1
|
|
Else
|
|
WScript.Echo "Success! Form bindings fixed."
|
|
End If
|