Form kapandığında...

[susayaci]

Merhaba Arkadaslar,

Cok uzun süredir VB6 ile ugrasıyordum,exe'ye ceviriyordum vs...ancak şirkette exe kuramıyoruz,bilgi işlemden izin almak gerekiyor gibi...Bu yüzden visual basic access'e geçtim.bir tane sorunum var,yardımcı olabilirseniz çok sevinirim:

*mbd uzantılı access dosyasına tıklandığında sadece formun gözükmesini sağlayabilir miyiz?(Arkada bulunan ve access'e ait olan toolbar'ların gözükmemesi gerekiyor!)

Tesekkür ederim.
Saygılarımla.

 

[Taruz]

Merhaba..

Bu modulü kullanabilirsiniz..:

[COLOR=#0600ff]Option[/COLOR] Compare Database
 
[COLOR=#0600ff]Option[/COLOR] Explicit
 
Global [COLOR=#0600ff]Const[/COLOR] SW_HIDE [COLOR=#008000]=[/COLOR] [COLOR=#7d2252]0[/COLOR]
 
Global [COLOR=#0600ff]Const[/COLOR] SW_SHOWNORMAL [COLOR=#008000]=[/COLOR] [COLOR=#7d2252]1[/COLOR]
 
Global [COLOR=#0600ff]Const[/COLOR] SW_SHOWMINIMIZED [COLOR=#008000]=[/COLOR] [COLOR=#7d2252]2[/COLOR]
 
Global [COLOR=#0600ff]Const[/COLOR] SW_SHOWMAXIMIZED [COLOR=#008000]=[/COLOR] [COLOR=#7d2252]3[/COLOR]
 
[COLOR=#0600ff]Private[/COLOR] [COLOR=#0600ff]Declare[/COLOR] [COLOR=#0600ff]Function[/COLOR] apiShowWindow Lib [COLOR=#fb0000]"User32"[/COLOR] _
 
[COLOR=#0600ff]Alias[/COLOR] [COLOR=#fb0000]"ShowWindow"[/COLOR] [COLOR=#000000]([/COLOR][COLOR=#0600ff]ByVal[/COLOR] hwnd [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR], _
 
[COLOR=#0600ff]ByVal[/COLOR] nCmdShow [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR]
 
[COLOR=#0600ff]Function[/COLOR] fSetAccessWindow[COLOR=#000000]([/COLOR]nCmdShow [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR][COLOR=#000000])[/COLOR]
 
[COLOR=#0600ff]Dim[/COLOR] loX [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Long[/COLOR]
 
[COLOR=#0600ff]Dim[/COLOR] loForm [COLOR=#0600ff]As[/COLOR] Form
 
[COLOR=#0600ff]On[/COLOR] [COLOR=#0600ff]Error[/COLOR] [COLOR=#0600ff]Resume[/COLOR] [COLOR=#0600ff]Next[/COLOR]
 
[COLOR=#0600ff]Set[/COLOR] loForm [COLOR=#008000]=[/COLOR] Screen.ActiveForm [COLOR=#0600ff]If[/COLOR] [COLOR=#000000]Err[/COLOR] <> [COLOR=#7d2252]0[/COLOR] [COLOR=#0600ff]Then[/COLOR] [COLOR=#008004][I]'no Activeform[/I][/COLOR]
 
[COLOR=#0600ff]If[/COLOR] nCmdShow [COLOR=#008000]=[/COLOR] SW_HIDE [COLOR=#0600ff]Then[/COLOR]
 
MsgBox [COLOR=#fb0000]"Cannot hide Access unless "[/COLOR] _
 
[COLOR=#008000]&[/COLOR] [COLOR=#fb0000]"a form is on screen"[/COLOR]
 
[COLOR=#0600ff]Else[/COLOR]
 
loX [COLOR=#008000]=[/COLOR] apiShowWindow[COLOR=#000000]([/COLOR]hWndAccessApp, nCmdShow[COLOR=#000000])[/COLOR]
 
[COLOR=#000000]Err[/COLOR].Clear
 
[COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]If[/COLOR]
 
[COLOR=#0600ff]Else[/COLOR]
 
[COLOR=#0600ff]If[/COLOR] nCmdShow [COLOR=#008000]=[/COLOR] SW_SHOWMINIMIZED [COLOR=#0600ff]And[/COLOR] loForm.Modal [COLOR=#008000]=[/COLOR] [COLOR=#0600ff]True[/COLOR] [COLOR=#0600ff]Then[/COLOR]
 
MsgBox [COLOR=#fb0000]"Cannot minimize Access with "[/COLOR] _
 
[COLOR=#008000]&[/COLOR] [COLOR=#000000]([/COLOR]loForm.Caption [COLOR=#008000]+[/COLOR] [COLOR=#fb0000]" "[/COLOR][COLOR=#000000])[/COLOR] _
 
[COLOR=#008000]&[/COLOR] [COLOR=#fb0000]"form on screen"[/COLOR]
 
[COLOR=#0600ff]ElseIf[/COLOR] nCmdShow [COLOR=#008000]=[/COLOR] SW_HIDE [COLOR=#0600ff]And[/COLOR] loForm.PopUp <> [COLOR=#0600ff]True[/COLOR] [COLOR=#0600ff]Then[/COLOR]
 
MsgBox [COLOR=#fb0000]"Cannot hide Access with "[/COLOR] _
 
[COLOR=#008000]&[/COLOR] [COLOR=#000000]([/COLOR]loForm.Caption [COLOR=#008000]+[/COLOR] [COLOR=#fb0000]" "[/COLOR][COLOR=#000000])[/COLOR] _
 
[COLOR=#008000]&[/COLOR] [COLOR=#fb0000]"form on screen"[/COLOR]
 
[COLOR=#0600ff]Else[/COLOR]
 
loX [COLOR=#008000]=[/COLOR] apiShowWindow[COLOR=#000000]([/COLOR]hWndAccessApp, nCmdShow[COLOR=#000000])[/COLOR]
 
[COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]If[/COLOR]
 
[COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]If[/COLOR]
 
fSetAccessWindow [COLOR=#008000]=[/COLOR] [COLOR=#000000]([/COLOR]loX <> [COLOR=#7d2252]0[/COLOR][COLOR=#000000])[/COLOR]
 
[COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]Function[/COLOR]

"Access Penceresini gizleme" yazarak forum içerisinde arama yaptığınızda başka çözümler de bulabilirsiniz..

Bu linkte de görüntülü bir anlatım var..

http://www.excel.web.tr/showthread.php?t=49423

 

[susayaci]

Cok tesekkür ederim Taruz...
Hem senin yazdıgını hem de ilgili linktekini inceledim.
Ancak söyle bir durum var; access dosyasına tıklandıgında acces penceresi yine acılıyor ve ancak form1'e tıklandıgında gizleniyor.
Modülün cagırıldıgı yere baktım,form_load'a yazılmıs.(Sanırım bu yüzden!)
Ancak mbd uzantılı access dosyasına tıklandıgında sadece ve direkt forum acılması daha cok işime yarar.Bu yüzden form_activate kısmına yazdım modulu ve tam istediğim gibi oldu.
Şimdiki işim form'u kapattıgımda daha önce olusmus olan lbd uzantılı dosyanın da ortadan kalkması,tam olarak kapatamıyorum sanırım.Üzerine calısıyorum.
Bununla ilgili alternatif bir önerin varsa çok güzel olur.

Cok tesekkür ederim tekrar.
Saygılarımla,