[Resolvido]Redimensionar Janela Access

A questão é como colocar a Janela principal do Access do Tamanho que eu quiser e impedir que o usuário redimensione com o mouse. Não é do form que falo e da janela do access onde roda o form. O Form esta com borda diálogo e tem um tamanho fixo, quero colocar quando rodar a aplicação a janela access do mesmo tamanho e travada para redimensionamento.

Por que não usa os formulários como popup e janela restria? Pode definir Exibir menu como não nas propriedades do fomulário. Alem de evitar o redimensionamento da janela principal, você evita que mexam na estrutura do bd.

Já tentei mas como o form é principal ele nunca fecha sempre fica aberto e todos os forms da aplicação abrem sobre ele. Se ele for popup ele permanece no topo e não deixa outro entrar na frente e se for restrita piorou ele mantém o foco até ser fechado. Então não pode assumir essa função, eu não testei se colocar todos os forms como popup e restritos eles abrirão por cima desse.

Se você colocar todos como popup e restrito, o último a ser aberto sempre se oporá aos outros.

Bom tentei POPup sobre POPup e não funcionou o segundo popup não ficou por cima do primeiro.

Bom não funciona colocar como popup e restrito por que somente abre a próxima janela popup restrita se a que chamou for fechada. Mas as duas não podem ficar abertas ao mesmo tempo. Neste caso teria que ser uma API que permita eu definir o tamanho da janela do access e possa bloquear o redimensionamento pelo mouse no momento de execução, porque meu problema não é no form.

Olá,

Esconder/ocultar a janela do Access não resolve??

Nivaldo.

Esconder? como? Sem esconder a aplicação junto? Me ensina?

Olá,

Uso dessa forma para esconder a janela do Access (a aplicação não fica na barra de tarefas). Peguei esse código de um exemplo de Plino Mabesi (Expert Access):

Option Compare Database
Option Explicit

'Declaração de função utilizando a API do Windows. Serve para verificar
'se a janela está visível ou não.
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

'Declaração de variável para armazenar o
'retorno da função ShowWindow
Dim dwReturn As Long

'Constantes de especificação da
'situação da janela
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

'Declaração de função utilizando a API do Windows. Serve para enviar o comando de
'ocultar, restaurar, minimizar ou maximizar a janela do Access. Ela recebe como parâmetros o número
'da janela do Access (hwnd) para que o windows saiba em qual janela de aplicativo ele deve realizar
'a ação, e a constante de status (nCmdShow) que informa qual status o usuário deseja.
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long


'Função local que chamará a função ShowWindow. É nesta função que passamos os parâmentros
'da forma que desejamos que fique a janela do Access.
Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean

'Se o argumento foi Hide (que significa esconder)
'a janela será ocultada.
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If

'Se o argumento foi Maximize (que significa maximizar)
'a janela será maximizada.
If Procedure = "Maximize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If

'Se o argumento foi Show (que significará "restaurar")
'a janela será restaurada.
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWNORMAL)
End If

'Se o argumento foi Minimize (que significa minimizar)
'a janela será minimizada.
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If

'Se foi passado o argumento SwitchStatus (alternar status) como verdadeiro
'o status será alternado. Se estiver visível ficará oculto, se estiver oculto
'ficará maximizado. Os comandos anteriores serão descartados.
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If

'Se o parâmetro StatusCheck (checar status) for passado como verdadeiro será
'checado se a janela está visível. Se estiver retorna falso,
'ou verdadeiro caso contrário.
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If

End Function

Esconde a aplicação junto com a janela do access.

Para que o seu form não desapareça junto com a janela principal do Access,deve definir as opções Sobreposição e Modal como SIM e o form como diálogo:

Isto Gera outro problema o formulário não pode ser modal(Janela Restrita) porque ele é o principal que so fecha quando encerra a aplicação e sendo Restrito nenhuma janela abre na frente dele até que ele esteja fechado.

Jone, isso é estranho porque se um form estiver definido como popup e restrito, normalmente ele abre por cima de outro que já estiver aberto, mesmo que os outros aberto tambem sejam popup e restrito.

O que o Moderador Criquio acabou de referenciar é tal e qual. Se o seu form é o principal, uma vez definido como Modal todos os outros vão abris na frente dele desde que tenham as mesmas configurações:
Sobreposição e Modal como SIM e o form como diálogo

O que acontece, quando coloco como modal e diálogo o principal e chamado outro form com as mesmas configurações o form abre mas não na frente ele fica escondido e a aplicação trava. Tem alguma coisa faltando ou a mais aqui. Já retorno.

Amigo faça o seguinte:

Crie um novo módulo e cole este código

Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Function AUTOEXEWALDO()
DoCmd.OpenForm "MEU FORMULÁRIO de ENTRADA", acNormal

End Function
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

Salve o Módulo com o nome "AutoexeWaldito"

No Evento Load do Formulário, digite:
fSetAccessWindow (0)

Não esqueça de retirar o outro código anteriormente inserido

Ok, já sei qual é problema, quando uso isto com access 2003 funciona bem, mas a aplicação roda no access runtime 2007, no runtime ele fica com duas barras em cima uma do access2007 e outra da minha aplicação, no 2003 so fica com uma barra.

Faça tudo no 2003 e está o problema resolvido pois no 2007 tudo vai funcionar direitinho.

Fiz vieira mas a barra do 2007 continua lá. No 2003 funciona perfeito.

Acho estranho pois eu trabalho nas minhas aplicações assim e no 2007 rudo funfa direitinho. Fez acima uma referência ao run time do 7. Você está a instalar isso com o run time do 7? Pode o problema estar aí.

Sim o mde roda no runtime 2007. A aplicação mdb é trabalhada no access 2003. A barra do 2007 não aparece na sua aplicação?

Isso pode ser causado pelo run time do 7. Se você instalar sobre o access 2007 isso não acontece. Tenho aqui uma aplicação no fórum que fiz no 2003 e funfa direitinho sem barras. Se na minha aplicação isso acontecer também, então não tenho dúvidas que é o run time do 7 que está a fazer isso. Nas minhas aplicações ainda não aconteceu porque instalo no 7 sem usar o runtime.

Experimente para ver se o erro é do run time ou não

http://dl.dropbox.com/u/8157744/Forum.zip

Ainda uma outra coisa... Isto é uma opnião pessoal....Sempre odiei o MDE. Limitativo, cheio de erros quando cisma com os módulos....se você esconder a janela do Access, se tiver password ao código vba, se utilizar um truque para abrir a mdb sempre que precisar de efectuar alterações....MDE para quê??? Isto é uma opinião pessoal!!!

Ok entendo, a questão é que minha aplicação roda em navios alugados pela petrobrás, o programa é alugado. E as vezes o Navio vai embora sem aviso nenhum para o outro lado do mundo e leva a aplicação junto dentro 6 meses a aplicação deixa de funcionar e o mde é mais seguro que o mdb, como a aplicação é exclusiva tenho que manter o máximo de proteção, para vc ter uma ídeia até o numero serial do HD é lido pela aplicação antes de executar, o que significa que nem copiando o mde para outra maquina a aplicação funciona.

mas ainda não experimentou o que eu lhe pedi. Se a minha aplicação apresentar barras, então certamente o erro é do run time, caso contrário. Só assim pode fazer uma avaliação, certo.

Experimentei sim, o problema é no runtime mesmo.

O runtime não se esconde com a API, essa API funciona somente no 2003. to na VALA.

Então está resovido, Tem que optar entre o runtime ou não.

Bom eu tenho que ficar com o runtime para distribuir a aplicação sem problemas de pirataria, o runtime 2007 é free para todos os lados, eu preciso de uma API para ele.

Eu não tenho nenhuma, lamento.

Bom Trabalho

Só uma recomendação, pq não muda sua aplicação para Access 2007?

Mude ou não o Run Time não irá aceitar a API, logo tal é irrelevante na mudança do 2003 para o 2007.

Eu digo, mudar a aplicação inteira, e usar o código do nivaldo acima, eu uso perfeitamente, deixando janelaa restrita e Popup como sim.

Certo, obrigado, fica registado para o colega usar.

Não resolve o problema não vou usar. Consegui uma API que muda o tamanho da janela do ACCESS para o tamanho exato da janela da aplicação.

Option Compare Database
Declare Function apiGetActiveWindow Lib "user32" Alias _
"GetActiveWindow" () As Long
Declare Function apiGetParent Lib "user32" Alias "GetParent" _
(ByVal hWnd As Long) As Long

Declare Function apiMoveWindow Lib "user32" Alias "MoveWindow" _
(ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal _
nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) _
As Long

Function GetAccesshWnd()
Dim hWnd As Long
Dim hWndAccess As Long

' Get the handle to the currently active window.
hWnd = apiGetActiveWindow()
hWndAccess = hWnd

' Find the top window without a parent window.
While hWnd <> 0
hWndAccess = hWnd
hWnd = apiGetParent(hWnd)
Wend

GetAccesshWnd = hWndAccess

End Function


Function AccessMoveSize(iX As Integer, iY As Integer, iWidth As _
Integer, iHeight As Integer)
apiMoveWindow GetAccesshWnd(), iX, iY, iWidth, iHeight, True
End Function

No teu código coloque o tamanho que quiser o 0,0 posição da janela e os outros largura e altura da janela do ACCESS não da aplicação

Call AccessMoveSize(0, 0, 985, 585)