Um pouquinho de sql…

Private Sub LocalizarTodosCampos()
‘O código abaixo, localiza o critério em qualquer campo do formulário
‘Cortesia de Alexandre Minato
‘Permitida a distribuição / utilização desde que mantido os créditos

If Me.txtFiltro = “” Then Exit Sub

Dim sql As String
sql = “SELECT * FROM tblCadastro ”

Dim contador As Byte
contador = 0

If Not IsNull(Me.txtFiltro) Then
sql = sql + ” WHERE ”
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
If Len(ctl.ControlSource) > 0 And ctl.Locked = False Then
If contador > 0 Then sql = sql + ” OR ”
sql = sql + “(” + ctl.ControlSource + ” Like ‘*’ & ‘” + Me.txtFiltro + “’ & ‘*’) ”
contador = contador + 1
End If
End If
Next
End If

Me.Form.RecordSource = sql
Me.Recalc
End Sub