[Resolvido]login e senha

boa tarde!!!
Como devo fazer para criar login e senha com nivel de acesso?

http://maximoaccess.forumeiros.com/t2366-resolvidocontrole-de-login-nivel-de-acesso-ativando-botoes-no-menu-principal-de-acordo-com-o-nivel-de-usuario

http://maximoaccess.forumeiros.com/t792-resolvidobloquear-bloqueio-de-usuario-niveis-de-acesso-e-login

http://maximoaccess.forumeiros.com/t1494-resolvidoniveis-de-acesso

http://maximoaccess.forumeiros.com/t3491-resolvidoformulario-de-login

coloquei o código conforme está no exemplo, porém quando vou copilar da uma mensagem de erro no seguinte procedimento:

Call Erro[/color]("Erro", "O texto introduzido não corresponde a nenhuma entrada da lista.", _
"Seleciona teu nome de usuario na lista")
txtUsuario = ""

mensagens de erro é:
compile error:
sub or function not defined

refere-se a (call erro)

Por que?

Para você invocar a chamada de uma função ou Sub "Call Erro", este já deve existir.

Não sei qual o exemplo a que se refere, mas veja se a função ou Sub "Erro", existe num modulo ou no VBA do form.

Boa noite!!!!

o meu office é de portugal, penso que deve ter alguns comandos diferente do Brasileiro.

será que "call erro" é diferente o nome?
vou passar o comando que estou tentando fazer aqui.


Private Sub txtSenha_Exit(Cancel As Integer)
Dim xBusca As Variant
Static Tentativas As Integer
Dim Saudação As String

Tentativas = Tentativas + 1

xBusca = DLookup("[Pass]", "Usuarios", "[Pass] = '" & txtsenha & "' and [Usuario] ='" & txtUsuario & "'")

If Nz(xBusca, "") <> txtsenha Then
Cancel = True
Call Erro("Erro", "A Senha não é valida, tente de novo." & Tentativas, _
"se não sabes a Senha podes recupera-la clicando na opção ""Recuperar Password."" ")
Else
Tentativas = 0
xBusca = DLookup("[sexo]", "Usuarios", "[Usuario] ='" & txtUsuario & "'")
If xBusca = "M" Then
Saudação = " Bem-vinda "
Else
Saudação = " Bem-vindo "
End If
xBusca = DLookup("[Nivel]", "Usuarios", "[Usuario] ='" & txtUsuario & "'")
lblMensagem.Caption = "Olá " & txtUsuario & Saudação & ". Teu nivel de acesso é " & xBusca

End If

If Tentativas = 3 Then DoCmd.Quit

End Sub

grato pela atenção

Portugues, Brasileiro ou Inglês, no VBA são iguais.

Esse exemplo vem de onde ?

O Call erro está a chamar uma função ou sub que está em falta ae.

Não tendo havido continuidade do assunto, passa a Resolvido