DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Form_Open()
Me.[alt form adı].Form.Visible = False
End Sub
Private Sub Komut_Click()
Dim strPasswd
strPasswd = InputBox("Şifreyi Giriniz!!", "Şifre Bölümü")
If strPasswd = "" Or strPasswd = Empty Then
Me.[alt form adı].Form.Visible = False
MsgBox "Herhangi Bir giriş yazılmadı", vbInformation, "Giriş Zorunlu"
Exit Sub
End If
If strPasswd = "[COLOR="Red"]şifre[/COLOR]" Then
Me.[alt form adı].Form.Visible = True
Else
Me.[alt form adı].Form.Visible = False
MsgBox "Bu formu açamazsınız!!", _
vbOKOnly, "İzniniz yok"
Exit Sub
End If
End Sub
Bu cevap hangi mesaj içindi? 2 dk sonra olduğu düşünülürse bana değildi sanırımevet dediğiniz mantıktan giderek denedim. benim altformum visible/invisible foksiyonluydu, ihtiyaç üzere şifre koymak zorunda kaldım. burada sunulan şifre örneklerinden de tablo+form+kodları ekleme çalıştım ancak bol bol debug hatası ile karşılaştım. hangi satırı düzelttiysem para etmedi. suan evdeyim yarın sabahtan koyarım. yardımlarınız için şimdiden teşekkürler.
Merhabalar;
Biraz daha geliştirelim ve form açmak yerine inputbox ile şifreyi sorsun ve bu şifre boş ya da yanlışsa uyarı versin ve form görünmesin doğru olursa altformumuz görünsün....
Açılıştan altform gizli gelsin, ana formun open olayına aşağıdaki kodu yazalım
kardeş bu kodu "ana formun" açıldığında olayına ekledim ama "açıldığında deyimi hataye neden oldu" uyarısıyla formu hiç açmadı birkaç değişiklik yaptım ama nafile. senin yöntemini de örnekte gösterebilirsen güzel bir alternatif uygulama olacakKod:Private Sub Form_Open() Me.[alt form adı].Form.Visible = False End Sub
tşk
Private Sub Değiştir37_Click()
Dim strPasswd
strPasswd = InputBox("Şifreyi Giriniz!!", "Şifre Bölümü")
If strPasswd = "" Or strPasswd = Empty Then
Me.SMBF_Altform.Form.Visible = False
MsgBox "Herhangi Bir giriş yazılmadı", vbInformation, "Giriş Zorunlu"
Me.İŞ_BİTTİ = False
Exit Sub
End If
If strPasswd = "beab" Then
Me.SMBF_Altform.Form.Visible = True
Else
Me.SMBF_Altform.Form.Visible = False
MsgBox "Bu formu açamazsınız!!", _
vbOKOnly, "İzniniz yok"
Me.İŞ_BİTTİ = False
Exit Sub
End If
End Sub