Skip to main content

AccessTr.neT


Verileri silmek icin sifre sorsun

Verileri silmek icin sifre sorsun

Çözüldü #1
Merhabalar,
kaydi sil dugmesine bastigimda benden sifre sorsun sifrenin dogru girilmesi durumunda kayit silme islemi gerceklessin.

bunu nasil yapabiliriz acaba ?
.rar kayitsil.rar (Dosya Boyutu: 19,98 KB | İndirme Sayısı: 39)
moskovic, 18-01-2010 tarihinden beri AccessTr.neT üyesidir.

Access'e olan heyecanimi kabartan Tek Adres Burası...
Son Düzenleme: 08/11/2010, 15:01, Düzenleyen: moskovic.
Cevapla
Çözüldü #2
Sayın moskovic;
Aşağıdaki kodu düğmenin kodu ile değiştirin istediğiniz olacaktır.
Tabi bu programınızın diğer modülleri ile entegre edilebilir. Örneğin kullanıcı girişi modülünüz varsa oradaki şifreyi kullanabilirsiniz.
Kolay gelsin.


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
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
ek olarak

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70


şeklindeki kodları
  DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
şeklinde ayaparsan acces uyarısını kaldırmış olursun
Cevapla
Çözüldü #4
Teşekkürler Celoyce Hocam...
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da