Forma ya da Altforma şifre koyulabilir mi?

[sulbas]

Merhaba arkadaşlar,

fiyat tekliflerinin girileceği bir baglı alt form sayfam var. ancak bu bağlı formun gizli olması gerekiyor ve baglı form düğmesine basıldığında önce şifre sormasını istiyorum.

access de böyle bir lüksümüz var mıdır?

tşk

 

[mehmetdemiral]

Form üzerindeki alt formun özelliğini görünmez yapın. Bu alt formu açmak için koyduğunuz düğme bir şifre formunu açsın. Şifre formunda şifre doğru girilince de bu şifre formu otomatik olarak kapanarak alt form için [alt_form_adi).Visible = True komutunu işletsin. Bu kadar... Ama yapamam derseniz kalıbı örnek olarak siz oluşturup gönderin, düzeltip gönderelim.. Kolay gelsin.

 

[beab05]

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

Private Sub Form_Open()

Me.[alt form adı].Form.Visible = False

End Sub

Daha sonra ana forma bir buton koyalım ve click olayına aşağıdaki kodları yazalım

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

Kırmızı yere belirlediğiniz şifreyi yazarsınız..

 

[sulbas]

evet 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.

 

[beab05]

evet 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.

Bu cevap hangi mesaj içindi? 2 dk sonra olduğu düşünülürse bana değildi sanırım

 

[sulbas]

) evet size değildi..bende gönderdiğimde görünce şaşırdım..

detaylı cevabınız için teşekkürler, bu kodu da deneyeceğim.

 

[sulbas]

merhaba arkadaşlar ancak geçebildim pc başına;

eklediğim uygulamada iş bitti kutusuna tıklandığında invisible olan "smbf_Altfom"u visible oluyor. istediğim şey kullanıcıadı/şifre ya da sadece şifre sorgulaması yaptıktan sonra altform açılsın. ama kayıtlara her bakıldıgında da "invisible" kalmaya devam etsin.

yardımlarınızı esirgemezseniz sevinirim.

tşk

P.S. @beab05 iftardan sonra verdiğin kodları uygulayacağım, buraya yazarım.

 

[beab05]

Merhaba;
Ben kendim uyguladım ve fena olmadı... Şifresi : beab

 

[sulbas]

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

Private Sub Form_Open()

Me.[alt form adı].Form.Visible = False

End Sub

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 olacak

tşk

 

[sulbas]

gene aynı anda yazmışız hemen inceliyorum çalışmanı. tşk

 

[sulbas]

kardeş buna veri girildikten sonra form kapatıldığında e/h işareti "e" olduğu için devamlı açık kalıyor. e malum fiyat verileri giriliyor.

buraya bir click düğmesi yapsak ve onun open olayına, senin kodu yazsak öyle daha şık olmaz mı ne dersin. ama bu sefer de alt formun her zaman için "default" olarak kapalı olması kodu mu lazım acaba?

 

[beab05]

Anlayamadım form kapatıldıktan sonra açılışta yine gizli geliyor altform??

 

[sulbas]

tamam anladım. tekrar "iş bitti" ye tıkladığımızda kayboluyor.

peki bunu böyle bir evet/hayır kutusuna degil de click düğmesine bağlamak istesek nasıl yaparız

 

[beab05]

Bak yukarıda zaten düğmeye göre yazmıştım kodu...

 

[sulbas]

bu kodu click/tıklandığında olayına yazdım istediğim oldu. şimdi buradaki "iş_bitti" satırlarını temizleyip formu yeniden düzenledim mi tamamdır.

yardımlarınız için çok teşekkürler. hayırlı sahurlar

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

 

[sulbas]

yabancı bir sitede bulduğum bu uygulamada ise "tab" geçişli formlarda şifre uygulamasına örnek olabilir