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.
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.
ercansahin'in cevabına ek olarak;
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
İlgilinize çok tşk ederim sorun çözülmüştür.