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
(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?
Eylem sorgunuzun uyarılarını kapatıp açıyor.