MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Esconder a Tela do Access 2007

    avatar
    Convidado
    Convidado


    [Resolvido]Esconder a Tela do Access 2007 Empty [Resolvido]Esconder a Tela do Access 2007

    Mensagem  Convidado 12/1/2011, 23:08

    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.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Esconder a Tela do Access 2007 Empty Re: [Resolvido]Esconder a Tela do Access 2007

    Mensagem  vieirasoft 12/1/2011, 23:25

    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
    Administrador
    Administrador
    Administrador
    Administrador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 425
    Registrado : 02/11/2009

    [Resolvido]Esconder a Tela do Access 2007 Empty Re: [Resolvido]Esconder a Tela do Access 2007

    Mensagem  Administrador 12/1/2011, 23:32

    O forum agradece que faça uma busca antes de abrir qualquer tópico, aqui existem inumeros exemplos e codigos.
    avatar
    Convidado
    Convidado


    [Resolvido]Esconder a Tela do Access 2007 Empty Re: [Resolvido]Esconder a Tela do Access 2007

    Mensagem  Convidado 13/1/2011, 00:14

    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?
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Esconder a Tela do Access 2007 Empty Re: [Resolvido]Esconder a Tela do Access 2007

    Mensagem  vieirasoft 13/1/2011, 00:16

    Sim

    Criar um Módulo e no evento Load (ao carregar) inserir o código conforme explicado.

    Conteúdo patrocinado


    [Resolvido]Esconder a Tela do Access 2007 Empty Re: [Resolvido]Esconder a Tela do Access 2007

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 23:50