Veri Silme - Baskı Önizleme

Veri Silme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Silme (/konu-veri-silme.html)

Sayfalar: 1 2

Cvp: Veri Silme - mehmetdemiral - 04/10/2018

Komut5 yordamını şöyle yapın

Private Sub Komut5_Click()
DoCmd.Close acForm, "Form1"
DoCmd.OpenForm "Form1"

DoCmd.SetWarnings False

DoCmd.OpenQuery "SilmeSorgusu"
DoCmd.Close acForm, "Form1"
DoCmd.SetWarnings True

End Sub

Cvp: Veri Silme - notrino - 04/10/2018

(04/10/2018, 18:36)mehmetdemiral yazdı: Komut5 yordamını şöyle yapın

Private Sub Komut5_Click()
DoCmd.Close acForm, "Form1"
DoCmd.OpenForm "Form1"

DoCmd.SetWarnings False

DoCmd.OpenQuery "SilmeSorgusu"
DoCmd.Close acForm, "Form1"
DoCmd.SetWarnings True

End Sub

Teşekkürler, evet gayet kullanışlı bir çözümmüş sizinki de. Bulduğum bir başka çözüm de şu;

Kod:

Private Sub Komut5_Click()

If Me.Alt0.Form.RecordsetClone.RecordCount > 0 Then CurrentDb.Execute "DELETE Tablo1.* FROM Tablo1"

DoCmd.Close acForm, "Form1"

End Sub

Sizin kodlamadaki "Setwarnings" komutunun işlevi tam olarak nedir? Bilmediğim bir kod bu. Neyi True-False yapıyor bu komut?

Cvp: Veri Silme - mehmetdemiral - 04/10/2018

Eylem sorgunuzun uyarılarını kapatıp açıyor.