MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Palavra Passe

    Compartilhe

    joaquimcoiso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 14/04/2016

    Palavra Passe

    Mensagem  joaquimcoiso em Qui 19 Maio 2016, 19:19

    boas.
    tenho o seguinte codigo para pedir palavra passe:

    Dim strResposta As String
    strResposta = InputBox("Digite a Palavra Passe...", "Palavra Passe", _
    "", 8000, 4000)
    Select Case strResposta
    Case Is = ""
    DoCmd.CancelEvent
    Case Is = "123"

    DoCmd.OpenForm "Gestão"
    Exit Sub
    Case Else
    MsgBox "Palavra Passe Incorreta...", vbCritical
    DoCmd.CancelEvent
    End Select

    funciona perfeitamente, apenas quero que quando vou a escrever a palavra passe ela me apareça do tipo password e nao texto
    alguem sabe como o fazer?
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2919
    Registrado : 06/11/2009

    Re: Palavra Passe

    Mensagem  Assis em Qui 19 Maio 2016, 19:30

    Boa tarde

    Copie e cole num novo modulo
    -----------------------------------------
    Public Function InputBoxDK(Prompt As String, Optional Title As String, Optional Default As String, _
    Optional Xpos As Long, Optional Ypos As Long, Optional Helpfile As String, _
    Optional Context As Long) As String

    Dim lngModHwnd As Long, lngThreadID As Long

    '// Lets handle any Errors JIC! due to HookProc> App hang!
    On Error GoTo ExitProperly
    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)

    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
    If Xpos Then
    InputBoxDK = InputBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)
    Else
    InputBoxDK = InputBox(Prompt, Title, Default, , , Helpfile, Context)
    End If

    ExitProperly:
    UnhookWindowsHookEx hHook

    End Function

    -------------------------------------------

    Depois altere o se código para

    Dim strResposta As String
    strResposta = InputBoxDK("Digite a Palavra Passe...", "Palavra Passe", _
    "", 8000, 4000)
    Select Case strResposta
    Case Is = ""
    DoCmd.CancelEvent
    Case Is = "123"

    DoCmd.OpenForm "Gestão"
    Exit Sub
    Case Else
    MsgBox "Palavra Passe Incorreta...", vbCritical
    DoCmd.CancelEvent
    End Select


    .................................................................................
    *** Só sei que nada sei ***

    joaquimcoiso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 14/04/2016

    Re: Palavra Passe

    Mensagem  joaquimcoiso em Qui 19 Maio 2016, 19:42

    dá o seguinte erro:
    "Sub ou Function nao defenido"
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2919
    Registrado : 06/11/2009

    Re: Palavra Passe

    Mensagem  Assis em Qui 19 Maio 2016, 20:38

    Joaquim

    Quer postar a BD, pode ser só a parte em questão ?


    .................................................................................
    *** Só sei que nada sei ***

    joaquimcoiso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 14/04/2016

    Re: Palavra Passe

    Mensagem  joaquimcoiso em Qui 19 Maio 2016, 21:30

    ok!!
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: Palavra Passe

    Mensagem  roberval em Sex 20 Maio 2016, 14:04

    Eu tento criar meu próprio InputBox, aqui vai um exemplo:

    NOTA: extrai o arquivo inteiro antes de executar o BD
    Anexos
    Msg.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.5 Mb) Baixado 7 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2919
    Registrado : 06/11/2009

    Re: Palavra Passe

    Mensagem  Assis em Sex 20 Maio 2016, 19:13

    Teste
    Anexos
    Msg Alterado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.1 Mb) Baixado 20 vez(es)


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Ter 22 Ago 2017, 23:24