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

    [Resolvido]Acesso entre datas

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 847
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12229
    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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 847
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12229
    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.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12229
    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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 847
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12229
    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: Qua 26 Jul 2017, 09:47