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

    [Resolvido]Problema com código de imputbox

    Compartilhe

    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 Qua 09 Abr 2014, 20: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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Sab 12 Abr 2014, 11: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 .

    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 Sab 12 Abr 2014, 18:37

    É uma boa opção.

    Vou implementá-la, depois dou retorno.

    Sucesso.

    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 Sab 12 Abr 2014, 18: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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Ter 15 Abr 2014, 23: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 .

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em Qua 16 Abr 2014, 09: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 Qua 16 Abr 2014, 15:44, editado 1 vez(es)


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    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 Qua 16 Abr 2014, 14:54

    Obrigado a todos pela atenção.

      Data/hora atual: Seg 05 Dez 2016, 16:30