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

3 participantes

    [Resolvido] Critério com aspas interferindo no código VBA.

    avatar
    cristiansouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 12/01/2021

    [Resolvido] Critério com aspas interferindo no código VBA. Empty [Resolvido] Critério com aspas interferindo no código VBA.

    Mensagem  cristiansouza 1/9/2021, 14:05

    Olá meus amigos.  Very Happy

    Novamente venho solicitar ajuda aos veteranos rsrs.

    O problema é o seguinte:

    O critério de uma função If possui aspas, porém o VBA entende as aspas como se fizesse parte do código, e não do critério.

    Código:

           If Me.Norma = "ANSI B18.2.1 (Normal)" And Me.Diametro_da_Rosca = "3/4"" Then
           Me.Chave = "33,32"
           Me.Altura = "15,34"
           Else
           End If
    .

    Alguém saberia como ajustar este problema ?


    Última edição por cristiansouza em 2/9/2021, 11:05, editado 1 vez(es)
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 802
    Registrado : 11/12/2017

    [Resolvido] Critério com aspas interferindo no código VBA. Empty Re: [Resolvido] Critério com aspas interferindo no código VBA.

    Mensagem  Ismael Silva 1/9/2021, 15:50

    Bom dia

    Tente assim:

    If Me.Norma = "ANSI B18.2.1 (Normal)" And Me.Diametro_da_Rosca = "3/4"" Then
    Me.Chave =" ""33,32"" "
    Me.Altura = " ""15,34"" "
    Else
    End If
    avatar
    cristiansouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 12/01/2021

    [Resolvido] Critério com aspas interferindo no código VBA. Empty Re: [Resolvido] Critério com aspas interferindo no código VBA.

    Mensagem  cristiansouza 1/9/2021, 17:10

    Perdão Ismael, não me expressei corretamente.

    O meu problema está na primeira linha, na parte do Me.Diametro_da_Rosca = "3/4"".

    Ocorre que este meu segundo critério (3/4") possui uma aspa no final, destacada em vermelho, porém o VBA entende como se tivesse fechando as aspas, pois há a aspa do critério e a de fechamento.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido] Critério com aspas interferindo no código VBA. Empty Re: [Resolvido] Critério com aspas interferindo no código VBA.

    Mensagem  DamascenoJr. 1/9/2021, 18:07

    Em código, duas aspa dupla viram aspa dupla única (gostei de escrever isso). E esta será ignorada pelo código e valerá para a comparação que deseja.

    "3/4"""
    avatar
    cristiansouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 12/01/2021

    [Resolvido] Critério com aspas interferindo no código VBA. Empty Re: [Resolvido] Critério com aspas interferindo no código VBA.

    Mensagem  cristiansouza 1/9/2021, 18:13

    Boa mestre DamascenoJr, funcionou perfeitamente, obrigado! Very Happy
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido] Critério com aspas interferindo no código VBA. Empty Re: [Resolvido] Critério com aspas interferindo no código VBA.

    Mensagem  DamascenoJr. 2/9/2021, 00:16

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 24/9/2022, 20:22