Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
31/01/2009 13:34
Konu Sahibi
osman06
Yorumlar
12
Okunma
4375
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
 45
 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.120
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 30/08/2018,18:18
Çö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
 45
 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.890
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 18/09/2018,22:27
Çö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
 45
 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.890
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 18/09/2018,22:27
Çö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ü Kullanıcı Şifre Değiştirme oosmaner 1 158 15/05/2018, 17:34
Son Yorum: emir ustaoğlu
Çözüldü Şifre İle Giriş melek82 2 237 18/04/2018, 14:47
Son Yorum: melek82
Çözüldü Kullanıcı Şifre Oluşturma cngzylmz 5 422 27/03/2018, 17:08
Son Yorum: salih demir
Çözüldü Şifre Değiştirme metin02 8 543 15/11/2017, 19:11
Son Yorum: metin02
Çözüldü Access Veri Aktarımı Şifre Problemi erdal21 4 409 21/09/2017, 21:06
Son Yorum: erdal21

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