dediğinizden anladıgım kadarıyla,sanırım burayı diyorsunuz.


kodu bu şekilde yap

Private Sub Command33_Click()


   
   


Form.HAREKETDETAY.Locked = False
Form.AllowDeletions = True
Form.AllowEdits = True
MsgBox "Kilit açıldı"
  DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE tbl_gecici.* FROM tbl_gecici;"


DoCmd.OpenQuery "srg_geciciekle", acViewNormal, acEdit

Forms!HAREKETLER.HAREKETDETAY.Form.RecordSource = "tbl_gecici"
DoCmd.SetWarnings True
End Sub
..........................
yani başına 
  DoCmd.SetWarnings False
 sonuna 

DoCmd.SetWarnings True

ekleyin