silme sorgusu

[arifbirgen]

Değerli hocalarım
Önce özür dilerim.Hocam beab05 uyarıda bulundu ayrı başlık altında cevap verdim.Dalgınlık 53 yaşındayım branşım bu konularla ilgili değil.Excel ve access
1.5 senedir öğrenmeye çalışıyorum işlerimi yapmada kolaylık sağlamakta.Tabiki
bu site ve sizlerin sayesinde.Cevaplarınızdan dolayı hepinize ayrı ayrı teşekkür ederim.Bir de ricam verilerin tümünü silmeden MsgBox uyarısı almak istiyorum.
Cevap verirseniz memnun olurum İyi çalışmalar.Başarı ve sağlık dilerim.

 

[beab05]

Merhaba ;
Düğmenin click koduna alttaki kodu yazınız;

Private Sub Command1_Click()
Dim cevap As Long

 cevap = MsgBox("TÜM VERİLER SİLİNİYOR!!", vbYesNo + vbQuestion, "dikkat")
        If cevap = vbYes Then
            CurrentDb.Execute ("DELETE * FROM [tablo1] ")
            Forms!Form1.Requery

        Else
            Cancel = True
        End If

End Sub

 

[hozzeybek]

syn beabo5 çok güzel bir kod teşekkürler
bu kodu veri tabanı bakımıyla birleştirince otomatik sayılar birden başlıyor.

 

[hozzeybek]

Bu şekilde yazarsak otomatik sayılar 1 den başlıyor.

Bu şekilde yazarsak otomatik sayılar 1 den başlıyor.

Private Sub Command1_Click()
Dim cevap As Long

cevap = MsgBox("TÜM VERİLER SİLİNİYOR!!", vbYesNo + vbQuestion, "dikkat")
If cevap = vbYes Then
CurrentDb.Execute ("DELETE * FROM [tablo1] ")
Call ShowWindow(Application.hWndAccessApp, SW_SHOW)
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction

Else
Cancel = True
End If

End Sub

accDoDefaultAction arada boşluk olmayacak bir türlü düzeltemedim kodda

 

[beab05]

Office 2007 de menu çubuğu farklı deneyemiyorum