s.a.


Gelen Evrak Giriş Formu üzerinde bir buton sayesinde Gelen tablomdaki bütün kayıtları silmek istiyorum. bununla ilgili koda ihtiyacım var. silerkende şifre sorsun . onaylanırsa silsin. Yardımlarınız için şimdiden teşekkür ederim

A.S.
formumuzun arama kısmını kullanırsanız bu konuda ne kadar örnek oldugunu görürdünüz.

s.a.[/font]

Private Sub Komut12_Click()
On Error GoTo Err_Komut12_Click
Dim sifre As String
sifre = "www.accesstr.net"
If InputBox("Silme Şifresini Giriniz") = sifre Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
MsgBox "Hatalı Şifre"
Exit Sub
End If

Exit_Komut12_Click:
Exit Sub

Err_Komut12_Click:
MsgBox Err.Description
Resume Exit_Komut12_Click


bu kod tam bana göre üstad. yalnız tüm kayıtları nası seçtirebiliriz ve inputbox ın form başlığını nasıl değiştirebilirim. microsoft offise Access değilde kayıtları silme şifresi diye

Sub TabloTemizle()

    Dim strSQL As String

    Dim db As Database

    Set db = CurrentDb

    

        DoCmd.SetWarnings False

            

        strSQL = "DELETE * FROM TABLOADI;"

        db.Execute strSQL

            

        DoCmd.SetWarnings True

        Set db = Nothing

End Sub

TABLOADI yerine silinmesini istediğin tabloyu yaz.

butonun tıklandığında olayına

 call tablotemizle

şeklinde kullanabilirsin.

Sayın sledgeab;

İyi geceler...

Katkınız için teşekkürler..

kaydet sil gibi tam kodlara ihtiyacım tam anlamıyla bulamıyorum yardımcı olyrmusunuz