Expand|Select|Wrap|Line Numbers
- Sub TestCommand_Click()
- Application.Echo False
- DoCmd.OpenModule "TestModule"
- Modules!TestModule.ReplaceLine 2, "TestString = " & now()
- DoCmd.Close acModule, "TestModule", acSaveYes
- Application.Echo True
- End Sub
TIA!