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.

Visual Basic Code
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

Visual Basic Code
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70



şeklindeki kodları

Visual Basic Code
  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