[Resolvido]Unificar comando VBA

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

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

Obrigado resolvido