Silmeden önce şifre isteme hk
Tarih
31/01/2009 13:34
Konu Sahibi
osman06
Yorumlar
12
Okunma
3442
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
osman06
Aktif Üye
Kullanici Avatari
Aktif Üye
233
22/11/2008
0
Ankara
Ofis 2003
04/10/2016,23:18
Çözüldü 
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

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.062
29/10/2008
Ordu
Ofis 2013 32 Bit
Dün,15:58
Çözüldü 
Sponsor Reklam
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

osman06
Aktif Üye
Kullanici Avatari
Aktif Üye
233
22/11/2008
0
Ankara
Ofis 2003
04/10/2016,23:18
Çözüldü 
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

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.757
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Bugün,09:55
Çözüldü 
Sponsor Reklam
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

osman06
Aktif Üye
Kullanici Avatari
Aktif Üye
233
22/11/2008
0
Ankara
Ofis 2003
04/10/2016,23:18
Çözüldü 
hocam tşk elinize sağlık
Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.757
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Bugün,09:55
Çözüldü 
Sponsor Reklam
Yazdılarınızı görmeden yazmışım. Pardon.
İnadına, ille de Accesstr.net...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Veri Silerken Şifre Sorma serkan1985 4 92 27/05/2017, 01:44 serkan1985
  Silinen Şifre Giriş formunun tekrar dahil edilmesi sesim2002 8 189 03/04/2017, 12:38 sesim2002
  Access Kırılamayan Şifre (Tartışma Konusu) oornek 20 580 27/12/2016, 16:12 oornek
  Şifre değiştirme sorunu m_demir 2 211 18/10/2016, 11:51 m_demir
  Şifre formu eklemek istiyorum IceMan7 12 793 02/07/2016, 09:18 ozanakkaya


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status