+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Çarpıdan Formu Kapatmak (/konu-carpidan-formu-kapatmak.html)
Re: Çarpıdan Formu Kapatmak - m_demir - 04/05/2020
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.
RE: Çarpıdan Formu Kapatmak - feraz - 04/05/2020
Rica ederim,24.mesajdaki kodları silip UserForm_Initialize yazarsanız düzelir sanıyorum.
Re: Çarpıdan Formu Kapatmak - m_demir - 04/05/2020
Ç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.
RE: Çarpıdan Formu Kapatmak - feraz - 04/05/2020
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.
RE: Çarpıdan Formu Kapatmak - feraz - 04/05/2020
(04/05/2020, 03:08)m_demir yazdı: Çok Teşekkürler Hocam ellerinize sağlık.Dediğiniz kod bloğunu eklerseniz buraya mobildrn yapabilirim.Akşama kadar bilgisayar açma imkanım yok.
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.
RE: Çarpıdan Formu Kapatmak - m_demir - 04/05/2020
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İ !!!"