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


    Abrir Formulário inicial e fechar Automaticamente

    avatar
    jsbatista
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 06/11/2010

    Abrir Formulário inicial e fechar Automaticamente Empty Abrir Formulário inicial e fechar Automaticamente

    Mensagem  jsbatista em 12/6/2018, 16:07

    Prezados bom dia.

    Procurei aqui no fórum mas não encontrei, como tenho pouco experiencia com access, gostaria de ajuda.

    1. No momento está assim: clico no arquivo e abre o form com o logo da empresa, e depois eu clico no botão abrir e abre o form menu;

    2. Eu queria inserir um código, quando eu clicar no arquivo e abrir o form inicial com a logo da empresa, em seguida ele feche automaticamente e abra o form menu.

    Obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Abrir Formulário inicial e fechar Automaticamente Empty Re: Abrir Formulário inicial e fechar Automaticamente

    Mensagem  JPaulo em 12/6/2018, 16:33

    Ola

    Use o cronometro do formulario;

    Exemplo entre muitos;

    http://www.maximoaccess.com/t1663-resolvidotimer-no-formulario-de-fechar-banco



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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Abrir Formulário inicial e fechar Automaticamente Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Abrir Formulário inicial e fechar Automaticamente Folder_announce_new 102 Códigos VBA Gratuitos...
    Abrir Formulário inicial e fechar Automaticamente Folder_announce_new Instruções SQL como utilizar...
    avatar
    jsbatista
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 06/11/2010

    Abrir Formulário inicial e fechar Automaticamente Empty Abrir Formulário inicial e fechar Automaticamente

    Mensagem  jsbatista em 13/6/2018, 11:55

    JPaulo. poderia me dar uma dica como fazer.
    avatar
    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 113
    Registrado : 28/08/2016

    Abrir Formulário inicial e fechar Automaticamente Empty Re: Abrir Formulário inicial e fechar Automaticamente

    Mensagem  JIR em 13/6/2018, 13:17

    Olá jsbatista,

    veja se atende

    no seu form inicial, no Cronómetro, coloca

    Private Sub Form_Timer()
    If Me.TimerInterval = 2000 Then
    TimerInterval = 2000
    End If
    ' Fecha o formulário inicial.
    DoCmd.OpenForm "frmLogin"
    DoCmd.Close acForm, "Seu Form Inicial"
    End Sub



    Disponha

    José Silva
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Abrir Formulário inicial e fechar Automaticamente Empty Re: Abrir Formulário inicial e fechar Automaticamente

    Mensagem  JPaulo em 13/6/2018, 16:35

    Desculpem de não ter respondido ainda, estou no red line.

    Outra forma será;

    Logo no inicio do VBA do seu 1º formulario, abaixo do Option Compare Database, você cola este trecho:
    Código:
    Public i As Double

    No evento ao abrir do seu 1º form, você cola este trecho;
    Código:
    Private Sub Form_Open(Cancel As Integer)
        i = 1
     Me.TimeInterval=1000
    End Sub


    No evento do cronometro, você cola este trecho:
    Código:
    Private Sub Form_Timer()
    i = i + 1
        If i = 30 Then 'o 1º form vai ficar aberto durante 30 segundos, pode alterar a gosto
            DoCmd.OpenForm "SeuSegundoFormulario" 'abre o 2º form
            DoCmd.Close acForm, "SeuPrimeiroFormulario" 'fecha o 1º form
        End If
    End Sub


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Abrir Formulário inicial e fechar Automaticamente Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Abrir Formulário inicial e fechar Automaticamente Folder_announce_new 102 Códigos VBA Gratuitos...
    Abrir Formulário inicial e fechar Automaticamente Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado

    Abrir Formulário inicial e fechar Automaticamente Empty Re: Abrir Formulário inicial e fechar Automaticamente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/5/2019, 06:30