Clausula CASE em VB

[feralton 0]

Bom dia Amigos...É o seguinte, eu tenho a seguinte instrução utilizando banco ACCESS:Set rs = db.Execute("select * from pagrec where valor > 1")Mas preciso colocar uma condição CASE apos o valor > 1, para complementar o filtro. Tipo assim, caso determinada CheckBox estiver flegada, entao é um filtro a complementar no where, caso outro CheckBox estiver flegado, então é outro filtro.A clausula IIF é boa, mas não serve para mim.Existe a clausula CASE para ser utilizada com bancos ACCESS.Obrigado amigos!

[Veber 0]

faz assim

 

SQL = "select * from pagrec where valor > 1"If chkBox1.Checked then    sql = sql & " AND filtro01 > 10"elseif chkBox2.checked then   sql = sql & " AND filtro02 = true"endifset rs = db.execute(sql)

tendeu?

ai, é só adaptar a técnica para outros casos semelhantes

 

 

Flows