Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
31/01/2009 13:34
Konu Sahibi
osman06
Yorumlar
12
Okunma
4225
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

osman06

Aktif Üye
Aktif Üye
 Belirtilmemiş
239
22/11/2008
0
Ankara
Ofis 2003
15/07/2018,15:58
Çö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



Kullanici Avatari

alpeki99

Düşünmek en zor iştir...
Uzman
OL....
 38
6.119
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
17/07/2018,11:58
Çö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.

Kullanici Avatari

osman06

Aktif Üye
Aktif Üye
 Belirtilmemiş
239
22/11/2008
0
Ankara
Ofis 2003
15/07/2018,15:58
Çö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



Kullanici Avatari

mehmetdemiral

.
Uzman
ME.... DE....
 53
4.804
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
16/07/2018,11:14
Çö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...

Kullanici Avatari

osman06

Aktif Üye
Aktif Üye
 Belirtilmemiş
239
22/11/2008
0
Ankara
Ofis 2003
15/07/2018,15:58
Çözüldü 
hocam tşk elinize sağlık



Kullanici Avatari

mehmetdemiral

.
Uzman
ME.... DE....
 53
4.804
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
16/07/2018,11:14
Çözüldü 
Yazdılarınızı görmeden yazmışım. Pardon.


İnadına, ille de Accesstr.net...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Şifre İle Giriş melek82 2 162 18/04/2018, 14:47
Son Yorum: melek82
Çözüldü Kullanıcı Şifre Oluşturma cngzylmz 5 372 27/03/2018, 17:08
Son Yorum: salih demir
Çözüldü Şifre Değiştirme metin02 8 441 15/11/2017, 19:11
Son Yorum: metin02
Çözüldü Access Veri Aktarımı Şifre Problemi erdal21 4 332 21/09/2017, 21:06
Son Yorum: erdal21
Çözüldü Veri Silerken Şifre Sorma serkan1985 4 602 27/05/2017, 01:44
Son Yorum: serkan1985

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.