AccessTr.neT

Tam Versiyon: Form üzerindeki butonla verileri silme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
Sayfalar: 1 2