Örnek ektedir.
Kod:
Private Sub btn_ONAYLA_Click()
'Sorgunun çalıştırılacağına dair uyarı mesajlarını kaldırır.
DoCmd.SetWarnings False
'Güncelleme sorgusunu çalıştırır
DoCmd.OpenQuery "Tumunu_Onaylama_Sorgusu"
'Uyarı mesajlarını açar.
DoCmd.SetWarnings True
'Formdaki kayıtları günceller
Me.Requery
End Sub