MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Abrir formulário a partir de uma função

    avatar
    wianfe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 21/04/2020

    [Resolvido]Abrir formulário a partir de uma função Empty [Resolvido]Abrir formulário a partir de uma função

    Mensagem  wianfe em 16/5/2020, 16:37

    Olá, bom dia e antecipadamente agradeço pela ajuda.
    Duas dúvidas:
    1º. É possível utilizar a função abaixo - copiada aqui do fórum - no Access 2019?
    2º. Onde inserir o comando DoCmd.OpenForm "NomeDoFormulario" NO código desta função?

    Public Function RepararCompactar() 'Comandos ao clicar um botão para reparo e compactação do banco de dados
    Dim P As String
    P = Access.DBEngine.IniPath
    If P = "Software\Microsoft\Office\16.0\Access\Access Connectivity Engine" Then
    'MsgBox "Office 2016"
    SendKeys "%(Tm)", False
    ElseIf P = "Software\Microsoft\Office\15.0\Access\Access Connectivity Engine" Then
    'MsgBox "Office 2013"
    SendKeys "%(Tm)", False
    ElseIf P = "Software\Microsoft\Office\14.0\Access\Access Connectivity Engine" Then
    'MsgBox "Office 2010"
    SendKeys "%(Tc)", False
    ElseIf P = "Software\Microsoft\Office\12.0\Access\Access Connectivity Engine" Then
    'MsgBox "Office 2007"
    SendKeys "%(AgO)", False
    Else
    MsgBox "Adicione este caminho no código " & P
    End If

    End Function

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1472
    Registrado : 23/01/2018

    [Resolvido]Abrir formulário a partir de uma função Empty Re: [Resolvido]Abrir formulário a partir de uma função

    Mensagem  crysostomo em 16/5/2020, 21:04

    Boa tarde
    Código:
    Public Function RepararCompactar() 'Comandos ao clicar um botão para reparo e compactação do banco de dados
    Dim P As String
    P = Access.DBEngine.IniPath
       If P = "Software\Microsoft\Office\16.0\Access\Access Connectivity Engine" Then
              MsgBox "Office 2016"
              DoCmd.OpenForm "SEU FORMULARIO"
         SendKeys "%(Tm)", False
    ElseIf P = "Software\Microsoft\Office\15.0\Access\Access Connectivity Engine" Then
          MsgBox "Office 2013"
           DoCmd.OpenForm "SEU FORMULARIO"
          SendKeys "%(Tm)", False
    ElseIf P = "Software\Microsoft\Office\14.0\Access\Access Connectivity Engine" Then
           MsgBox "Office 2010"
           DoCmd.OpenForm "SEU FORMULARIO"
           SendKeys "%(Tc)", False
    ElseIf P = "Software\Microsoft\Office\12.0\Access\Access Connectivity Engine" Then
           MsgBox "Office 2007"
           DoCmd.OpenForm "SEU FORMULARIO"
           SendKeys "%(AgO)", False
    Else
         MsgBox "Adicione este caminho no código " & P
    End If

    End Function

    Código:
    Private Sub Comando0_Click()
        RepararCompactar
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    wianfe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 21/04/2020

    [Resolvido]Abrir formulário a partir de uma função Empty Seguindo

    Mensagem  wianfe em 20/5/2020, 15:52

    Essa função está em um botão e necessito que ao final da execução, o fomulário de login e senha seja aberto em seguida. A dúvida está em como posso inserir esse código dentro da função!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2458
    Registrado : 22/11/2016

    [Resolvido]Abrir formulário a partir de uma função Empty Re: [Resolvido]Abrir formulário a partir de uma função

    Mensagem  DamascenoJr. em 20/5/2020, 21:04

    Em opções do access no menu arquivo (ou botão office no 2007), nas informações do banco de dados atual, defina o formulário de inicialização.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    wianfe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 21/04/2020

    [Resolvido]Abrir formulário a partir de uma função Empty Abrir formulário a partir de uma função

    Mensagem  wianfe em 23/5/2020, 12:19

    Isso! Impressionante como não imaginei essa solução. É que para quem não tem "muita experiência" no Access ou VBA, toda situação que surge parece complicada. Agradeço a colaboração todos.
    Waltair M Souza
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 104
    Registrado : 06/10/2012

    [Resolvido]Abrir formulário a partir de uma função Empty Re: [Resolvido]Abrir formulário a partir de uma função

    Mensagem  Waltair M Souza em 23/5/2020, 14:16

    olá Wianfe...

    Faltou o resolvido...

    Grato.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1472
    Registrado : 23/01/2018

    [Resolvido]Abrir formulário a partir de uma função Empty Re: [Resolvido]Abrir formulário a partir de uma função

    Mensagem  crysostomo em 27/5/2020, 05:57

    Shocked Shocked scratch scratch


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    wianfe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 21/04/2020

    [Resolvido]Abrir formulário a partir de uma função Empty Re: [Resolvido]Abrir formulário a partir de uma função

    Mensagem  wianfe em 27/5/2020, 21:50

    Obrigado a todos!

      Data/hora atual: 5/12/2020, 09:10