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]Máscara em condição IF

    Compartilhe

    IntroviGni
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 10/05/2017

    [Resolvido]Máscara em condição IF

    Mensagem  IntroviGni em Ter 06 Jun 2017, 17:52

    Boa tarde a todos,

    Estou com dificuldades para fazer o código abaixo realizar a ação que eu quero. Minha intenção é fazer com que o usuário digite 20 caracteres em um determinado padrão. Caso ele faça isto, a sub realiza a primeira parte do código. Se não digitar no padrão, a sub executa a segunda parte:

       If NewData = "#####.######/####-##" Then
           Msg = "'" & NewData & "' é uma informação que não está na listagem." & vbCr & vbCr
           Msg = Msg & "Você deseja acrescentá-la?"
           i = MsgBox(Msg, vbQuestion + vbYesNo, "Informação não cadastrada...")
               If i = vbYes Then
                   strSQL = "Insert Into tblPro([Pro]) " & "values ('" & NewData & "');"
                   CurrentDb.Execute strSQL, dbFailOnError
                   Response = acDataErrAdded
                   MsgBox "Cadastramento Realizado com Sucesso", 48, "Aviso!"
               Else
                   Response = acDataErrContinue
                   MsgBox "Cadastramento não realizado", 48, "Aviso!"
                 
               End If
       Else
           MsgBox "Formato inválido. Por favor, verifique!", vbCritical
           
       End If

    Não quero utilizar a propriedade máscara no campo, pois com a máscara eu não consegui que a combobox recuperasse os dados para ver se aquela sequência já foi digitada alguma vez.

    Já tentei diversos caracteres (@, *, 0)para colocar entre as aspas no IF inicial, mas sem qualquer sucesso...
    É possível corrigir esse problema?
    Obrigado pela ajuda.

    Phillip_Junior
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 09/12/2016

    Máscara em condição IF

    Mensagem  Phillip_Junior em Ter 06 Jun 2017, 19:40

    Olá

    O caminho que vc está utilizando é este mesmo, basta apenas você agora separar os códigos por eventos amigo!


    O código que irá verificar se está ou não lista, mantenha no evento NÃO ESTÁ NA LISTA".

    Se tratando de como quer que sua cx de seleção entenda sua digitação, mascaras etc, utilize códigos nos eventos tais como:

    Antes de atualizar
    Após atualizar

    Nesses eventos você pode determinar que tipo de mascara sua cx de seleção receberá ao digitar os dados, bem como fazer com q sua cx de seleção identifique quantidade de caracteres e os transforme na mascara que vc deseja.

    Abraços!!


    .................................................................................
    Phillip_Junior
    Analista de Sistemas
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: [Resolvido]Máscara em condição IF

    Mensagem  Alexandre Neves em Seg 12 Jun 2017, 17:52

    Boa tarde,
    If NewData like "#####.######/####-##" Then
    Msg = "'" & NewData & "' é uma informação que não está na listagem." & vbCr & vbCr
    Msg = Msg & "Você deseja acrescentá-la?"
    i = MsgBox(Msg, vbQuestion + vbYesNo, "Informação não cadastrada...")
    If i = vbYes Then
    strSQL = "Insert Into tblPro([Pro]) " & "values ('" & NewData & "');"
    CurrentDb.Execute strSQL, dbFailOnError
    Response = acDataErrAdded
    MsgBox "Cadastramento Realizado com Sucesso", 48, "Aviso!"
    Else
    Response = acDataErrContinue
    MsgBox "Cadastramento não realizado", 48, "Aviso!"

    End If
    Else
    MsgBox "Formato inválido. Por favor, verifique!", vbCritical

    End If


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    IntroviGni
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 10/05/2017

    Re: [Resolvido]Máscara em condição IF

    Mensagem  IntroviGni em Ter 13 Jun 2017, 13:40

    Bom dia Alexandre Neves,

    O código ficou perfeito. Era isso mesmo que eu estava tentando fazer.
    Obrigado pela ajuda de todos!
    RESOLVIDO!!!

      Data/hora atual: Qua 22 Nov 2017, 20:03