Bunu kaldırmak için....
Set db = CurrentDb()
DoCmd.SetWarnings False 'Bu satırı ilave ederseniz sormayacaktır.
SQL = "Delete * FROM GECICI"
DoCmd.RunSQL SQL
Set db = CurrentDb()
DoCmd.SetWarnings False 'Bu satırı ilave ederseniz sormayacaktır.
SQL = "Delete * FROM GECICI"
DoCmd.RunSQL SQL