AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Veri Silme

1 2
04/10/2018, 18:36

mehmetdemiral

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, 20:10

notrino

(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?
04/10/2018, 23:49

mehmetdemiral

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