MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Form Transparente

    Compartilhe
    avatar
    chptr0
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 10/08/2017

    Form Transparente

    Mensagem  chptr0 em Qui 10 Ago 2017, 15:19

    Galera primeiramente olá a todos. Sou novo aqui no MaximoAccess!

    O que acontece:

    Estou tentando criar um pequeno sistema no Access, algumas coisas eu já conheço e outras não tenho noção nenhuma de como funciona.

    Utilizo atualmente o Access 2016

    Preciso criar um Formulário com 2 botões (1) - Iniciar e (2) - Sair

    1 - Bom comecei com novo "Banco de dados do desktop em branco";
    2 - Criei um novo formulário = Formulário1;
    3 - Nesse formulário fiz os 2 botões;

    Agora o que eu preciso é:

    Salvar, para que fique na forma de um "arquivo" que ao usuário abrir exiba somente este Formulário sem o (Menu, Itens, Barras do access).
    Que exiba apenas o formulário como se fosse um programa.

    Eu pesquisei no fórum que tem que criar um Macro autoexec

    Então fui em:

    Criar > Macro

    Adicionei os itens

    1 - AbrirFormulário
    2 - MaximizarJanela
    3 - BloquearPainelDeNavegação

    Utilizei o "Converter macros em Visual Basic;

    Salvei o arquivo como arquivo de Banco de dados do Microsoft Access

    ----------------------------------------------------------------------------------------------------------------------------------------------------

    Mas ao abrir o arquivo ele abre com o Menu do Access para editar e tal.

    - Galera por favor quem realmente quiser ajudar não dê respostas óbvias, pois não serão úteis.
    - Já pesquisei nos outros tópicos, mas eles são muito objetivos e pulam partes.
    - Vale lembrar que neste quisito sou leigo então quanto mais detalhado e mais no inicio explicar melhor.

    Obrigado a todos que me ajudarem!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: Form Transparente

    Mensagem  JPaulo em Qui 10 Ago 2017, 15:53

    Ola seja bem vindo ao forum;

    O que você necessita é de esconder a janela do Access;

    Use sempre a busca do forum em primeiro lugar, antes de abrir qualquer tópico, ae se não conseguir dê um grito aqui;

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    chptr0
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 10/08/2017

    Re: Form Transparente

    Mensagem  chptr0 em Qui 10 Ago 2017, 17:44

    JPaulo escreveu:Ola seja bem vindo ao forum;

    O que você necessita é de esconder a janela do Access;

    Use sempre a busca do forum em primeiro lugar, antes de abrir qualquer tópico, ae se não conseguir dê um grito aqui;

    [Você precisa estar registrado e conectado para ver este link.]

    Cara, eu inseri o código do tópico do nosso amigo lá no meu módulo1 ficando assim:

    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

    Está dando erro na linha Private.

    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1889
    Registrado : 13/04/2012

    Re: Form Transparente

    Mensagem  Fernando Bueno em Qui 10 Ago 2017, 20:42

    Boa tarde senhores;

    Tente fazer a seguinte alteração destacada em vermelho:

    Dim dwReturn As Long

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

    Private Declare PrtSafe 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


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: Form Transparente

    Mensagem  JPaulo em Sex 11 Ago 2017, 09:52

    Fernando não é PrtSafe, é PtrSafe

    Código:
    #If VBA7 Then
    Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long
    #Else
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long
    #End If


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1889
    Registrado : 13/04/2012

    Re: Form Transparente

    Mensagem  Fernando Bueno em Sex 11 Ago 2017, 16:24

    Verdade grande mestre tc errado e nem percebi rs


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Ter 21 Nov 2017, 17:33