MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]login e senha

    avatar
    marcocalixto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 08/12/2011

    [Resolvido]login e senha Empty login e senha

    Mensagem  marcocalixto 14/1/2012, 15:54

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


    [Resolvido]login e senha Empty Re: [Resolvido]login e senha

    Mensagem  Convidad 14/1/2012, 16:10

    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

    avatar
    marcocalixto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 08/12/2011

    [Resolvido]login e senha Empty Re: [Resolvido]login e senha

    Mensagem  marcocalixto 16/1/2012, 22:00

    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?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]login e senha Empty Re: [Resolvido]login e senha

    Mensagem  JPaulo 17/1/2012, 09:48

    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.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]login e senha Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]login e senha Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]login e senha Folder_announce_new Instruções SQL como utilizar...
    avatar
    marcocalixto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 08/12/2011

    [Resolvido]login e senha Empty Re: [Resolvido]login e senha

    Mensagem  marcocalixto 18/1/2012, 21:10

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]login e senha Empty Re: [Resolvido]login e senha

    Mensagem  JPaulo 18/1/2012, 21:15

    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.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]login e senha Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]login e senha Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]login e senha Folder_announce_new Instruções SQL como utilizar...
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]login e senha Empty Re: [Resolvido]login e senha

    Mensagem  Alexandre Neves 12/5/2013, 08:44

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    [Resolvido]login e senha Empty Re: [Resolvido]login e senha

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:57