[Resolvido]Código 64 bits

Tenho a função bacAccessHide para 32 bits do office, contudo, gostaria de contar com a ajuda de algum membro para compor a função para as versões 32 e 64 bits do office. Obrigado.

Com os melhores cumprimentos,

Rui Maciel

Ola seja bem vindo ao fórum;

Para o 64 Bits tem de declarar o PtrSafe


Private Declare PtrSafe Function bla bla bla

Deveria checkar a versão, antes das instruções com um #If VBA7 Then

http://msdn.microsoft.com/en-us/library/office/ee691831(v=office.14).aspx

Carissímo JPaulo, em baixo segue a função, quais as alterações que tenho que fazer, é que sou mesmo novato nisto. Obrigado
Cumprs.,

Rui Maciel

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

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 Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
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
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

Seria isto;


#If VBA7 Then

Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

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

Private Declare PtrSafe Function ShowWindow Lib "user32" ( ByVal hWnd As LongPtr, _
ByVal nCmdShow As Long ) As Boolean

#Else

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

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

End If

FANTÁSTICO OBRIGADO JPAULO

Contudo, como tenho duas macros mrcHide e mcrRestore, onde mando executar a função dá erro, isto é, não aparece o formulário de login entra direto para o vba. Como posso resolver este problema. Desde já agradeço a atenção e tempo dispensado. Obrigado.

Cumprimentos,

Rui Maciel

#If VBA7 Then

Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

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

Private Declare PtrSafe Function ShowWindow Lib "user32" ( ByVal hWnd As LongPtr, _
ByVal nCmdShow As Long ) As Boolean

#Else

Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

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

Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

End If

Gilson bom dia;

Não entendi a sua ajuda;

Se for VBA7 coloca o PtrSafe e se não for coloca também o PtrSafe ????

Mesmo assim não funciona, pois acho que o PtrSafe só vale se for para VBA7, envio em anexo a base de dados para dar uma vista de olhos. Ao entrar quero que apareça o login aparecendo o menu principal. Se por acaso der para melhorar agradeço.
Cumprimentos,
Rui Maciel

Option Compare Database

#If VBA7 Then
Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, _
ByVal nCmdShow As Long) As Boolean
#Else
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long
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
#End If


Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
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
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

O If para o VBA7 só é compreendido sempre que executar VBA 7 (por exemplo, Office 2010).
Como o Office 2003 não tem VBA7, corre a parte no Else.
Isso permitirá que você continue usando a API sem alterações.


Os controles ActiveX são provavelmente, o mais problemático.
Neste ponto, não há substituições de 64 bits para os controlos ActiveX comuns tais como TreeView, ListView e assim por diante.
Você pode ter que investir em um controle ActiveX de terceiros para ambas as plataformas 32-bit e 64-bit.

Caro JPaulo Obrigado

As alterações que fez no projeto foram necessárias para o funcionamento normal da base de dados? É que por exemplo a numeração deixou de estar automática?
Quais são os controles ActiveX necessários e como posso consegui-los.
Cumprimentos e muito grato pela ajuda,
Rui Maciel

Isso acontece porque converti do Access 2010 para o 2007.

Não use esse banco que lhe enviei, apenas veja o que fiz nos códigos e replique para o seu banco.

Boa tarde JPaulo

Qual foi a parte dos códigos que alterou, pois, estão iguais aos meus, foi a parte vba? Não estou conseguindo aplicar. O erro que está a dar é Compile error "Function call on left-hand side of assignment must return variant or object", no modulo basAccessWindow onde diz:

If procedure = "Hide" Then
........
fAccessWindow = False

Agradeço a compreensão. Obrigado.

Cumprimentos,

Rui Maciel

Repare que no seu, você tem o #End If, após a função.

Na minha alteração, o #End If, faz parte apenas da checagem da versão, deixando a função de fora.

Anexo o ficheiro para poder verificar. Obrigado.
Cumprimentos,
Rui Maciel

Mudei-lhe o código para um outro.

A chamada da função que esconde a janela do Ms Access, é feita no primeiro formulario "Login".

As macros ficam sem efeito nesse caso?
No menu principal se eu quiser voltar à base de dados não consigo. O que posso fazer, tem a ver com a nova função.
Abraço,
Rui Maciel

Sim, as macros ficam sem efeito.

Para entrar na estrutura da base de dados, entre com a tecla shift pressionada.

Obrigado JPaulo
Isso eu percebo o que queria dizer era que o botão que eu tenho no formulário menu principal para configurar BD depois de inserir a password não aparece a base de dados com a tabela arquivo de clientes. será que é possivel arranjar esse botão?
De resto eu mimo, obrigado
Rui Maciel

Para que o banco continue com uma imagem mais profissional, acesse à tabela através de um novo formulario continuo, para que o codigo continue a funfar.

É só aperfeiçoar;

Grato pela ajuda.
Abraço,
Rui Maciel

Obrigado pelo retorno o forum agradece.

Boa tarde João Paulo
Desculpe estar novamente a chatear, pois, sei que o mestre tem muito em que pensar, o aplicativo dá um erro ao sair com o botão "Sair" no "Menu Principal", fica aberto a base de dados, assim como, dá um erro de compilação, não sempre, ao entrar. Aproveito para que dê uma vista de olhos, é que não consigo que o formulário "frmImprimir", que consegui através do forum, bem hajam, abra no formulário "Menu principal", só abre quando entro com a tecla shift.
Grato pela atenção dispensada, aguardando uma resposta sua,
Rui Maciel

Todos os formularios e relatorios têm de ter popup=sim e janela restrita=sim.

O formulario "frmImprimir", tinha alguns erros, já corrigidos e comentados com a data de hoje.

Obs:
Quando necessitar de ajuda neste fórum, por favor, evite dirigir-se a uma unica pessoa, o fórum tem 16.200 usuários e muitos são expert`s na materia.

Para a próxima já sei João Paulo.
O problema está resolvido. Obrigado. Às vezes as pequenas coisas escapam. Considere sem efeito o novo tópico que enviei hoje.
Abraço,
Rui Maciel