[Resolvido]Acesso entre datas

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

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,

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:

http://maximoaccess.forumeiros.com/t16973-filtro-problema-com-data

http://maximoaccess.forumeiros.com/t16974-run-time-error-3420

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

Cumprimentos.

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.

https://dl.dropboxusercontent.com/u/26441349/AcessoPorData.rar

Cumprimentos.

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.

O Fórum agradece o Retorno.