Como colocar mais de um valor dentro de uma variavel que serve de criterio para uma consulta.

Boa tarde, galera!!!

Preciso saber como faço para colocar mais de um valor dentro da mesma variavel vejam:

Globa inha As integer

inha = 1 ou 2 ou 3 ou 4
inha = fnclinha

fnclinha esta em um critério de uma consulta no campo [linha] onde se eu digitar 1 ou 2 ou 3 ou 4
tenho o resultado que desejo.
e ai josé?!? como eu faço?

Crie uma variável do Tipo Array

Dim VarTeste(3)

Esta escrita significa que a variável poderá conter 5 valores

VarTeste(0) = 1
VarTeste(1) = 2
VarTeste(2) = 3


A variável então conterá os 3 valores (1,2 e 3) nas posições de 0 a 2, conforme está acima


Então em um procedimento de consulta podes utilizar um procedimento com o for

Dim X as Integer
For X = 0 to Ubound VarTeste

>>> Aqui utilizaria o critério sendo que a cada proximo valor de X seria uma posição dentro da Array
VarTeste(X)

Next X


é por ai...


Cumprimentos.

Veja este interessante tutorial sobre Arrays do nosso Mestre Críquio.


http://maximoaccess.forumeiros.com/t7580-arrays-veja-como-utiliza-las-para-simplificar-e-automatizar-tarefas


Cumprimentos.

i = Split(fnclinha, "ou")

A linha acima está criando:
i(0) = 1
i(1) = 2
i(2) = 3
i(3) = 4

Sua consulta deve ficar mais ou menos assim:

SELECT * FROM SuaTabela WHERE Linha=1 Or Linha=2 Or Linha=3 Or Linha=4

Para substituir os valores fixos pela variável i(0) até i(3), use o método CreateQueryDef

Qualquer variação na regra, por exemplo: And no lugar de Or, será necessário adaptar a solução.

Veja uma SQL utilizando o operador IN:

StrSQLMens = "SELECT * FROM tblMenssagem WHERE ID_Messagem In (" & Forms!frmBoleto!txtMenssagem & ")"

Nesta SQL filtra todos os registros cujo na caixa texto txtMenssagem contenha valores separados por ","
Ex.: 1,2,3,4


Veja um exemplo carregando uma variável: StrWhere

Código:



Private Sub btnSeleciona_Click()
    Dim ctl As Control, frm As Form, lngContador As Long
    Dim StrSQL As String

    Set frm = Forms!frmPesQMenssagens
    Set ctl = frm!LstMens
   
    StrWhere = ""
    For lngContador = 0 To ctl.ListCount - 1
        If ctl.Selected(lngContador) Then
            StrWhere = StrWhere & "," & ctl.Column(0, lngContador)
        End If
    Next
    StrWhere = Mid(StrWhere, 2)
   
    If ctl.ItemsSelected.Count = 0 Then
        MsgBox "Selecione as Menssagens", vbCritical, "ATENÇÃO"
        Exit Sub
    End If
Forms!frmBoleto!txtMenssagem = StrWhere
DoCmd.Close
End Sub


Neste código carregamos a caixa texto no form com a variável StrWhere (1,2,3,4)

Podes utilizar diretamente a variável no lugar da caixa texto:

StrSQLMens = "SELECT * FROM tblMenssagem WHERE ID_Messagem In (" & StrWhere & ")"




Cumprimentos.

Poxa pessoal, cada exemplo mais cabeludo que o outro... Nossa quebrei a cabeça tentando acompanhar a lógica da programação mas tem codigos e funções que não conheço . Mas obrigado pessoal, estou tentando resolver meu problema e qualquer coisa eu posto aqui o retorno ok? Muito obrigado mais um vez!!!

Aguardaremos então.


Bom trabalho.