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


    asteriscos na Palavra-Passe

    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº1

    asteriscos na Palavra-Passe Empty asteriscos na Palavra-Passe

    Mensagem  Convidado 26/2/2013, 09:55

    boas, tenho o seguinte codigo

    Private Sub Form_Open(Cancel As Integer)

    Dim PasswordCorrecto As String
    Dim PasswordUsuario As String
    PasswordCorrecto = "asteriscos"
    PasswordUsuario = InputBox("Digite Palavra-Passe", "Digite Palavra-Passe")
    If PasswordUsuario <> PasswordCorrecto Then
    DoCmd.Close acForm, Me.Form.Name
    Call MsgBox("Palavra-Passe Incorrecta", 48, "Digite Palavra-Passe")
    End If

    End Sub

    Pretendia que ao digitar a password esta não parece-se legivel, só não sei como...
    Obrigado
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº2

    asteriscos na Palavra-Passe Empty Re: asteriscos na Palavra-Passe

    Mensagem  Avelino Sampaio 26/2/2013, 10:58

    Olá

    Com o InputBox não é possivel. Existe uma montagem de InputBox com o uso de API's porem deve tomar cuidado para adaptar estas API's, de forma que possa rodar em plataformas de 64 bits.

    Minha sugestão é que vc monte um Formulário próprio para a entrada da senha. No campo senha deste formulário, utilize a máscara "SENHA"

    Um segredinho para utilizar o formulário como entrada de senha é usá-lo na forma MODAL com o acDialog. Isso faz com que o código AGUARDE pelo fechamento do formulário para prosseguir.

    Private Sub Form_Open(Cancel As Integer)

    ' PasswordCorrecto As String - passe esta variável para o modo global e use-a para armazenar a senha inserida no formulário
    Dim PasswordUsuario As String
    PasswordCorrecto = "asteriscos"
    docmd.OpenForm "frmSenha",,,,,acDialog
    If PasswordUsuario <> PasswordCorrecto Then
    DoCmd.Close acForm, Me.Form.Name
    Call MsgBox("Palavra-Passe Incorrecta", 48, "Digite Palavra-Passe")
    End If

    End Sub


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº3

    asteriscos na Palavra-Passe Empty Re: asteriscos na Palavra-Passe

    Mensagem  Convidado 26/2/2013, 12:02

    boas mestre Avelino...
    Não entendi bem esta parte :
    -
    Minha sugestão é que vc monte um Formulário próprio para a entrada da senha. No campo senha deste formulário, utilize a máscara "SENHA"
    -
    Obrigado
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

    asteriscos na Palavra-Passe Empty Re: asteriscos na Palavra-Passe

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 1/5/2024, 21:49