Expand|Select|Wrap|Line Numbers
- Option Compare Database
- Option Explicit
- Function updateShftDate()
- On Error GoTo Macro6_Err
- DoCmd.SetWarnings False
- DoCmd.OpenQuery "qryShiftDate", acViewNormal, acEdit
- Macro6_Exit:
- Exit Function
- Macro6_Err:
- MsgBox Error$
- Resume Macro6_Exit
- DoCmd.SetWarnings False
- End Function
Expand|Select|Wrap|Line Numbers
- DoCmd.OpenQuery
Expand|Select|Wrap|Line Numbers
- currentDb.Execute
Expand|Select|Wrap|Line Numbers
- DoCMd.SetWarning
Expand|Select|Wrap|Line Numbers
- You are about to run an update query that will modify your data in your table