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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

osman06

Aktif Üye
 Belirtilmemiş
 45
 239
 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
 162
 6.134
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 01/02/2019,07:14
Çö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ş
 45
 239
 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....
 54
 218
 4.926
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 11/02/2019,21:56
Çö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ş
 45
 239
 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....
 54
 218
 4.926
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 11/02/2019,21:56
Çö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ı Adı Ve Şifre sercann 12 383 16/02/2019, 06:12
Son Yorum: XRumerTest
Çözüldü Şifre Giriş Formunda Hata Oğuz Türkyılmaz 6 291 24/12/2018, 12:43
Son Yorum: Oğuz Türkyılmaz
Çözüldü Form Açılışa Şifre Ekleme Bilgisayar Kullanıcı Adı Ve Şifresi İle Açılsın cozum 5 229 19/12/2018, 16:02
Son Yorum: cozum
Çözüldü Kullanıcı Şifre Değiştirme oosmaner 3 342 15/11/2018, 13:17
Son Yorum: oosmaner
Çözüldü Sorguyu Çalıştırmadan Önce Onaylama Yapmak İstiyorum alimadam 3 230 09/10/2018, 23:07
Son Yorum: alimadam

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