Jump to content
Sign in to follow this  
Guest miguelfreitas

[RESOLVIDO] Minimizar Janela do Access 2007

Recommended Posts

FreiNando

Se queres dar segurança à tua base de dados, cria um ficheiro executável (mde).

Assim ninguém poderá mudar o teu código ou definição das tabelas.

Quanto ao teu exemplo: É muito fácil quebrar esse encanto.

Se tens o access bem configurado, o código Vba será executado apenas quando os ficheiros estiverem em determinadas pastas (vê Definições do Centro de Fidedignidade no 2007/2010), ou de acordo com as definições seguranças das macros(2003).

Sendo assim ao abrires esse ficheiro numa qualquer outra pasta (incluindo o Desktop, no meu caso) o VBA não executa e poderás ver o que foi feito para esconder a janela do Access.


O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Share this post


Link to post
Share on other sites
KeepItSimple

Relativamente a questões de segurança, concordo com o FreiNando. O esconder a janela é só uma questão de estética.

Estive a ver o código do exemplo, e a janela do access não é escondida, é colocada fora do espaço do ecrã. como tenho 2 monitores.... aparece-me no 2 monitor.  mas para a maioria dos casos pode servir.

"by default" os forms aparecem dentro da janela do Access (form MDI), portanto quando se esconde a janela principal, os forms também desaparecem. A solução passa por definir a propriedade dos forms "popup=true". assim já podem "flutuar" fora da janela principal.

Fiz aqui uma pequena experiência e funcionou (não testei exaustivamente...)

defini um form com "popup=true" e "modal=true"

criei um módulo com o seguinte código:

Option Compare Database
Option Explicit

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
     ByVal nCmdShow As Long) As Long
     
     
Public Sub escondeMain()
    ShowWindow Application.hWndAccessApp, SW_HIDE
End Sub

Public Sub mostraMain()
    ShowWindow Application.hWndAccessApp, SW_SHOWNORMAL
End Sub

E no evento "open" do form chamei o procedimento "escondeMain"

funcionou como previsto. a janela principal ficou escondida. No entanto tem um problema. Não se pode fechar o form no "X" da controlbox pois esta só fecha o form e não a aplicação. Tem de se desactivar este botão e criar um para fechar a aplicação.

app de teste:

http://www19.zippyshare.com/v/74654150/file.html

Share this post


Link to post
Share on other sites
Guest miguelfreitas

KeepItSimple e FreiNando, muito obrigado aos dois, e a todos aqueles que me ajudaram a resolver esta base de dados Access, já terminei.  :cheesygrin:

Mais uma vez, muito obrigado a todos,

Miguel Freitas  :P

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.