Skip to main content

AccessTr.neT


Çarpı ile çıkış iptali

Çarpı ile çıkış iptali

Çözüldü #1
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.
Cevapla
Çözüldü #2
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.
Cevapla
Çözüldü #3
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
Cevapla
Çözüldü #4
İlgilinize çok tşk ederim sorun çözülmüştür.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da