slm arkadaşlar benim ekte bir adet ribbon menu çalışmam var
1-accessde bulunan çarpı pasif olacak yani şeride çıkış düğmesi ekleyeceğim
2-access nesneleri yani tablo form sorgu rapor v.s gizli olacak
3-dosya seçenekler menüsü gizli olacak
sayın evren89
soru sormadan önce açtığınız konuları takip ederek,konunuza cevap aldığsanız,cevap aldım veya almadım şeklinde cevaplayarak kapattıktan sonra diğer sorulara geçin,aşağıdaki adresteki konuyu önce cevaplayın lütfen daha sonra yeni soru sorun,
https://accesstr.net/konu-alt-form--8337...#pid145931
Konunuz
Access Soruları Bölümüne Taşınmıştır. Ayrıca, "Ribbon Menü" olan konu başlığınız da "Access Kapat Butonunu Gizleme" şeklinde değiştirilmiştir. Konu başlıklarınızı, sorunuzu kısaca özetleyecek şekilde yazınız.
Örnek uygulamanızın düzenlenmiş hali ektedir. "FTrz" isimli form ilk açılacak form olarak ayarlanmıştır.
MOlaylarTrz isimli modüle
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
Public Sub AccessCloseButtonEnabled(pfEnabled As Boolean)
' Comments: Control the Access close button.
' Disabling it forces the user to exit within the application
' Params : pfEnabled TRUE enables the close button, FALSE disabled it
' Owner : Copyright © FMS, Inc.
' Source : Total Visual SourceBook
' Usage : Permission granted to subscribers of the FMS Newsletter
On Error Resume Next
Const clngMF_ByCommand As Long = &H0&
Const clngMF_Grayed As Long = &H1&
Const clngSC_Close As Long = &HF060&
Dim lngWindow As Long
Dim lngMenu As Long
Dim lngFlags As Long
lngWindow = Application.hWndAccessApp
lngMenu = GetSystemMenu(lngWindow, 0)
If pfEnabled Then
lngFlags = clngMF_ByCommand And Not clngMF_Grayed
Else
lngFlags = clngMF_ByCommand Or clngMF_Grayed
End If
Call EnableMenuItem(lngMenu, clngSC_Close, lngFlags)
End Sub
Kodları eklenmiş, FTrz isimli formun açıldığında olayına da
Call AccessCloseButtonEnabled(False)
Kodu eklenmiştir.
Site Kuralları:
c) Birden fazla soruyu aynı konuda sormayınız. Her soru için farklı başlıklı yeni konu açınız. Birden fazla soru sorarsanız bu uygulama yapımına girer,
Bu Site "Ödev veya Program Yaptırma Sitesi" Değildir.
Çook tesekkur erderim oldu bu iş