MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Acesso entre datas

    Compartilhe

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    [Resolvido]Acesso entre datas

    Mensagem  toyebom em Sex 17 Jan 2014, 16:16

    Numa BD tenho vários utilizadores no entanto queria restrigir o acesso entre datas
    Como fasso para num uzer lhe atribuir acesso á BD a partir de uma data até outra
     
    O Bd quando abre pergunta nome e passe de utilizador o qual está registado em outro form de registo, o que queria era ir ao forme de registo de utilizadores e apenas a alguns atribuir data de inicio e de fim de acesso
     
    Vejam lá se estou correto ou tenho de alteral algo:
     
    Private Sub Comando0_Click()
    If Me.datainicio > "Data actual" or Me.datafim < "Data actual" then
    MsgBox "O tempo de utilização do utilizador expirou, contacte o administrador!"
    If Me.datainicio < "Data actual" or Me.datafim > "Data actual" or
    If Me.Me.datainicio = "" or Me.datafim = "" then
    DoCmd.open form "Form2"
    End If
    End If
    End If

    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Acesso entre datas

    Mensagem  HARYSOHN em Sex 17 Jan 2014, 18:04

    Boa tarde...

    Na tabela onde se cadastra o usuário craria um campo DataIni e DataFin

    Ao checar o usuário puxaria estas datas em uma variável com a utilização do Dlookup e em seguida faria a checagem entre datas.

    Cumprimentos,


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Acesso entre datas

    Mensagem  toyebom em Sex 17 Jan 2014, 21:16

    Peço desculpa Harysohn isso parece muito fácil, o problema é que eu sou ainda muito "burro" em VBA podes ajudar com algum exemplo para eu estudar???

    Obrigado.

    Já agora, caso possas dar uma ajuda aqui agradecia:

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

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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Acesso entre datas

    Mensagem  HARYSOHN em Sex 17 Jan 2014, 23:36

    Logo mais farei-te um pequeno exemplo...
    Depois darei uma olhada nos outros tópicos.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Acesso entre datas

    Mensagem  HARYSOHN em Sex 17 Jan 2014, 23:47

    Há dois usuários na tabela..
    Abra o frmExemplo, clique no botão com o primeiro usuário e observe, em seguida selecione o próximo usuário e clique no botão.

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

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Acesso entre datas

    Mensagem  toyebom em Sab 18 Jan 2014, 00:48

    Obrigado pelo retorno e pelo exemplo.

    Resolvi o problema assim:

    Tabela cadastro: Criei campos Datainicio e campo Datafim configurados para Data/hora
    Formulário autorização com o nome frm_menuprincipal coloquei os campos vinculados á tabela Cadastro ocultos
    Butão Avançar coloquei:

    Private Sub Imagem41_Click()
    On Error GoTo Imagem41_Click_Err

    If Me.Datainicio > Date Then
    Beep
    msgbox "Não tem acesso na presente data. Contacte o Administrador!", vbCritical
    Application.Quit acPrompt
    End If
    If Me.Datalimite < Date Then
    Beep
    msgbox "O seu código de acesso expirou. Contacte o Administrador!", vbCritical
    Application.Quit acPrompt
    End If

       DoCmd.Close acForm, "frm_menuprincipal"
       DoCmd.OpenForm "Temporizador", acNormal, "", "", , acNormal
       
    Imagem41_Click_Exit:
       Exit Sub

    Imagem41_Click_Err:
       msgbox Error$
       Resume Imagem41_Click_Exit

    End Sub


    Testei e funcionou na perfeição.
    Mesmo assim agradeço.

    Caso possa agradeço ajuda nos outros tópicos é que já deito fumo pelos ouvidos de tentar resolver.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Acesso entre datas

    Mensagem  HARYSOHN em Sab 18 Jan 2014, 01:23

    O Fórum agradece o Retorno.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 10 Dez 2016, 06:53