Kapat Düğmesini Pasifleştirmek

[cdc98]

Arkadaşlar,

biliyorum komik bir soru ama bir formum var ve admin olarak girince kapat düğmesi aktif, user olarak girildiğinde pasif olsun istiyorum. Tüm konuları inceledim ama bulamadım.

Yardımcı olusanız sevinirim...

 

[modalı]

Sayın cdc98,

Bir formun istediğiniz özelliklerini değiştirebilmek için ilgili formu tasarım görünümünde açıp, özellikleri değiştirip kapatıp tekrar normal görünümğnde açmak gerekir.

Bunun için bir formu başka bir form üstünden herhangi bir olayına.

stDocName = "Form1"
    
    DoCmd.SetWarnings False  'Uyarı mesajlarını kapatıyoruz ki bize form1 kaydedilsin mi diye sormasın
    DoCmd.OpenForm stDocName, acDesign, , , , acHidden 'Formu gizli ve tasarım modunda açıyoruz
    Forms.Form1.CloseButton = False 'Kapatma düğümesini pasifliyoruz
    DoCmd.Close acForm, stDocName 'Form1 i kapatıyoruz
    DoCmd.SetWarnings True 'Uyarıları tekrar açıyoruz
    DoCmd.OpenForm stDocName 'Formu normal olarak açıyoruz

Yukarıdki kodları yapıştırısanız ilgili formun kapat düğümesi pasif duruma gelir.

Aktif olabilmesi için ise:

Forms.Form1.CloseButton = True

olarak değiştirilmesi gerekir.

Gelelim admin ve user olayına, uygulamanızın nasıl olduğunu bilmediğim için, siz uygun şartlar oluşunca ilgili kod parçasını çalıştırırsınız.

İyi çalışmalar

 

[cdc98]

Çok Teşekkür ederim.

Sorunu hallettim...