[Resolvido]Condição em instrução SQL

Na fonte de registro de um relatório, tenho a seguinte instrução SQL:

SELECT tab_CadFichas.cod_cad_ficha, tab_CadFichas.tab_ficha_DataEnvio, tab_CadFichas.tab_ficha_Patrimonio, tab_CadFichas.tab_ficha_Tarefa, tab_CadFichas.tab_ficha_Ficha, tab_CadFichas.tab_ficha_Tecnico, tab_CadFichas.tab_ficha_Chassis, [tab_ficha_NumLoja] & " " & [tab_ficha_NomeLoja] AS Loja, [tab_ficha_Equipamento] & " " & [tab_ficha_Marca] & " " & [tab_ficha_Modelo] AS Equipamento
FROM tab_CadFichas
WHERE (((tab_CadFichas.tab_ficha_Tecnico) Like [Formulários]![frm_relatorios]![txtBusca] & "*"));

Da forma que está, funciona perfeitamente, porém preciso colocar mais uma condição conforme uma caixa de opção estiver marcada ou não. Se esta opção estiver marcada, duas caixas txtbox tem sua propriedade visible=true (Datainicio) e (Datafim).
Como poderei colocar isto na instrução SQL, sendo que para essas caixas estarem visíveis depende da caixa de opção estar marcada?

Melhor usar o vba para isso.

If Me.NomeCaixaOpção = -1 Then
Me.NomeCampo.Visible = True
Else
Me.NomeCampo.Visible = False
End If

Não é o que preciso... acredito que não entendeu o que coloquei acima.

Tenho o seguinte código na minha caixa de opção:

Código:

Private Sub QdImprimir_AfterUpdate()
If Me.QdImprimir = 2 Then
    Me.ParametroDataInicio.Visible = True
    Me.ParametroDataFinal.Visible = True
    Else
    Me.ParametroDataInicio.Visible = False
    Me.ParametroDataFinal.Visible = False
End If

End Sub

Este código faz com que as caixas de texto fiquem visíveis ou não conforme o botão que está ativado.

O que quero é utilizar o que for preenchido nestas caixas de texto na instrução sql. O problema é que ela estará visível apenas em uma opção. Se colocar uma condição na instrução buscando as caixas, quando elas não estiverem ativadas, vai dar erro.

Um pitaco;

Quando quero fazer esse tipo de manobra, em vez de ocultar apenas escondo a caixa de texto pelas dimensões;



Private Sub QdImprimir_AfterUpdate()
If Me.QdImprimir = 2 Then
Me.ParametroDataInicio.Width = 3600
Me.ParametroDataFinal.Width = 3600
Me.ParametroDataInicio.BorderStyle = 1 'Solido
Me.ParametroDataFinal.BorderStyle = 1 'Solido
Else
Me.ParametroDataInicio.Width = 0
Me.ParametroDataFinal.Width = 0
Me.ParametroDataInicio.BorderStyle = 0 'Transparente
Me.ParametroDataFinal.BorderStyle = 0 'Transparente
End If
End Sub

obrigado JPaulo. Implementei a idéia. Vou dar prosseguimento e qualquer dúvida eu retorno.


Criquio, obrigado pela ajuda.

Valew pelo retorno o forum agradece.