(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