Çekiliş ile 2 Adet Microsoft Excel Kitabı Hediye Edilecektir. Ayrıntılı Bilgi İçin [Tıklayınız]

ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
14/12/2008 17:10
Konu Sahibi
Redgreen
Yorumlar
5
Okunma
2267
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

Redgreen

Aktif Üye
Kullanici Avatari
Aktif Üye
108
19/11/2008
0
Ankara
Ofis 2003
12/10/2013,01:32
Çözüldü 
Option Explicit
'-----------
' Simple Password Protection Routine
' Developed by: Candace L. Tripp
' ctripp1@earthlink.net
'-----------

Private Sub Form_Load()

gOkToClose = False
' number of tries
gintPasswordFlag = 1

End Sub



Burada SIMON'la alttaki butona geçiş yapıyor. 1 ve arttırdığımız rakamlarla forma giriş yapıyor. Ben bu 1 ve artan rakamlarıda sabit bir şifre yapmak istiyorum.Kodun içinde nereyi değiştirmeliyim.

Saygılar,
MG



Private Sub Form_Unload(Cancel As Integer)

If Not gOkToClose Then
Cancel = True
End If

End Sub

Private Sub PASSWORD_AfterUpdate()
On Error GoTo err_PASSWORD_AfterUpdate

If Me![PASSWORD] = "SIMON" Then
gOkToClose = True
Forms!frmForm!cmdSomething.Enabled = True
Forms!frmForm!cmdSomething.SetFocus
DoCmd.Close A_FORM, "frmPassword"
Else
' give them three shots at getting it right
Select Case gintPasswordFlag
Case 1 To 2
DoCmd.Beep
MsgBox "Incorrect password", 1, "Password"
gintPasswordFlag = gintPasswordFlag + 1
Case Else
DoCmd.Beep
DoCmd.OpenForm "frmSplashScreen"
End Select
End If

exit_PASSWORD_AfterUpdate:
Exit Sub

err_PASSWORD_AfterUpdate:
MsgBox "Error " & Err & ": " & Error$, 0, "Password"
Resume exit_PASSWORD_AfterUpdate

End Sub


Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.109
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
Bugün,13:05
Çözüldü 
Siz tam olarak ne yapmak istiyorsunuz? Belli bir şifre doğru olunca bir Butona geçiş yapsın daha sonrada istediğiniz Formu mu açsın? Çünkü yukarıda ki kod da sizin dediğiniz gibi bir durum yok. Eğer şifre SIMON ise ... değilse deneme miktarını depoluyor gibi görünüyor.


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

Redgreen

Aktif Üye
Kullanici Avatari
Aktif Üye
108
19/11/2008
0
Ankara
Ofis 2003
12/10/2013,01:32
Çözüldü 
(14/12/2008, 17:25)alpeki99 Adlı Kullanıcıdan Alıntı: Siz tam olarak ne yapmak istiyorsunuz? Belli bir şifre doğru olunca bir Butona geçiş yapsın daha sonrada istediğiniz Formu mu açsın? Çünkü yukarıda ki kod da sizin dediğiniz gibi bir durum yok. Eğer şifre SIMON ise ... değilse deneme miktarını depoluyor gibi görünüyor.


SİMON yazınca alttaki butona geçmek sonra o butonla (x) formunu açmak.
16+ yazınca (y) formunu açmak istiyorum.

Bunu örneğin şifrenin birini ana forma giriş için kullanmak , diğerini örneğin veri tabanına yani tasarım yapabileceğim yere giriş için kullanmak istiyorum.yani sonuçta iki şifre olacak birini sadece ben bileceğim.

Saygılar,
MG


Ek Dosyalar
.mdb   password2k.mdb (Dosya Boyutu: 184 KB / İndirme Sayısı: 6)
Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.109
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
Bugün,13:05
Çözüldü 
Tam tahmin ettiğim gibi SIMON yazarsanız sadece Şifreyi doğru kabul edip pasif olan butonu aktif yapıyor. O butonun tıklama olayında hangi form varsa onu açıyor. Eğer 3 defa hata yaparsanız kapatıyor.

Formda bu istediğiniz ile ilgili 5-6 tane konu ve içlerinde de en az 10 örnek dosya vardır. Öğrenebilmeniz adına önce o konuları okumanızı tavsiye ederim Yoksa istediğiniz şey çok basit. İpucu : If .. ElseIf .. Else ..End If kullanabilirsiniz.


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

Redgreen

Aktif Üye
Kullanici Avatari
Aktif Üye
108
19/11/2008
0
Ankara
Ofis 2003
12/10/2013,01:32
Çözüldü 
ok teşekürler
Private Sub cmdSomething_Click()
On Error GoTo Err_cmdSomething_Click

MsgBox "????????????????????????????????????????????"
Forms!frmForm!cmdDo.SetFocus
Forms!frmForm!cmdSomething.Enabled = False

Exit_cmdSomething_Click:
Exit Sub

Err_cmdSomething_Click:
MsgBox Err.Description
Resume Exit_cmdSomething_Click

End Sub

cmdSomething butonuna bastığımda ???????? mesajını yazmasın beni bir forma yönlendirsin istiyorum.Fazlalıkları neler acaba....
Private Sub cmdSomething_Click()
On Error GoTo Err_cmdSomething_Click

Dim stDocName As String
stDocName = "ana"
cmdSomething.OpenForm stDocName

Exit_cmdSomething_Click:
Exit Sub
End Sub


Bu kadar kısalttım hala girmiyor..


Cevapla

Redgreen

Aktif Üye
Kullanici Avatari
Aktif Üye
108
19/11/2008
0
Ankara
Ofis 2003
12/10/2013,01:32
Çözüldü 
TAMAM BEN HALLETTİM.TEŞEKÜRLER.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Şifre Değiştirme metin02 8 255 15/11/2017, 19:11 metin02
Çözüldü Openform Değişken Tanımlama ati4190 2 69 13/11/2017, 00:37 ati4190
Çözüldü Access Veri Aktarımı Şifre Problemi erdal21 4 237 21/09/2017, 21:06 erdal21
Çözüldü Veri Silerken Şifre Sorma serkan1985 4 488 27/05/2017, 01:44 serkan1985
Çözüldü Accesste Seçilen Resim Sabit-Diğer Resimler Random Nasıl Yapılır? mehami 6 782 17/04/2017, 13:02 mehami
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.