[Resolvido]Erro no Script de Login

Boa tarde Senhores..

Faz um tempinho que não participo do fórum, graças a DEUS até hoje estava correndo tudo bem.
Hoje estou tentando criar um form de login mas no script que consegui aqui no fórum, não estou entendendo muito bem, pode ser erro meu, segue abaixo o script para analises de vocês:

Código:

Option Compare Database

Private Sub cmdAcessar_Click()
On Error Resume Next
' Declaração de variáveis
Dim Hora As Date
Dim strCritério As String
Dim varNome As Variant
Dim strMsg As String
Dim strTitle As String

strCritério = "usuarioUsuario = '" & Me.txtUsuario & "' AND usuarioSenha = '" & Me.txtSenha & "'"
varNome = DLookup("usuario", "tblUsuario", strCritério) 'cadastroUsuario é a tabela para gerar nome de usuário e senha. 'A variável "varNome" pesquisa o nome do usuário na tabela "CadastroUsuario" e estabelece este critério de validação para acesso ao formulário que está protegendo.

If IsNull(varNome) Then 'Se estiver em branco ou o nome não corresponder ao existente na tabela login uma mensagem de erro surge.
strMsg = "Senha inválida ou Usuário Invalido. Por favor tente outra vez !"
strTitle = "Senha ?"
MsgBox strMsg, vbQuestion, strTitle

Else

Hora = Time
Call Randomize 'É uma função para gerar mensagens aleatórias. Neste caso seguindo a seguinte orientação:
If (Hora >= CDate("00:00:00") And Hora < CDate("12:00:00")) Then
Call Eval("MsgBox('Bom dia " & Me.Usuario & ". Você está logado(a) com sucesso!@" & "Semeagro Sementes Agropastoril Nossa Sra. Aparecida Ltda @',0,'Sistema para Analises de Sementes.')")
ElseIf (Hora >= CDate("12:00:00") And Hora < CDate("18:00:00")) Then
Call Eval("MsgBox('Boa tarde " & Me.nomeUsuario & ". Você está logado(a) com sucesso!@" & "Semeagro Sementes Agropastoril Nossa Sra. Aparecida Ltda@',0,'Sistema para Analises de Sementes.')")
Else
Call Eval("MsgBox('Boa noite " & Me.nomeUsuario & ". Você está logado(a) com sucesso!@" & "Semeagro Sementes Agropastoril Nossa Sra. Aparecida Ltda@',0,'Sistema para Analises de Sementes.')")
End If
Cancelou = False
UsuárioAtual = Me.nomeUsuario
DoCmd.Close A_FORM, Me.Name
DoCmd.OpenForm "Menu Principal" 'Nome do formulário que você está protegendo A_FORM
End If
End Sub

End Sub

Desde já agradeço

Ola seja bem vindo de novo.

Para ver se devolve algum erro, deve comentar a instrução On Error Resume Next

Para alem disso tem dois End Sub, um está a mais.

Boa tarde  mestre JPaulo.

Primeiramente muito obrigado pelo retorno.
o erro é este.
Erro de compilação:
Método ou membro de dados não encontrados.

E o local é este destacado em vermelho, onde ja coloquei os txtUsuario, campo da tabela Ususario. etc

Código:

Call Randomize 'É uma função para gerar mensagens aleatórias. Neste caso seguindo a seguinte orientação:
If (Hora >= CDate("00:00:00") And Hora < CDate("12:00:00")) Then
Call Eval("MsgBox('Bom dia " & [color=#cc3333]Me.Usuario[/color] & ". Você está logado(a) com sucesso!@" & "Semeagro Sementes Agropastoril Nossa Sra. Aparecida Ltda @',0,'Sistema para Analises de Sementes.')")
ElseIf (Hora >= CDate("12:00:00") And Hora < CDate("18:00:00")) Then
Call Eval("MsgBox('Boa tarde " &[color=#cc3333] Me.nomeUsuario[/color] & ". Você está logado(a) com sucesso!@" & "Semeagro Sementes Agropastoril Nossa Sra. Aparecida Ltda@',0,'Sistema para Analises de Sementes.')")
Else
Call Eval("MsgBox('Boa noite " &[color=#cc3333] Me.nomeUsuario[/color] & ". Você está logado(a) com sucesso!@" & "Semeagro Sementes Agropastoril Nossa Sra. Aparecida Ltda@',0,'Sistema para Analises de Sementes.')")
End If
Cancelou = False
UsuárioAtual = Me.[color=#cc3333]nomeUsuario[/color]
DoCmd.Close A_FORM, Me.Name

Desde já agradeço sua prontidão.

JPaulo consegui um resultado aqui, coloquei o txtUsuario do formCadastroDeUsuario apareceu o Usuário conforme cadastrado, mas eu queria quqe aparecesse o txtNomeUsuario que é o nome completo do Usuário na mensagem. Espero que tenha entendido.

JPaulo esta offline.
Alguém sabe uma solução para este erro?

Faça o teste;

Call Randomize 'É uma função para gerar mensagens aleatórias. Neste caso seguindo a seguinte orientação:
If (Hora >= CDate("00:00:00") And Hora < CDate("12:00:00")) Then
Call Eval(MsgBox("Bom dia " & Me.Usuario & ". Você está logado(a) com sucesso!@" & "Semeagro Sementes Agropastoril Nossa Sra. Aparecida Ltda @',0,'Sistema para Analises de Sementes.'"))
ElseIf (Hora >= CDate("12:00:00") And Hora < CDate("18:00:00")) Then
Call Eval(MsgBox("Boa tarde " & Me.nomeUsuario & ". Você está logado(a) com sucesso!@" & "Semeagro Sementes Agropastoril Nossa Sra. Aparecida Ltda@',0,'Sistema para Analises de Sementes.'"))
Else
Call Eval(MsgBox("Boa noite " & Me.nomeUsuario & ". Você está logado(a) com sucesso!@" & "Semeagro Sementes Agropastoril Nossa Sra. Aparecida Ltda@',0,'Sistema para Analises de Sementes.'"))
End If
Cancelou = False
UsuárioAtual = Me.nomeUsuario
DoCmd.Close A_FORM, Me.Name

No entanto é dificil acommpanhar o código, sem um pequeno exemplo.
Pode por favor anexar aqui parte do seu banco, ou somente um pequeno exemplo ?

Bom dia JPaulo..

Dei uma modificada completa no Script, veja como ficou:

Código:

Option Compare Database

Private Sub cmdAcessar_Click()
If KeyCode = vbKeyReturn Then
Call cmdAcessar_Click
End If
    
    Dim DB As Database
    Dim rs As Recordset
    Static Tentativas As Byte
    
    Tentativas = Tentativas + 1
    If Tentativas > 3 Then
    MsgBox "Você Esgotou as Tentativas de Acesso!", vbCritical, "Sistema para Analises de Sementes - Aviso!!"
    Application.Quit
    Exit Sub
    End If
    If IsNull(Me.txtUsuario) Or Me.txtUsuario = "" Then
    MsgBox "Nome do Usuário é Obrigatório", vbExclamation, "Sistema para Analise de Sementes - Atenção!!"
    Me.txtUsuario.SetFocus
    Exit Sub
    Cancel = True
    End If
    
    If IsNull(Me.txtSenha) Or Me.txtSenha = "" Then
    MsgBox "A Senha do Usuário é Obrigatóra", vbExclamation, "Sistema para Analise de Sementes - Atenção!!"
    Me.txtSenha.SetFocus
    Exit Sub
    Cancel = True
    End If
    
    Set DB = CurrentDb
    Set rs = DB.OpenRecordset("tblUsuario")
    rs = MoveFirst
    Do While Not rs.EOF
    If rs("usuarioUsuario") = Me.txtUsuario Then
    If rs("senhaUsuario") = Me.txtSenha Then
    Achei = "s"
    End If
    End If
    rs.MoveNext
    Loop
    If Achei <> "s" Then
    s = MsgBox(" Senha ou Usuário Inválido ", vbCritical, "Sistema para Análise de Sementes - Atenção")
    Me.txtUsuario.SetFocus
    
    Else
    
    DoCmd.OpenForm "Menu Principal", acNormal
    DoCmd.Close acForm, "Login"
    
    End If
    
End Sub

Segue em anexo o Banco de Dados completo.

O erro agora é este:
"the expression On Click you entered as the event property setting produced the following error: Invalid use of property"

Deve ter enviado o banco errado, reveja por favor.

Pelo que vejo tem erro aqui:

   rs = MoveFirst

Tem de ser:

   rs.MoveFirst

Tem ainda um     Cancel = True, que não se aplica neste evento ao pressionar, deve substituir por     DoCmd.CancelEvent

Tem ainda um Set rs = DB.OpenRecordset("tblUsuario"), tem de ser Set rs = DB.OpenRecordset("select * from tblUsuario")

JPaulo só de corrigir o erro que você encontrou ja deu uma diferença e tanto, agora a mensagem é do próprio Script.
"Senha ou Usuário Invalido."

Segue em anexo o Banco de Dados Novamente.

Continua a não vir com o suposto formulario.

AAAHHHHH!!!!! Sim você quer o formulário Também.

Teste e retorne por favor;

Beleza JPaulo..

Funcionou fiz as correções e rodou tudo normal.

Muito Obrigado.

Tópico Fechado.

Obrigado pelo retorno o forum agradece.