Update query problem (1 Viewer)

[sponsoraw]

Hi, it is probably very simple but I can work it out what is wrong. I've got a query initiated by a button on a form. That query should update fields based on what you choose from another field. For some reason I have to click twice on that button to see the changes on the form.

The code is:
Private Sub Equip_Data_Upd_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "equipment_update_qry", acViewNormal
DoCmd.Save
Forms![comp_statement_fm].Refresh
End Sub

Any ideas? I'm still a bit of a novice to do with VBA.
Thanks
Adrian

 

[jdraw]

One thing I notice is that you turn warnings off

DoCmd.SetWarnings False

but you do NOT turn them back on.
Suggest you add a line, before the End Sub

DoCmd.SetWarnings True

 

[sponsoraw]

Thanks, will add. Any ideas my the form don't show the changes and I have to click twice?