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

    [Resolvido]Unificar comando VBA

    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Unificar comando VBA Empty [Resolvido]Unificar comando VBA

    Mensagem  Belobo 23/11/2022, 18:43

    Amigos tenho uma acao no VBA onde gostaria da ajuda pra simplicar o comando
    esta acao considera alterar o campo Cat Final para "Roupas > Bebê > Menina > Blusas e Regatas" onde os
    tamanhos sao P ,M , G e GG e o codigo de fornecedor possui "31*"
    Agradeço !!

    If rstEmployees!Artigo = "Regata" And rstEmployees![Cód do Fornecedor] Like "31*" And rstEmployees!Tam = "P" Then
    rstEmployees.Edit
    rstEmployees![Cat Final] = "Roupas > Bebê > Menina > Blusas e Regatas"
    rstEmployees.Update
    End If

    If rstEmployees!Artigo = "Regata" And rstEmployees![Cód do Fornecedor] Like "31*" And rstEmployees!Tam = "M" Then
    rstEmployees.Edit
    rstEmployees![Cat Final] = "Roupas > Bebê > Menina > Blusas e Regatas"
    rstEmployees.Update
    End If

    If rstEmployees!Artigo = "Regata" And rstEmployees![Cód do Fornecedor] Like "31*" And rstEmployees!Tam = "G" Then
    rstEmployees.Edit
    rstEmployees![Cat Final] = "Roupas > Bebê > Menina > Blusas e Regatas"
    rstEmployees.Update
    End If

    If rstEmployees!Artigo = "Regata" And rstEmployees![Cód do Fornecedor] Like "31*" And rstEmployees!Tam = "GG" Then
    rstEmployees.Edit
    rstEmployees![Cat Final] = "Roupas > Bebê > Menina > Blusas e Regatas"
    rstEmployees.Update
    End If
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2766
    Registrado : 13/12/2016

    [Resolvido]Unificar comando VBA Empty Re: [Resolvido]Unificar comando VBA

    Mensagem  Alexandre Fim 23/11/2022, 19:34

    Olá Belobo

    Tente isso:

    Código:


    If rstEmployees!Artigo = "Regata" And _
      rstEmployees![Cód do Fornecedor] Like "31*" And _
            (rstEmployees!Tam = "P" Or _
            rstEmployees!Tam = "M" Or _
            rstEmployees!Tam = "G" Or _
            rstEmployees!Tam = "GG") Then
        rstEmployees.Edit
        rstEmployees![Cat Final] = "Roupas > Bebê > Menina > Blusas e Regatas"
        rstEmployees.Update
    End If



    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Unificar comando VBA Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Unificar comando VBA Empty Re: [Resolvido]Unificar comando VBA

    Mensagem  Belobo 27/11/2022, 17:11

    Obrigado resolvido

      Data/hora atual: 1/2/2023, 05:35