Este exemplo utiliza um módulo que esconde a janela principal do Microsoft Access, ficando apenas a janela do formulário visível.
Para utilizar este módulo temos que utilizar o seguinte comando no evento ao abrir do formulário: call fsetAccessWindow (SW_HIDE).
Para verificar através de um exemplo faça o download aqui.
2 comentários:
Parabéns pelo Blog - Muito útil.
Ao tentar utilizar esta "dica" fiz o seguinte:
Option Compare Database
Option Explicit
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Form_Open_Err
Call FSetAccessWindow(SW_HIDE)
DoCmd.Restore
Form_Open_Exit:
Exit Sub
Form_Open_Err:
MsgBox Error$
Resume Form_Open_Exit
End Sub
No Entanto, ao Abrir a Base de Dados dá-me o seguinte erro:
Compile Error: - Variable not defined.
Sabem a solução?
vc tem que definir as variáveis:
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Public Function FSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
sem falar que na propriedade do formulário tem que estar como pop-up, se não, não vai funcionar
Enviar um comentário