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

    [Resolvido]Problema com código de imputbox

    Compartilhe
    avatar
    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    [Resolvido]Problema com código de imputbox

    Mensagem  mathusalmeida em 9/4/2014, 15:01

    Olá a todos do fórum.

    Adaptei o exemplo de imputbox do Grande Mestre JPaulo, que sem mascará para o password funcionou perfeitamente. O código é este abaixo:

    Código:
    'Verifica se existe parcelas em aberto
    If (Me.ContaRegistro) >= 1 Then
    'Aciona a imputbox
       Dim strInput As String
            strInput = InputBox("Existe(m) " & Me.ContaRegistro & " parcela(s) em aberto para está matrícula." & vbCrLf & vbCrLf & "Entre com a senha de administrador para liberação do parcelamento", _
                                "Acesso Restrito")
            If strInput = "" Or strInput = Empty Then
                MsgBox "Não informou a senha - Cancelado...", vbCritical
           ' Me.RECLAMANTE.SetFocus
                Exit Sub
            End If
            If strInput = "123" Then
    Else
        MsgBox ("Senha inválida..."), vbCritical
        Exit Sub
    End If
    Else

    Contudo, como a idéia é ter um administrador do sistema que libere apenas com a senha, não é interessante está estar visível.

    Pesquisei aqui no fórum, encontrei outro exemplo do Grande Mestre JPaulo, com máscara para o password. Estudando os módulos vba, verifiquei que a máscara é programada neste módulo:

    Código:
    Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
                            Optional YPos, Optional HelpFile, Optional Context) As String
        Dim lngModHwnd As Long, lngThreadID As Long

        lngThreadID = GetCurrentThreadId
        lngModHwnd = GetModuleHandle(vbNullString)

        hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

        InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
        UnhookWindowsHookEx hHook

    End Function

    Bom adaptando ao meu projeto, retirei o final DK da imputbox no módulo, uma vez que estou chamando apenas uma única imputbox.

    Aí vêm o problema. Gera o seguinte erro. "Espaço insuficiente para a pilha" e reporta para esta linha:

    InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)

    minha rotina é está:
    Código:
       Dim strInput As String
            strInput = InputBox("Existe(m) " & Me.ContaRegistro & " parcela(s) em aberto para está matrícula." & vbCrLf & vbCrLf & "Entre com a senha de administrador para liberação do parcelamento", _
                                "Acesso Restrito")
            If strInput = "" Or strInput = Empty Then
                MsgBox "Não informou a senha - Cancelado...", vbCritical
           ' Me.RECLAMANTE.SetFocus
                Exit Sub
            End If
            If strInput = "123" Then
    Else
        MsgBox ("Senha inválida..."), vbCritical
        Exit Sub

    Se alguém puder dá uma força, desde já agradeço.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    Registrado : 29/06/2012

    Re: [Resolvido]Problema com código de imputbox

    Mensagem  Noobezinho em 12/4/2014, 06:35

    Olá Mathusalem

    Dando um pitaco.

    Não seria melhor ir pelo simples?

    Criar um formulário para o login e senha, já que a caixa de texto já tem a entrada de dados para senha(*******).

    Isso evita todo esse código(sem desmerecer , claro!).

    E o formulário terá melhor apresentação!! (eu não gosto de inputbox  Mad )


    Abraços  Wink 

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .
    avatar
    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    Re: [Resolvido]Problema com código de imputbox

    Mensagem  mathusalmeida em 12/4/2014, 13:37

    É uma boa opção.

    Vou implementá-la, depois dou retorno.

    Sucesso.
    avatar
    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    Re: [Resolvido]Problema com código de imputbox

    Mensagem  mathusalmeida em 12/4/2014, 13:58

    nobezinho

    Clareando mais o projeto, esta imputbox sera acionada a partir de um form de liberação de comandas de gás.

    Quando a matrícula do associado for digitada, no avento ao atualizar roda um Dcontar, verificando se existe comanda liberada para aquela matrícula, e só libera a tela de de liberação desta comanda se o usuário digitar a senha na imputbox. Somente uma pessoa autorizada poderá fazer isto, como aqueles gerente de caixas de supermercado que excluem informações com suas senhas mestre.

    por isso o uso da imputbox com máscara.

    Mais sua idéia é adpatável.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    Registrado : 29/06/2012

    Re: [Resolvido]Problema com código de imputbox

    Mensagem  Noobezinho em 15/4/2014, 18:55

    Olá Mathusalem

    Conseguiu fazer o formulário de login/senha?

    Aqui um exemplo do que falei:


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


    Abraços


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3383
    Registrado : 04/04/2010

    Re: [Resolvido]Problema com código de imputbox

    Mensagem  Avelino Sampaio em 16/4/2014, 04:18

    Olá!

    Uma outra opção é você Utilizar o próprio formulário para inserir a senha.  Baixe o exemplo deste tópico e tente adaptar ao seu caso:

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!


    Última edição por Avelino Sampaio em 16/4/2014, 10:44, editado 1 vez(es)
    avatar
    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    Re: [Resolvido]Problema com código de imputbox

    Mensagem  mathusalmeida em 16/4/2014, 09:54

    Obrigado a todos pela atenção.

      Data/hora atual: 26/6/2017, 13:18