2013-05-30 18 views
5

için DoCmd.RunSQL kullanıldığında, onaylamayı kaldırın Bir kullanıcının formda yaptığı eylemleri temel alarak INSERT ve DELETE kayıtlarına DoCmd.RunSQL yöntemini kullanıyorum. İyi çalışıyor ancak bir kaydı silmeden veya eklemeden önce bir onay istemektedir. Doğrulamayı nasıl kaldırabilirim.INSERT ve DELETE

Bu arada, BeforeDelConfirm olayı DoCmd.RunSQL ile çalışacak gibi görünmüyor.

+0

'Application.DisplayAlerts = False'? –

+1

Teşekkürler. Application.DisplayAlerts yalnızca Excel için olduğunu düşünüyorum. Yine de bir eşdeğer buldum. DoCmd.SetWarnings. Neden excel ve erişim açısından daha tutarlı olmadıklarını bilmiyorum. – jaromey

cevap

12

SQL'inizi çalıştırmak ve uyarılar hakkında endişelenmek için DoCmd.RunSql'u kullanmak yerine bunu kullanabilirsiniz.

Dim sql as string 
Dim dbs as DAO.Database 
set dbs = CurrentDb() 

sql = "INSERT INTO table(field1) VALUES(1)" 
dbs.Execute sql, dbFailOnError 

dbs.close 
set dbs = nothing 
+2

Teşekkür ederim. DoCmd.SetWarnings kullanarak bitti. Yine de yeni bir şey öğrendim, çünkü böyle bir SQL komutunu da kullanabileceğini bilmiyordum. – jaromey

+3

'SetWarnings' işlevinin kapatılması, bilgileri bastırır, bu nedenle sorun çıkarmayı zorlaştırabilir. (Ms-erişim ve SetWarnings için SO ara) 'Database.Execute', özellikle' dbFailOnError' seçeneği Zaider akıllıca dahil, daha iyidir. +1 – HansUp