Access Update query not running in VBA but runs manually

[ramedju]

This part of code executes after the user logs in in the system in Access.

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

I've also tried replacing the

DoCmd.OpenQuery

with

currentDb.Execute

but is not working either. When I tried to set the

DoCMd.SetWarning

to TRUE, it pops-up the Warning message saying

You are about to run an update query that will modify your data in your table

This does not work when called in Access VBA. But this runs when the query is manually ran.