AccessTr.neT

Bul · 04/10/2018, 18:36

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

Bul · 04/10/2018, 20:10

(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?

Bul · 04/10/2018, 23:49

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

AccessTr.neT

Veri Silme

Veri Silme

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri