AccessTr.neT

Merhabalar.

Ekli dosyada "YonetimGelirleri" tablosundaki kayıtları silmek için Form1'e eklediğim "SİL" komut düğmesine tıkladığımda, aşağıdaki hatayı alıyorum.

Çözümü konusunda değerli katkınızı bekliyorum.

Teşekkürler.

Private Sub Komut24_Click()
On Error GoTo Err_Komut24_Click
Dim cevap As Long

cevap = MsgBox("TÜMVERİLER SİLİNİYOR!!", vbYesNo + vbQuestion, "DİKKAT")
If cevap = vbYes Then
CurrentDb.Execute ("DELETE * FROM [YonetimGelirleri] ")
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction
Else
Cancel = True
End If
Exit_Komut24_Click:
Exit Sub

Err_Komut24_Click:
MsgBox Err.Description
Resume Exit_Komut24_Click

End Sub

Sayın PuLeTiN;

İlginiz ve kısa süredeki yanıtınız için teşekkürler.

Yeni yılınızı kutlar; 2009 yılını sevdiklerinizle beraber sağlıklı, mutlu, başarılı ve bol kazançlı geçirmenizi dilerim.