Esconder a barra do access 2007

Eu rodo minha aplicação mde feita no access 2003 num runtime 2007, o problema é que eu uso aquela API para esconder o access. No 2003 funciona perfeitamente e a janela da aplicação se incorpora a janela access, mas no 2007 isso não acontece eu tenho duas barras uma do access 2007 e outra da minha aplicação o access fica por tras a API não funciona, alguém poderia me ajudar? Obrigado.

Meu caro amigo

O Run Time é autónomo. Já foi-lhe referido que da forma que você quer fazer as coisas, as mesmas não funcionam dessa maneira. Dois colegas Nivaldo e Topbr, colocaram aqui sugestões. Á partir do momento que você usa o run time, este decide. Acho muito estranho porém a API não funcionar com o Run Time. Mas em programação tudo é possível, ou algo está mal na origem.

Vamos ver se alguém tem outra sugestão

Bom Trabalho

Com certeza o runtime tem que responder igual a sua plataforma de origem, o que acontece e que algo mudou de como esconder a janela no 2003 com relação ao 2007 em outros foruns verifiquei que tem gente com o mesmo problema, alguem vai achar a solução, espero que seja eu para postar aqui.

Pessoal como eu faço para esconder o access 2003 na ,inha aplicação posta a rotina pelo menos para que eu possa conferir e ver se estou fazendo certo.

Mas é muita confusão, já não entendo se quer esconder a janela do 2007 ou do 2003????

Analiso o seguinte:

1- Você está a instalar o Run Time (2003 ou 2007??) em conjunto com uma versão do Access (2003 ou 2007???). Se os dois não se pegarem é porque são de paz mesmo.

2- Para além destes sinais usa um MDE que depois instala com o run time do 2003 sobre o 2007...????

Milagres ninguém pode fazer.

hehe, não é isso eu pensei que alguém postar a rotina que esconde o 2003 eu poderia conferir com a minha.

Então aqui vai:

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:(AutoexeWaldito)

No formulário de inicio no evento load digite:

fSetAccessWindow (0)

Bom trabalho

Ok a rotina tá certa vou jogar a toalha para esse bicho....

Ok, amigo. Bom trabalho