Skip to main content

AccessTr.neT


şifre ile giriş

şifre ile giriş

Çözüldü #1
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
@benbendedeilem
Cevapla
Çözüldü #2
If sonuc = Time() Then
şeklinde bir deneyin ayrıca metin kutusu giriş maskesine dikkat edin saat olarak ayarlayın deneyin kolay gelsin
Cevapla
Çözüldü #3
hızlı cevabınız için çok teşekkürler
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da