Skip to main content

AccessTr.neT


Access Kapat Butonunu Gizleme

Access Kapat Butonunu Gizleme

Çözüldü #1
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
.zip ribbon.zip (Dosya Boyutu: 26,13 KB | İndirme Sayısı: 2)
Cevapla
#2
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
Cevapla
#3
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.
.rar ribbon15.rar (Dosya Boyutu: 24,01 KB | İndirme Sayısı: 13)
Cevapla
Thumbs Up #4
Çook tesekkur erderim oldu bu iş
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da