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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

osman06

Aktif Üye
 Belirtilmemiş
 239
 45
 22/11/2008
0
 Ankara
 
 Ofis 2003
 05/11/2018,09:34
Çö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

Uzman
OL....
 38
 6.137
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 06/11/2018,17:01
Çö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
 Belirtilmemiş
 239
 45
 22/11/2008
0
 Ankara
 
 Ofis 2003
 05/11/2018,09:34
Çö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.915
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 Dün,20:45
Çö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
 Belirtilmemiş
 239
 45
 22/11/2008
0
 Ankara
 
 Ofis 2003
 05/11/2018,09:34
Çözüldü 
hocam tşk elinize sağlık



Kullanici Avatari

mehmetdemiral

Uzman
ME.... DE....
 53
 4.915
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 Dün,20:45
Çö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 2 217 6 saat önce
Son Yorum: emirsara
Çözüldü Sorguyu Çalıştırmadan Önce Onaylama Yapmak İstiyorum alimadam 3 146 09/10/2018, 23:07
Son Yorum: alimadam
Çözüldü Şifremi Unuttum ve Yeni Şifre Belirleme Hakkında oosmaner 8 504 19/09/2018, 18:06
Son Yorum: ozanakkaya
Çözüldü Şifre İle Giriş melek82 2 277 18/04/2018, 14:47
Son Yorum: melek82
Çözüldü Kullanıcı Şifre Oluşturma cngzylmz 5 478 27/03/2018, 17:08
Son Yorum: salih demir

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