AccessTr.neT

Bul · 04/02/2010, 00:37

Arkadaşlar sizleri sürekli takip ediyorum ve inanın access'i sıfırdan öğrenmeme çok yardımcı oldunuz. Benim bir sorum olacak kendim bir stok takip programı yaptım ve bunu Access'i gizleme kod ları ile gizledim her şey çok güzel tek sorun programı sağ üsteki çarpıdan kapatınca kitleniyor ve açılmıyor. esc çıkış menusude yaptım ama genelde kullananlar alışkanlıklarından dolayı yukarıdaki çarpıdan kapatıyorlar ve program kitleniyor. bu sağ üsteki çarpı ile çıkışı deaktif etmenin bir yolu varmıdır. Tşkler.

Bul · 04/02/2010, 00:48

Formun özelliklerinde Kapat Düğmesi =Hayır ve Küçült/Kapla Düğmeleri=Yok yapın, böylece kapat düğmesini devre dışı bırakmış olursunuz. Örneğiniz olmadığı için aklıma gelen en pratik yol bu. Kolay gelsin.

Bul · 04/02/2010, 03:34

ercansahin'in cevabına ek olarak;

[Resim: adszden.jpg]

Modüle aşağıdaki kodları ekle

Kod:

Private Declare Function apiEnableMenuItem Lib "user32" Alias _

    "EnableMenuItem" (ByVal hMenu As Long, ByVal wIDEnableMenuItem As Long, _

     ByVal wEnable As Long) As Long

    

Private Declare Function apiGetSystemMenu Lib "user32" Alias _

         "GetSystemMenu" (ByVal hwnd As Long, ByVal flag As Long) _

         As Long



Function EnableDisableControlBox(bEnable As Boolean, _

                                 Optional ByVal lhWndTarget As Long = 0) As Long



On Error GoTo ErrorHandling_Err



Const MF_BYCOMMAND = &H0&

Const MF_DISABLED = &H2&

Const MF_ENABLED = &H0&

Const MF_GRAYED = &H1&

Const SC_CLOSE = &HF060&



Dim lhWndMenu As Long

Dim lReturnVal As Long

Dim lAction As Long



lhWndMenu = apiGetSystemMenu(IIf(lhWndTarget = 0, Application.hWndAccessApp, lhWndTarget), False)



If lhWndMenu <> 0 Then

     If bEnable Then

        lAction = MF_BYCOMMAND Or MF_ENABLED

     Else

        lAction = MF_BYCOMMAND Or MF_DISABLED Or MF_GRAYED

     End If

     lReturnVal = apiEnableMenuItem(lhWndMenu, SC_CLOSE, lAction)

End If

EnableDisableControlBox = lReturnVal

ErrorHandling_Err:

    If Err Then

    End If

End Function



Public Function HideAccessCloseButton()



    EnableDisableControlBox False

End Function

Public Function ShowAccessCloseButton()

EnableDisableControlBox True  

End Function

formun açıldığında aşağıdaki kodu yaz,

Kod:

call HideAccessCloseButton

kodlar eşrefigit hocadan

Bul · 04/02/2010, 10:13

İlgilinize çok tşk ederim sorun çözülmüştür.

AccessTr.neT

Çarpı ile çıkış iptali

Çarpı ile çıkış iptali

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

Giriş yap

Hesap oluştur

Konu Linkleri