Access.in (x) kapat düğmesinin iptali.

[İsmail Küçükşengün]

Merhaba,

Excel'de oluyordu.

Access.te kapat (x) iptali için nasıl bir yol izlenmeli.

Access gizlenmeden yapılan bir çalışmada,sadece formda bulunan kapat butonuyla access.ten çıkılabilsin. Access.in kapat(x) işlevi iptal edilsin.

Bunun bir modülle olabileceğini tahmin ediyorum.

Selamlarımla.

 

[BKCAN]

forumu tasarım görünmününde açıp

biçim>denetimkutusu>hayır olacak

iyi çalışmalar

 

[İsmail Küçükşengün]

Sayın BKCAN;

İlginize teşekkür.

Fakat benim dediğim formun kapat butonu değil, accessin kedi kapat butonu idi.

 

[Taruz]

Merhaba İsmail bey,

Bu preseduru modül olarak kaydediniz..:

[COLOR=#0600ff]Option[/COLOR] Compare Database
 
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Const[/COLOR] GWL_STYLE [COLOR=#008000]=[/COLOR] [COLOR=#000000]([/COLOR][COLOR=#008000]-[/COLOR][COLOR=#7d2252]16[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Const[/COLOR] WS_CAPTION [COLOR=#008000]=[/COLOR] [COLOR=#008000]&[/COLOR]HC00000
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Const[/COLOR] WS_MINIMIZEBOX [COLOR=#008000]=[/COLOR] [COLOR=#008000]&[/COLOR]H20000
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Const[/COLOR] WS_MAXIMIZEBOX [COLOR=#008000]=[/COLOR] [COLOR=#008000]&[/COLOR]H10000
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Const[/COLOR] WS_SYSMENU [COLOR=#008000]=[/COLOR] [COLOR=#008000]&[/COLOR]H80000
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Const[/COLOR] SWP_NOSIZE [COLOR=#008000]=[/COLOR] [COLOR=#008000]&[/COLOR]H1
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Const[/COLOR] SWP_NOMOVE [COLOR=#008000]=[/COLOR] [COLOR=#008000]&[/COLOR]H2
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Const[/COLOR] SWP_NOZORDER [COLOR=#008000]=[/COLOR] [COLOR=#008000]&[/COLOR]H4
[COLOR=#0600ff]Public[/COLOR] [COLOR=#0600ff]Const[/COLOR] SWP_FRAMECHANGED [COLOR=#008000]=[/COLOR] [COLOR=#008000]&[/COLOR]H20
 
 
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Declare[/COLOR] [COLOR=#0600ff]Function[/COLOR] GetWindowLong _Lib [COLOR=#fb0000]"user32"[/COLOR] [COLOR=#0600ff]Alias[/COLOR] [COLOR=#fb0000]"GetWindowLongA"[/COLOR] [COLOR=#000000]([/COLOR] _
  [COLOR=#0600ff]ByVal[/COLOR] hwnd [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR], _
  [COLOR=#0600ff]ByVal[/COLOR] nIndex [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR] _
[COLOR=#000000])[/COLOR] [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR]
 
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Declare[/COLOR] [COLOR=#0600ff]Function[/COLOR] SetWindowLong _
Lib [COLOR=#fb0000]"user32"[/COLOR] [COLOR=#0600ff]Alias[/COLOR] [COLOR=#fb0000]"SetWindowLongA"[/COLOR] [COLOR=#000000]([/COLOR] _
  [COLOR=#0600ff]ByVal[/COLOR] hwnd [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR], _
  [COLOR=#0600ff]ByVal[/COLOR] nIndex [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR], _
  [COLOR=#0600ff]ByVal[/COLOR] dwNewLong [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR] _
[COLOR=#000000])[/COLOR] [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR]
 
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Declare[/COLOR] [COLOR=#0600ff]Function[/COLOR] SetWindowPos _
Lib [COLOR=#fb0000]"user32"[/COLOR] [COLOR=#000000]([/COLOR] _
  [COLOR=#0600ff]ByVal[/COLOR] hwnd [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR], _
  [COLOR=#0600ff]ByVal[/COLOR] hWndInsertAfter [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR], _
  [COLOR=#0600ff]ByVal[/COLOR] X [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR], _
  [COLOR=#0600ff]ByVal[/COLOR] Y [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR], _
  [COLOR=#0600ff]ByVal[/COLOR] cx [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR], _
  [COLOR=#0600ff]ByVal[/COLOR] cy [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR], _
  [COLOR=#0600ff]ByVal[/COLOR] wFlags [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR] _
[COLOR=#000000])[/COLOR] [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR]
 
 
[COLOR=#0600ff]Function[/COLOR] ButonGoster[COLOR=#000000]([/COLOR]Goster [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Boolean[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR]
 
  [COLOR=#0600ff]Dim[/COLOR] hwnd [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR]
  [COLOR=#0600ff]Dim[/COLOR] nIndex [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR]
  [COLOR=#0600ff]Dim[/COLOR] dwNewLong [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR]
  [COLOR=#0600ff]Dim[/COLOR] dwLong [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR]
 
  hwnd [COLOR=#008000]=[/COLOR] hWndAccessApp
  nIndex [COLOR=#008000]=[/COLOR] GWL_STYLE
 
  [COLOR=#0600ff]Const[/COLOR] wFlags [COLOR=#008000]=[/COLOR] SWP_NOSIZE [COLOR=#008000]+[/COLOR] SWP_NOZORDER [COLOR=#008000]+[/COLOR] SWP_FRAMECHANGED [COLOR=#008000]+[/COLOR] SWP_NOMOVE
  [COLOR=#0600ff]Const[/COLOR] FLAGS_COMBI [COLOR=#008000]=[/COLOR] WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU
 
  dwLong [COLOR=#008000]=[/COLOR] GetWindowLong[COLOR=#000000]([/COLOR]hwnd, nIndex[COLOR=#000000])[/COLOR]
 
  [COLOR=#0600ff]If[/COLOR] Goster [COLOR=#0600ff]Then[/COLOR]
    dwNewLong [COLOR=#008000]=[/COLOR] [COLOR=#000000]([/COLOR]dwLong Or FLAGS_COMBI[COLOR=#000000])[/COLOR]
  [COLOR=#0600ff]Else[/COLOR]
    dwNewLong [COLOR=#008000]=[/COLOR] [COLOR=#000000]([/COLOR]dwLong [COLOR=#0600ff]And[/COLOR] [COLOR=#0600ff]Not[/COLOR] FLAGS_COMBI[COLOR=#000000])[/COLOR]
  [COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]If[/COLOR]
 
  [COLOR=#0600ff]Call[/COLOR] SetWindowLong[COLOR=#000000]([/COLOR]hwnd, nIndex, dwNewLong[COLOR=#000000])[/COLOR]
  [COLOR=#0600ff]Call[/COLOR] SetWindowPos[COLOR=#000000]([/COLOR]hwnd, [COLOR=#7d2252]0[/COLOR][COLOR=#008000]&[/COLOR], [COLOR=#7d2252]0[/COLOR][COLOR=#008000]&[/COLOR], [COLOR=#7d2252]0[/COLOR][COLOR=#008000]&[/COLOR], [COLOR=#7d2252]0[/COLOR][COLOR=#008000]&[/COLOR], [COLOR=#7d2252]0[/COLOR][COLOR=#008000]&[/COLOR], wFlags[COLOR=#000000])[/COLOR]
 
[COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]Function[/COLOR]

Uygulamanızın açtığınızda devreye giren bir form üzerinden de bu kodla çağırabilirsiniz..:

[COLOR=#0600ff]Call[/COLOR] ButonGoster[COLOR=#000000]([/COLOR][COLOR=#0600ff]False[/COLOR][COLOR=#000000])[/COLOR]

Sadece Kapat (close) düğmesini değil minimize ve restore düğmelerini de pasifleştirir.. True değeri takrar eski haline getirir..

 

[İsmail Küçükşengün]

Sayın TARUZ;

Maalesef modül hata verdi.

Private Declare Function GetWindowLong _Lib "user32" Alias "GetWindowLongA" ( _

Satırındaki _Lib kısmı.

 

[Taruz]

O kısmı alt satıra alınız..

Private Declare Function GetWindowLong _
Lib "user32" Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long _
) As Long


Modulü uyguladığım bir de örnek ekliyorum..

Not: Access 2007 versiyonunda test edilmemiştir..

 

[İsmail Küçükşengün]

Çok teşekkürler Taruz hocam.

Siz bir harikasınız ve paylaşımlarınızla bir tanesiniz