+1 artan değerlerden kurtulma sabit bir şifre tanımlama - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: +1 artan değerlerden kurtulma sabit bir şifre tanımlama (/konu-1-artan-degerlerden-kurtulma-sabit-bir-sifre-tanimlama.html) |
+1 artan değerlerden kurtulma sabit bir şifre tanımlama - Redgreen - 14/12/2008 Option Explicit '----------- ' Simple Password Protection Routine ' Developed by: Candace L. Tripp ' [email protected] '----------- 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 Cvp: +1 artan değerlerden kurtulma sabit bir şifre tanımlama - alpeki99 - 14/12/2008 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. Cvp: +1 artan değerlerden kurtulma sabit bir şifre tanımlama - Redgreen - 14/12/2008 (14/12/2008, 17:25)alpeki99 yazdı: 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 Cvp: +1 artan değerlerden kurtulma sabit bir şifre tanımlama - alpeki99 - 14/12/2008 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. Cvp: +1 artan değerlerden kurtulma sabit bir şifre tanımlama - Redgreen - 14/12/2008 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.. Cvp: +1 artan değerlerden kurtulma sabit bir şifre tanımlama - Redgreen - 14/12/2008 TAMAM BEN HALLETTİM.TEŞEKÜRLER. |