' ide nešto ispred
WOF
 HON
 DoCmd.OpenQuery "QryNaziv1"
 DoCmd.OpenQuery "QryNaziv2"
 WON
 HOF
' ide nešto na kraju


dodatne funkcije potrebne

Function WON()
'Purpose: turns Warnings ON
    DoCmd.SetWarnings True
End Function

Function WOF()
'Purpose: turns Warnings OFF
    DoCmd.SetWarnings False
End Function

Function HON()
'Purpose: turns HourGlass ON
    DoCmd.Hourglass True
End Function

Function HOF()
'Purpose: turns HourGlass OFF
    DoCmd.Hourglass False
End Function