MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Comparar caixas de texto em formulário.

    Luís Augusto
    Luís Augusto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 28/10/2011

    Comparar caixas de texto em formulário. Empty Comparar caixas de texto em formulário.

    Mensagem  Luís Augusto 8/6/2012, 21:07

    Boa tarde pessoal!
    Poderiam me ajudar a resolver um problema?

    Como faço para comparar os campos na seguinte situação?
    Tenho uma combo que aceitam multiplos valores, sendo assim os dados na tabela são separados por ponto e vírgula";". Portanto não consigo usar comparadores como "=" "<" ">" ou "<>" para comparar entre os dois campos.
    Como eu poderia dizer ao VBA que a String "Augusto" está contida no valor "Pedro; João; Augusto; Paulo"?
    Devo ressaltar que os dois campos são desacoplados e tem a sua origem em um Dlookup.
    Segue abaixo um exemplo de como estou usando em outros casos.
    Spoiler:
    Desde já agradeço.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Comparar caixas de texto em formulário. Empty Re: Comparar caixas de texto em formulário.

    Mensagem  criquio 9/6/2012, 01:01

    Talvez seja o caso de utilizar o Split, passando o número do vetor. Dê uma pesquisada no help do VBA mesmo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Luís Augusto
    Luís Augusto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 28/10/2011

    Comparar caixas de texto em formulário. Empty Re: Comparar caixas de texto em formulário.

    Mensagem  Luís Augusto 13/6/2012, 02:42

    Demorei para captar mas consigui executar conforme me instruiu Críquio.
    Mais uma vez muito obrigado por compartilhar o seu conhecimento.

    Segue o modo de como foi solucionado o problema.

    Dim txtAvaliado As string
    Dim vetor As Variant

    txtAvaliado = Me.txtAvaliado

    vetor = Split(txtAvaliado, Me.txtQueAvalia )

    If UBound(txtAvaliado) <= 0 Then
    Ação a ser executada....

    Deculpe pela minha didática.
    Abaixo uma explicação melhor retirada do site http://www.macoratti.net/strings.htm
    Spoiler:

    Conteúdo patrocinado


    Comparar caixas de texto em formulário. Empty Re: Comparar caixas de texto em formulário.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:29