[Resolvido]Esconder janela do access

https://dl.dropboxusercontent.com/u/98318720/Esconder%20janela.rar

Gente quero esconder a janela do access neste bd,mas os codigos que coloquei não resoltou em nada.
Não sei se tem algum coisa a mais do que por o modulo.Só sei que não consigo, se alguem puder me dizer como faço isso
A onde coloca-se esse códgo pra funcionar,sei que tem que ter a janela restrita mas não da certo.
\me digam um passo a passo pois terei que fazer isso em outros bds.

Obrigado galera. Obs:Tirei os codigos pois poderia estar errado.

Error (404)

Linka não encontrado.

https://dl.dropboxusercontent.com/u/90217826/Ocultar%20janela.rar

OLa JPaulo espero que funcione agora.

Access 2010 ?

Pois aqui no trabalho não tenho....

JPaulo mandei o bd errado,agora editei o certo,ta só o menu,quem fez foi o colega Silvio,importei o menu para o access 2010 mas ficou com a janela do access atras,penso que se conseguir ocultar a janela poderei colocar as tabelas,form e tudo mais depois,daria certo.

Obs:se não conseguir agora,quando puder.

Tente dessa forma...


Private Sub Form_Load()
Me.Caption = " MENU PRINCIPAL - G.O.M."
DoCmd.ShowToolbar "Ribbon", acToolbarNo ----> retire o comentário dessa linnha ( ' )
End Sub

VAleu Silvio funcionou certinho,mas me diga se eu aplicar esse código em outros menus vai funcionar também.

Eu utilizo um outro método,

Em um módulo existe esse código:

Option Compare Database
Option Explicit
'Autor de la función base: Indeterminado
'Declaraciones
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Function AccessTransparente(Nivel As Integer)
'Adaptación: Byron Contreras, febrero 08, [Você precisa estar registrado e conectado para ver este link.]
'Objetivo: Ajustar el nivel de transparencia de la ventana principal
' de access. El nivel de transparencia debe estar entre 0 a 250
'.............................................................................
Dim lngHwnd As Long
If Nivel < 0 Or Nivel > 250 Then Exit Function
lngHwnd = Application.hWndAccessApp
SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
End Function



Depois no seu form inicial chame a função da seguinte maneira

Call AccessTransparente(0)


seu form deve estar como pop-up como sim


At+

Muito bom José,inclusive vi alguma imagens de menus que postou pra gente muito legal mesmo,seria bom se postasse algum menu pro pessoal como eu menos experiente,ir estudando como se faz.

Abçs e obrigado.

Kayman...

Esse código mantém o menu do Access escondido, não importando qual formulário você abra dentro do projeto.

Abraços.

É verdade,ja testei com outros forms e funciona direitinho.
Muito obrigado Silvio.

O fórum agradece o teu retorno !

Abraços.

Boa tarde amigos!

Antes de postar este comentário, fiz uma pesquisa aqui no fórum e parece que os códigos VBA postados são compatíveis apenas com versões de 32 bits do Access. Testei vários deles e nenhum funcionou, peço desculpas se talvez não tenha feito a pesquisa corretamente e não tenho encontrado códigos que funcionem nas versões de 64 bits do Access.

Por acaso algum de vocês já utilizou algum código VBA, em sistemas 64 bits, para esconder a janela do Access ao abrir um formulário para login?

Agradeço antecipadamente pela atenção.

Abraços,


Claudio R E Boaventura

Ola amigo, tenho alguns bd que desenvolvi em access 32 bts funcionando em pc com windwos 8 64 bts sem problemas,com a janela do access escondinho sem mostrar a cara rsrsrs.

Abçs.

Olá Kaynan, tudo bem?

Rapaz, acho que o problema talvez esteja no fato do Office (2013) que usamos no trabalho ser 64 bits. Acredito que o fato do Windows ser de 32 ou 64 bits não influencie no funcionamento dos aplicativos, já a arquitetura do Office (32/64 bits) sim.

Caso você tenha bancos criados em Office 64 bits queria saber se funciona em versões de 32 bits do Office.

Abraços, e mais uma vez obrigado pelo retorno!


Claudio

Boa tarde!

Por favor, alguém sabe como reverter essa configuração? Preciso voltar a ver os menus do Access, para fazer outras configurações primeiro, mas não estou conseguindo...
O código ficou excelente, mas não estou sabendo como voltar ao estado anterior, caso seja preciso.

Ola Tearles,

Ao abrir o sistema, pressione ALT+F11 e veja se a IDE do código aparece.

Boa tarde!

Eu consegui, pessoal.
Para entrar na estrutura da base de dados, basta manter a tecla shift pressionada.

Sucesso a todos!