Access'in X Kapat'ını nasıl yok ederiz

[akd]

Merhaba arkadaşlar,
Kendi menümü yaptım, accessin menüleri gitti benim menüler geldi,
ama bu X kapat işaretini nasıl yok edecegimi bulamadım,
Bilenlerden ricam nasıl yapılabiliri anlatırlarsa sevinirim.
İyi çalışmalar...

 

[karaayhan]

akd bildiğimiz abdulkadir dokuyucu mu?
bu soruyu siz sormuş olamazsınız diye teyit istiyorum ısrarla!

 

[akd]

sn.karaayhan,
sordum diyelim. buyrun sizde cevaplayın,
ama soruyu iyice okumanızı tavsiye ederim.
formdaki X işareti degil.!!!!
Access yerleşik menülerdeki X ( Kapat ) işareti...

 

[karaayhan]

bende onu diyorum zaten
access penceresi gizle diye bir komut var hatırladınız !
onu kulllanın

ya da kullandığınız formu açılan ve ekranı kapla ile tam ekran yapın
gidecektir arka plandaki "x"
ok...

 

[akd]

sanki çok bilinen yada basit bir kodda,
vay akd nasıl bilemezsin bu kodu der gibi yazmışsın,
siz biliyorsanız yada hatırladıysanız yazsaydınız ya,
bu tavrı, size yakıştıramadım, lütfen yapıcı olun, kırıcı olamayın
ayrıca bu önerilerinizi bilecek kadar bilgim var çok şükür.

 

[Taruz]

Arkadaşlar eski dostlara yakışmıyor. Birbirinizi yanlış anlayıp bu şekilde kırıcı olmayın..

Sayın akd nin bahsettiği başka bir durum sanıyorum.. Örneğinizi ekleyebilirseniz yok etmeye çalışalım..

 

[akd]

sayın taruz,
arkadaş anlamadan dinlemeden peşin hüküm veriyor hesabı,
bizim bildigimiz,anladığın kadarıyla bir karşıyı kırmadan bir cevap yazarsın,
karşı yok öyle degilde, şöyle der ve sonuca ulaşılır.
Yanlışsam söyleyin.
Sağolsun Eşref(Gulsum1) arkadaşımın yazmış olduğu bir cevabı başka bir formda buldum ve sorunumu hallettim.
İlginizden dolayı sizede çok teşekkür ederim

 

[modalı]

Sayın akd,

Kusura bakmayın ama aklıma takılan bir şeyi sizinle paylaşmak isterim.

Bu çeşit forum sitelerinin kuruluş amacı paylaşım. Ama siz paylaşımdam sadece almayı aklınıza getiriyorsunuz. Tamam bilmeyebilirsiniz, aklınıza takılanları sorabilirsiniz ancak cevabını bulduğunuz bir sorununuzu da kolaylıkla paylaşabilirsiniz.

Bu arada ben de sayın karaayhan gibi anladım en başta sorunuzu. Bu aralar çok yoğunum pek giremiyorum siteye ama bir baktım ki epey tartışma olmuş.

 

[herdogan]

Sayın akd,
Bulduğunuz çözümü bizimle paylaşır mısınız?

 

[akd]

Sayın modalı,
Diğer sitede bulduğum cevabı, bu sitede yayınlarsam, diğer sitedeki arkadaşların tepkisini almazmıyım, benim cevabı yazmamaktaki düşüncem bu idi.
Yoksa bilinen birşeyi neden gizleme geregi duyayımki.?
Kodun sahibi Gulsum1 kardeşimdir.
aldığım sitenin ismini yazmam doğru olurmu bilmiyorum, yinede yazmıyorum.
kod bu=
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

' ----------------------------------------------------------------------
' Purpose: Example of how to disable or enable the control box of
' a form, report, or the Access parent window.
'
' Accepts: bEnable, which determines whether to disable or enable
' the control box
'
' Also accepts lhWndTarget (which is optional), if you want
' to use a window handle other than the Access parent window.
'
' Returns: N/A
'
' Example usage: lRetVal = EnableDisableControlBox(True) to enable -OR-
' lRetVal = EnableDisableControlBox(False) to disable
'
' NOTE: If no hWnd is passed in for a specific form, then the code
' assumes you want to enable/disable the Access parent window
' ----------------------------------------------------------------------

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
'Trap your error(s) here, if any!
End If
End Function
'
'
'
'
Public Function HideAccessCloseButton()

EnableDisableControlBox False

End Function

Public Function ShowAccessCloseButton()

EnableDisableControlBox True

End Function

 

[karaayhan]

işlerimin yoğunluğu sebebiyle fazla takılamıyorum foruma bazı değerli arkadaşlardan bu konuda özür dilerim..

sayın! akd, nin bu tavrını anlamayadım hafızamı yokladım benle bir sorunu mu var diye!?
benim kimseyle bir sorunum yok sadece o! arkadaşın daha fazla kod bilgisi olduğunu düşünerek isim benzerliğimi var diye sordum sizmisiniz diye ve şaşırdığımı ifade ettim,,,

demekki değil miş eski bizim bildiğimiz akd. imiş..!

herneyse yolun açık olsun sayın dokuyucu....,,,,,,,,,

 

[akd]

Bu konu çok uzadı...