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