[Resolvido]Erro no codigo

Bom dia, na minha tela de login no botão de entrar no sistema assim que digitar a senha e o usuario, esta dando um erro de compilação: 'Sub' ou 'Function' não definida, alguem pode esclarecer pra mim este erro ?

ai vai o codigo

Private Sub BotãoLogi()

Private Sub BotãoLogin_Click()
If Not IsNull(CaixaLogin) And Not IsNull(CaixaSenha) Then
If verificaLogin(CaixaLogin, CaixaSenha) Then
DoCmd.Close
DoCmd.OpenForm "Cadastro"
Else
MsgBox "Senha Invalida!", vbExclamation, "Login"
End If
End If
End Sub

Boas Lucas... ao ocorrer o erro, clique em Depurar e veja pra que linha aponta e nos informe.

Cumprimentos.

Private Sub BotãoLogi()

Private Sub BotãoLogin_Click()
If Not IsNull(CaixaLogin) And Not IsNull(CaixaSenha) Then
If verificaLogin(CaixaLogin, CaixaSenha) Then
DoCmd.Close
DoCmd.OpenForm "Cadastro"
Else
MsgBox "Senha Invalida!", vbExclamation, "Login"
End If
End If
End Sub

Exclua a linha:

Private Sub BotãoLogi()

Ja está sem está linha claudio

Faça como o colega claudio lhe indicaste.

Caso não deu certo..

Falta a sub VerificaLogin, que é uma sub-Rotina executada no código

Veja de onde retirou o exemplo e busque a mesma que pode estar no form ou em um módulo


Cumprimentos.