şifre ile giriş - 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ığı: şifre ile giriş (/konu-sifre-ile-giris.html) |
şifre ile giriş - accessman - 29/03/2010 iyi günler Private Sub komut0_Click(Cancel As Integer) sonuc = InputBox("Parolayı yazınız", "accesstr.net") If sonuc = "accesstr.net" Then DoCmd.OpenForm "form2", acNormal Else MsgBox "Yanlış Şifre" End If End Sub bu kod ile butona şifre koymak istiyorum ama şifre dinamik olup sürekli değişmesini istediğimden saati şifre olarak kullanmak istiyorum yani saat 12:49 ise şifremiz 12:49 olsun saat 14:56 ise şifremiz 14:56 olacak If sonuc = "accesstr.net" Then satırını nasıl yazmam lazım teşekkürler Cvp: şifre ile giriş - C*e*l*o*y*c*e - 29/03/2010 If sonuc = Time() Then şeklinde bir deneyin ayrıca metin kutusu giriş maskesine dikkat edin saat olarak ayarlayın deneyin kolay gelsin Cvp: şifre ile giriş - accessman - 29/03/2010 hızlı cevabınız için çok teşekkürler |