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

    Compartilhe

    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

    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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    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;

    [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.]

    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

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

    JPaulo. poderia me dar uma dica como fazer.

    JIR
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    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.

    [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.]

      Data/hora atual: 19/8/2018, 00:33