Uygulama penceresini Kapat düðmesi ve Dosya menüsünde <a2>Çýkýþ</a2> komutunu devre dýþý býrakma

Microsoft Access'te, uygulama penceresinin, uygulama penceresinin <a1>Sistem</a1> menüsündeki Kapat komutu veya Dosya) menüsünde <a2>Çýkýþ</a2> komutunu (X) Kapat düðmesini devre dýþý býrakmak için yerleþik bir yöntem bulunur. Bu makalede, tüm bu program aracýlýðýyla devre dýþý býrakma.

DIKKAT: Bu örnekteki adýmlarý, Northwind.mdb adlý örnek veritabanýný deðiþtirme. Northwind.mdb dosyasýný yedekleyin ve bu adýmlarý veritabanýnýn bir kopyasýnda isteyebilirsiniz.

Uygulamayý Kapat düðmesini ve Sistem menüsü üzerinde Kapat komutunu devre dýþý býrakmak için Win32 API ' GetSystemMenu ve EnableMenuItem iþlevleri çaðýrmalýsýnýz.

Dosya menüsünde <a2>Çýkýþ</a2> komutunu devre dýþý býrakmak için programatik olarak yönetmek için tüm menü çubuklarý, araç çubuklarý ve kýsayol menüleri uygulamanýzdaki Visual Basic for Applications'ý sunar CommandBars tahsilat kullanmanýz gerekir.

Microsoft, programlama örneklerini yalnýzca gösterim amacýyla saðlar; örtülü veya açýk garanti vermez. Buna satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri de dahildir, ancak bunlarla sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve yordamlarý oluþturmak ve hata ayýklamak amacýyla kullanýlan araçlarý kullanmayý bildiðinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir, ancak gereksinimlerinizi karþýlamaya yönelik olarak ek iþlevsellik saðlamak veya yordamlar geliþtirmek amacýyla bu örnekleri deðiþtirmezler.

Adým adým örnek

1. Microsoft Access'i baþlatýn.
2. Northwind.mdb örnek veritabanýný açýn.
3. Ekle menüsünden, yeni bir standart modül oluþturma modülü ' nü týklatýn.
4. Tanýmlamalar bölümüne aþaðýdaki kodu yazýn:

   Option Compare Database
   Option Explicit
   
   Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
       ByVal bRevert As Long) As Long
   
   Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
       Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
   
   Const MF_GRAYED = &H1&
   Const MF_BYCOMMAND = &H0&
   Const SC_CLOSE = &HF060&
   
   Public Function SetEnabledState(blnState As Boolean)
       Call CloseButtonState(blnState)
       Call ExitMenuState(blnState)
   End Function
   
   'Disable the Menu Option
   Sub ExitMenuState(blnExitState As Boolean)
       Application.CommandBars("File").Controls("Exit").Enabled = blnExitState
   End Sub
   
   'Disable the Close Button Option
   Sub CloseButtonState(boolClose As Boolean)
       Dim hWnd As Long
       Dim wFlags As Long
       Dim hMenu As Long
       Dim result As Long
          
       hWnd = Application.hWndAccessApp
       hMenu = GetSystemMenu(hWnd, 0)
       If Not boolClose Then
           wFlags = MF_BYCOMMAND Or MF_GRAYED
       Else
           wFlags = MF_BYCOMMAND And Not MF_GRAYED
       End If
       
       result = EnableMenuItem(hMenu, SC_CLOSE, wFlags)
   End Sub
   					

5. Dosya menüsünde Northwind Kaydet'i týklatýn ve Tamam ' ý týklatarak, Modül adý kutusunda görünen varsayýlan adý kullanýn.
6. Aþaðýdaki özelliklere yeni bir form oluþturun:

      Form: frmSetCloseState
      -------------------------
      Caption: Set Close State
   
      Command button
      ------------------------
      Name: cmdEnable
      Caption: Enable
      OnClick: Event Procedure
   
      Command button
      ------------------------
      Name: cmdDisable
      Caption: Disable
      OnClick: Event Procedure
   					

7. Tasarým görünümünde Etkinleþtir komut düðmesini sað týklatýn ve görüntülenen menüde Olay Oluþtur'ý týklatýn.
8. Kod Oluþturucu'yu týklatýn, Tamam ' ý týklatýn ve sonra da ortaya çýkan modüle aþaðýdaki kodu yazýn:

   Private Sub cmdEnable_Click()
       Call SetEnabledState(True)
   End Sub
   					

9. Devre dýþý býrak komut düðmesinin

   Private Sub cmdDisable_Click()
       Call SetEnabledState(False)
   End Sub
   					

10. Formu kaydedin ve Form görünümü içinde açmak

Devre dýþý býrak komut düðmesini, Kapat düðmesini, uygulama penceresinin Kapat komutunu ve Dosya menüsünde <a2>Çýkýþ</a2> komutunu devre dýþý býrakýlmasýna dikkat edin. Bu komutlarý, komut Etkinleþtir düðmesini týklatýrsanýz, yeniden etkinleþtirildikten baðlantýsý olacaktýr.

Kullaným

Bu makalede açýklanan kod kolayca etkinleþtirmek ya da kullanýcýlarýn bu yöntemleri kullanarak uygulamadan çýkmak önlemek için Exit komutu Dosya menüsünde Kapat düðmesini ve uygulama penceresinin Kapat komutunu devre dýþý býrakmak saðlar.

Bu teknik, Microsoft Access, Veritabaný penceresinde, Kapat düðmesini deðil Uygulama penceresinde Kapat düðmesini etkilediðini unutmayýn. Veritabanýnýzýn kapattýðýnda bu seçenekleri devre dýþý býrakýlmasý sonra ne otomatik olarak re-enabled. Kullanýcý veritabanýný kapatýr ve Microsoft Access, açýk býrakýr, kullanýcý Dosya menüsünden Kapat düðmesini veya Çýkýþ komutunu kullanarak, Microsoft Access'ten çýkmak gideremez ve çözemez. Bu durumda, sona erdirir önce uygulamanýzýn her iki seçeneði etkinleþtirmelisiniz. Aksi durumda, kullanýcý çýkýn ve Microsoft Access Kapat düðmesini ve etkin olmasý için Dosya menüsünden Çýkýþ komutunu yeniden gerekir.