Silmeden önce şifre isteme hk
Tarih
31/01/2009 13:34
Konu Sahibi
osman06
Yorumlar
12
Okunma
3308
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ü 
Sponsor Reklam
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.020
29/10/2008
Ordu
Ofis 2013 32 Bit
11/01/2017,17:51
Çözüldü 
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ü 
Sponsor Reklam
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.737
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
09/01/2017,15:21
Çözüldü 
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ü 
Sponsor Reklam
hocam tşk elinize sağlık
Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.737
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
09/01/2017,15:21
Çözüldü 
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
  Access Kırılamayan Şifre (Tartışma Konusu) oornek 20 318 27/12/2016, 16:12 oornek
  Şifre değiştirme sorunu m_demir 2 138 18/10/2016, 11:51 m_demir
  Şifre formu eklemek istiyorum IceMan7 12 672 02/07/2016, 09:18 ozanakkaya
  Şifre ile Form Açma Hakkında notrino 2 252 10/05/2016, 09:16 notrino
Çözüldü Access kapanmadan önce veritabanı nasıl sıkıştırma ve onarma yaptırılır? mehmeser 11 4.904 02/04/2016, 12:22 atoz112


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