Bom dia a todos do forum!!
amigos preciso da ajuda de vocês...
É o seguinte,eu queria deixar meu BD com se fosse um aplicativo abrindo o o form principal e nele trabalhar sem
a tela do access por trais,pois bem pesquisando aqui no forum encontrei uma dica do vieirasoft que usei e deu tudo certo funcionou só que os relatórios não abre e quando clico no botão pra abrir o relatório trava tudo.
alguem pode me ajudar a resolver isso.
o codigo do vieira é esse:
Tente com este para ver se resolve
Abra um 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 "Entrada", acNormal
End Function
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
Feche o Módulo e dê-lhe este nome:(Autoexecwindow)
No formulário de inicio no evento load digite:
fSetAccessWindow (0)
Bom trabalho
amigos preciso da ajuda de vocês...
É o seguinte,eu queria deixar meu BD com se fosse um aplicativo abrindo o o form principal e nele trabalhar sem
a tela do access por trais,pois bem pesquisando aqui no forum encontrei uma dica do vieirasoft que usei e deu tudo certo funcionou só que os relatórios não abre e quando clico no botão pra abrir o relatório trava tudo.
alguem pode me ajudar a resolver isso.
o codigo do vieira é esse:
Tente com este para ver se resolve
Abra um 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 "Entrada", acNormal
End Function
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function
Feche o Módulo e dê-lhe este nome:(Autoexecwindow)
No formulário de inicio no evento load digite:
fSetAccessWindow (0)
Bom trabalho