Amigos,

 

Tenho um problema meio complexo. Seguinte, no meu projeto tenho os seguintes campos: Text1.text, Text2.text, Text3.text, Text4.text, Text5.text e Text6.text.

 

Preciso verificar quais txt's estão preenchidos para poder montar a instrução select.

Detalhes: Se for montar utilizando o if, fica com muitos laços.

 

Tem como fazer isso sem usar o if?

 

Fico grato por qualquer ajuda.

Só uma pergunta.

 

como você pretende montar este select com apenas um dos text ou varios ao mesmo tempo

 

vamos supor que tenha preenchido o text1 e  text 5 como você gostaria que ficase o select? mostre um exemplo.

 

É pra montar o select com os text's que estiverem preenchidos.

 

Exemplo:

Digamos que text1, text3 e text6 estajam preenchidos,

 

select * from tabela where campo1 = text1 and campo3 = text3 and campo6 = text6.

 

 

Expedito tenta desta forma primeiro crie um array de seus textbox, se você não souber como fazer isto eis a dica, crie apenas um campo textbox e coloque o nome que desejar,EX: txtFuncionarios.

 

 em seguida copie este text box ou usando o CTRL+C ou em edit/copy em seguida selecione o form e cole este controle (CRTL+V ou edit/paste).

 

irá aperecer uma mesagem perguntando se você deseja criar o array, clique em sim e pronto, seu text é um array ou seja ficou desta forma: txtFuncionarios(0).text

 

Enquanto você for colando os text irão se autonumerar

 

agora cole este código no seu form para teste

 

Private Sub Command1_Click()
Dim Text1(10) As TextBox
Dim Consulta As String
For f = 0 To 5
If Text1(f).Text <> "" Then
Consulta = Consulta + "campo" & f+1 & "='" & Text1(f).Text & "' and "
End If
Next f
Consulta = Left(Consulta, Len(Consulta) - 5)
Text2.Text = "SELECT * FROM tabela WHERE " & Consulta & """"
End Sub

 

o resultado será este:

 

bom agora vamos a um porém:

 

primeiro sua tabela eve estar com campo1, campo2, campo3, e etc. para o select ficar correto se você for utilizar de nome diferentes já não vai funcionar ai teriamos de fazer de outra forma, não seria dificil.

 

veja se funciona pra você

 

Vou testar, ogrigado Treze.

eis o código caso você não queira mudar o nome dos seus texts

 

Dim Consulta As String
Dim textos As Variant
textos = Array(Text1.Text, Text2.Text, Text3.Text)
For f = 0 To 2
If textos(f) <> "" Then
Consulta = Consulta + "campo" & f + 1 & "='" & textos(f) & "' and "
End If
Next f
Consulta = Left(Consulta, Len(Consulta) - 5)
Text4.Text = "SELECT * FROM tabela WHERE " & Consulta & """"
End Sub

 

 

lembrando que a contagem do array começa do 0(zero)