InputBox İle Şifre Girmek

[yavuz829]

Merhaba Arkadaşlar

Eklenen kodlarla InputBoxa şifre girerek veriyi değiştiriyorum.

Yanlış şifre girdiğim zaman YANLIŞ ŞİFRE uyarısı veriyor. InputBox kapanıyor.

Benim Girişim yanlış şifre girdiğimiz zaman YANLIŞ ŞİFRE UYARISI versin tüm tıklamalı bizim zaman tekrar InputBox açılsın. Üye şifre girmek için.

Bu konuda yardımlarınıza ihtiyacım var.

 giris = InputBoxDK ("ŞİFRE GİRİNİZ.", "ŞİFRE PENCERESİ", "")
sifre = "676" 'tıklayınız buraya tanımlayınız.
Giris = "" ise
MsgBox "İŞLEMİ İPTAL ETTİNİZ"
Alt Çık
End If
Giris <> sifre ise
MsgBox "ŞİFRE YANLIŞ"
Alt Çık
End If
MsgBox "KAYITLAR DEĞİŞTİRİLDİ !!!"
[/ KOD]

 

[bmutlu966]

10
giris = InputBoxDK ("ŞİFRE GİRİNİZ.", "ŞİFRE PENCERESİ", "")
sifre = "676" 'tıklayınız buraya tanımlayınız.
Giris = "" ise
MsgBox "İŞLEMİ İPTAL ETTİNİZ"
Alt Çık
End If
Giris <> sifre ise
MsgBox "ŞİFRE YANLIŞ"
Go To 10
End If
MsgBox "KAYITLAR DEĞİŞTİRİLDİ !!!"

 

[yavuz829]

Çok teşekkürler Hocam ellerinize sağlık