Como é que eu faço para que quando meu BD esconder o fundo do access 2007 e executar o formulario que esta progrmado para iniciar.
2 participantes
[Resolvido]Esconder a Tela do Access 2007
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº2
Re: [Resolvido]Esconder a Tela do Access 2007
Acabamos agora de responder a isso
Tem este:
Para simular um executável com o access você pode fazer recurso de uma API do Windows
Option Compare Database
Option Explicit
'Autor da função base: Indeterminado
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, byronlcl@gmail.com
'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
'
'Ejemplo de uso:
'Private Sub Form_Load()
'Call AccessTransparente(175)
'End Sub
.....................................
Tem este
http://maximoaccess.forumeiros.com/t1451-ajusta-formulario-a-tela-sem-a-alterar
é só escolher
Tem este:
Para simular um executável com o access você pode fazer recurso de uma API do Windows
Option Compare Database
Option Explicit
'Autor da função base: Indeterminado
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, byronlcl@gmail.com
'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
'
'Ejemplo de uso:
'Private Sub Form_Load()
'Call AccessTransparente(175)
'End Sub
.....................................
Tem este
http://maximoaccess.forumeiros.com/t1451-ajusta-formulario-a-tela-sem-a-alterar
é só escolher
Administrador- Administrador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 432
Registrado : 02/11/2009
- Mensagem nº3
Re: [Resolvido]Esconder a Tela do Access 2007
O forum agradece que faça uma busca antes de abrir qualquer tópico, aqui existem inumeros exemplos e codigos.
Convidado- Convidado
- Mensagem nº4
Re: [Resolvido]Esconder a Tela do Access 2007
Me explica uma coisa:
Para colocar no banco de dados é só copiar e criar um novo modulo e ir ao formulario que executavel e ir ao envento "ao carregar e selecionar o modulo?
Para colocar no banco de dados é só copiar e criar um novo modulo e ir ao formulario que executavel e ir ao envento "ao carregar e selecionar o modulo?
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
- Mensagem nº5
Re: [Resolvido]Esconder a Tela do Access 2007
Sim
Criar um Módulo e no evento Load (ao carregar) inserir o código conforme explicado.
Criar um Módulo e no evento Load (ao carregar) inserir o código conforme explicado.