[Resolvido]O mesmo que o IN do SQL para VBA

No SQL: SELECT * FROM tabela WHERE codigo IN (1,2,3)

Ou seja, selecionar todos os registros onde o código é 1 ou 2 ou 3.

Como faço o mesmo no VBA? Uma das maneiras possíveis seria essa: If codigo = 1 Or codigo = 2 Or codigo = 3 Then ...

Mas, o que posso usar no lugar de "IN" para VBA?

Uma das outras maneiras seria:

Dim matriz() As Variant
matriz = Array(1, 2, 3)
codigo = [A INSERIR]
i = 0
Do While i <= 2
....If codigo = matriz(i) Then
........MsgBox "Ok"
........GoTo encerra_while
....Else
........MsgBox "Erro"
....End If
....i = i + 1
Loop

... "SELECT * FROM tabela WHERE codigo = 1 Or codigo = 2 Or codigo = 3"

ou

... "SELECT * FROM tabela WHERE codigo >= 1 Or codigo <= 3"

ou

... "SELECT * FROM tabela WHERE codigo BETWEEN 1 And 3"

Criquio, para SQL, eu já tenho a solução, que é o "IN". A minha pergunta foi para VBA.

E a resposta idem. O SQL pode ser usado no VBA.

Não, Criquio. Eu quero usar a linguagem do VBA e não do SQL. Exemplo:

If codigo IN (1,2,3) Then
....MsgBox "Ok"
Else
....MsgBox "Erro"
End If

Mas, o VBA não reconhece esse "IN".

Tentei outro: "If codigo = (1 or 2 or 3) Then", mas também não dá certo.

Mas é semelhante ao que postei. Veja assim:

If codigo >= 1 Or codigo <= 3 Then
...

Criquio, isso eu tinha comentado na primeira mensagem. A minha pergunta é se existe um semelhante ao "IN" do SQL.

Se fosse número sequencial, seria fácil. Já imaginou para texto?

If produto = 'cama' or produto = 'mesa' or produto = 'geladeira' or produto = 'pia' or produto = 'janela' Then

O ideal seria:

If produto IN ('cama', 'mesa', 'geladeira', 'pia', 'janela') Then

Dê uma olhada nesse tópico aonde falo sobre Arrays. Talvez o que você esteja querendo seja algo semelhante. Lá tem um conjunto de itens em uma array chamada Meses. Algo semelhante poderia ser utilizado e para verificar todos, poderia usar algo assim:

Código:

Dim N As Integer

For N = LBound(Meses) To UBound(Meses)
    If código = Meses(N) Then
        MsgBox "OK"
    Else
        MsgBox "Erro"
    End If
Next

LBound indica o menor número da sequência e UBound indica o maior número.

Seria melhor explicar a finalidade disso

O select case seria uma opção

SELECT CASE me!Campo
case 'cama', 'mesa', 'geladeira', 'pia', 'janela'
'faz algo
case "porta",cadeira"
'faz outra
case else
'faz algo
end select

Não está claro o seu objetivo final

Complementando a informação do Mestre Avelino, se tiver poucos items será aconselhável uma codificação, se tiver muitos será melhor outra codificação, até guardar valores em tabela, em variável global, por ex.. Também dependerá da regularidade, ou não, que tenha que alterar esses valores.

rs, Criquio, sobre o Array, eu também tinha comentado, até dei exemplo. Veja na primeira mensagem.

Avelino, resolveu o que eu queria. Não preciso ficar repetindo teste de expressão. Conhecia esse comando, mas não sabia que podia usar vírgula para lista: Case 'cama','mesa','porta','pia': MsgBox "Ok!".

É, Alexandre, eu poderia resolver com If...Then...End, ou com Array, mas em algumas situações o Select Case é mais viável.

Agradeço aos três colaboradores. Podem fechar o tópico e colocar [Resolvido].