AccessTr.neT

Tam Versiyon: Özel Araç Çubuğu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
merhaba kolay gelsin.
araç çubukları üzerinde mause ile sağ tık yapınca menü açılıyor, bu menüden özel araç çubuğu sil'e tıklanınca araç çubuğunu siliyor,
kullanıcıların silememesi için
özel araç çubuğu sil, pasif edilebilirmi acaba?

[img][Resim: do.php?img=15270][/img]
Kod:
Private Sub Form_Load()
    Call LockToolbars(True)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call LockToolbars(False)
End Sub

Private Sub LockToolbars(lock As Boolean)
    On Error Resume Next
    
    Dim accObj As AccessObject
    Dim cmdBar As Object
    
    ' Çalışma veritabanının AccessObject koleksiyonunda dolaşın
    For Each accObj In CurrentProject.AllForms
        ' Sadece form objelerini kontrol edin
        If accObj.IsLoaded And accObj.IsForm Then
            ' Formu açın
            DoCmd.OpenForm accObj.Name, acDesign
            
            ' Her bir toolbar'ı kontrol edin
            For Each cmdBar In CommandBars
                ' Özel toolbar'ı bulun
                If cmdBar.Name = "CustomToolbarName" Then ' Kendi toolbar adınızı buraya yazın
                    ' Kilitliyse kilidini açın veya kilitliyse kilitleyin
                    If lock Then
                        cmdBar.Protect
                    Else
                        cmdBar.Unprotect
                    End If
                End If
            Next cmdBar
            
            ' Formu kapatın
            DoCmd.Close acForm, accObj.Name, acSaveYes
        End If
    Next accObj
    
    On Error GoTo 0
End Sub
kodunu kullanıcıların özel araç çubuğunuzu kapatmasını engellemek istediğiniz formun Vba kod bölümüne ekleyin. CustomToolbarName kısmını kendi oluşturduğunuz araç çubuğunun adıyla değiştirin.
sayın atoykan;
özel araç çubuğunu sil" e aslında bir form açıkken değil,
tüm formlar kapalıyken de basılabilir.

araç çubuğu kısmındaki
dokuma, iplik tüketim, döviz kurları vs. bunların hepsi ayrı araç çubukları, ben araç çubuklarının gözüktüğü bu alanda tüm araç çubuklarını göstermesini seçtiğim için gözüküyor,
fakat kullanıcı
üzerine tıklıyıp da özel araç çubuğun sil 'i seçtiğinde siliniyor,
amacım , özel araç çubuğunu sil'in pasif olması yada olmaması,

örnek üzerinde yardımcı olabilirmisiniz?
yardımlarınız için şimdiden çok teşekkür ederim,
saygılarımla
Arka planda çalışan gizli bir form oluşturun ve kodu onun üzerinde çalıştırın böylece kapatamazlar.
atoykan üstadım kolay gelsin,
arka planda çalışacak gizli bir form nasıl oluşturulur acaba?
ben yapamadım da?
yardımcı olabilirmisiniz?
Bu çeşitli yöntemler uygulayabileceğiniz çok basit bir uygulama Sayın @husem. Bir kaç yol:
  1. uygulamanız açılırken yüklenecek bir form tasarlayın ve görünürlük özelliğini hayır yapın.
  2. uygulamanız açılırken yüklenecek bir form tasarlayın ve forumun yüklendiğinde olayına me.visible = false kodunu girin.
  3. uygulamanız yüklenirken başka bir form açlımak zorunda ise o form yüklendiğinde olayına DoCmd.OpenForm "gizli formunuzun adı", acNormal, , , , acHidden kodunu girin
her yöntemde açılan form açık olsa da görüntülenmez.
Sayfalar: 1 2