Çarpıdan Formu Kapatmak

Hocam çok yardımcı oldunuz. Bunun için size çok, çok teşekkür ediyorum.

Arkadaşlar konuyu taşıyabilirsiniz saygılarımla sağlıklı günler diliyorum.

Rica ederim,24.mesajdaki kodları silip UserForm_Initialize yazarsanız düzelir sanıyorum.

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


Hocam UserForm1 Değiştir ve sil Butonuna InputBoxa şifre girerek veriyi değiştiriyorum veya siliyorum 

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

Benim istediğim yanlış şifre girdiğimiz zaman YANLIŞ ŞİFRE UYARISI versin Tamamı tıkladığımız zaman tekrar InputBox açılsın. Tekrar şifre girmek için.

Rica ederim.Konuya ancak akşam geç vakitte bakabilirim.
Şöyle olabilir.

Eğer şifre yanlışsa tekrar başa git gibi.
Mesela

Git:
Sifre=inputbox
İf sifre=yanlışsa goto Git

Böyle olabilir tabii kodu öylesine örnek olarak yazdım buna göre uyarlamayı deneyebilirdiniz benim incelememe kadar.
Tabii 3  kere yanlış girilirse kapatılabilirde.

(04/05/2020, 03:08)m_demir yazdı: Çok Teşekkürler Hocam ellerinize sağlık.


Hocam UserForm1 Değiştir ve sil Butonuna InputBoxa şifre girerek veriyi değiştiriyorum veya siliyorum 

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

Benim istediğim yanlış şifre girdiğimiz zaman YANLIŞ ŞİFRE UYARISI versin Tamamı tıkladığımız zaman tekrar InputBox açılsın. Tekrar şifre girmek için.

Dediğiniz kod bloğunu eklerseniz buraya mobildrn yapabilirim.Akşama kadar bilgisayar açma imkanım yok.

Hocam kodu ekliyorum. Akşam baksanız da olur. Acelesi yok.

 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İ !!!"