Skip to main content

AccessTr.neT


Silmeden önce şifre isteme hk

Silmeden önce şifre isteme hk

Çözüldü #1
aşağıdaki silme koduna bi şifre vermek istiyorum silmeden önce şifre sorsun bi kaç deneme yaptım ama olmadı

Private Sub Komut82_Click()
On Error GoTo Err_Komut82_Click


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

Exit_Komut82_Click:
Exit Sub

Err_Komut82_Click:
MsgBox Err.Description
Resume Exit_Komut82_Click


End Sub
Cevapla
Çözüldü #2
Silme işlemini bir Prosedür veya fonksiyon olarak kaydedin. Silme butonuna tıklayınca soruyu sorsun If ile kontrol ettirin eğer cevap doğru ise Prosedürü çağırıp silme işlemini yaptırın eğer cevap yanlışsa zaten Else kısmına Ceyap yanlış diye bir mesaj verdirip silmeden kapatabilirsiniz.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
hocam aşağıdaki gibi bişey yaptım ama

Private Sub Komut82_Click()
DoCmd.GoToRecord , , acNewRec
Dim Şifre

Şifre = InputBox("Şifreniz")

Select Case Şifre


Case "SKM06"

End Select

On Error GoTo Err_Komut82_Click


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

Exit_Komut82_Click:
Exit Sub

Err_Komut82_Click:
MsgBox Err.Description
Resume Exit_Komut82_Click


End Sub
Cevapla
Çözüldü #4
Private Sub Komut82_Click()

sifre = "12345" 'şifreyi başka bir yerden almak isterseniz değişken tanımlayıp yapabilirsiniz.
On Error GoTo Err_Komut82_Click

cevap = InputBox("Lütfen şifreyi yazınız", vbOKOnly, "ŞİFRE GİRİN")
If cevap = sifre Then

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

Else
MsgBox "şifre kabul edilmedi", vbOKOnly, "ŞİFRE YANLIŞ"
End If
Exit_Komut82_Click:
Exit Sub

Err_Komut82_Click:
MsgBox Err.Description
Resume Exit_Komut82_Click
end sub
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #5
hocam tşk elinize sağlık
Cevapla
Çözüldü #6
Yazdılarınızı görmeden yazmışım. Pardon.
İnadına, ille de Accesstr.net...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task