MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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?

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    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"

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    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!!

    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 6 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    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 13 vez(es)


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

      Data/hora atual: Qui 08 Dez 2016, 23:57