Como evaluar un registro en access

Esta es una opción más corta y sin tanta vuelva.

TABLA

Tengo la tabla en donde los registros resaltados en el campo Apellidos contiene el carácter #.

CONSULTA

Observe el criterio Como "*[#]*", esto permite obtener los apellidos que contengan el caracter #.

RESULTADO DE LA CONSULTA

Da como resultado los 3 registros

Este es el código que utilizo en el botón de filtrar pero cuando introduzco un consumible que contiene # por ejemplo vidrio # 11 no me parece

Pero veo más campos, ¿entonces el filtro no solamente se hace por el cuadro combinado Combustible?

¿Qué código tiene en el cuadro combinado consumible?

Consulta = "SELECT Consulta_Buscar_Consumible.ITEM, Consulta_Buscar_Consumible.FECHA, Consulta_Buscar_Consumible.AREA, Consulta_Buscar_Consumible.GRUPO, Consulta_Buscar_Consumible.CARGO, Consulta_Buscar_Consumible.NOMBRE, Consulta_Buscar_Consumible.SECCIÓN, Consulta_Buscar_Consumible.DESCRIPCIÓN, Consulta_Buscar_Consumible.OBSERVACIÓN, Consulta_Buscar_Consumible.CANT, Consulta_Buscar_Consumible.CAMBIO "
Consulta = Consulta & "FROM Consulta_Buscar_Consumible "
Consulta = Consulta & "WHERE Consulta_Buscar_Consumible.DESCRIPCIÓN Like '*" & Me.Buscar_Consumible & "*' AND Consulta_Buscar_Consumible.AREA Like '*" & Me.Buscar_Area & "*' AND Consulta_Buscar_Consumible.GRUPO Like '*" & Me.Buscar_Grupo & "*' AND Consulta_Buscar_Consumible.FECHA BETWEEN #" & Format(Me.txtFechaInicial, "mm/dd/yyyy") & "# AND #" & Format(DateAdd("s", 86399, Me.txtFechaFinal), "mm/dd/yyyy hh:nn:ss") & "# "
Me.Lista_Consumibles.RowSource = Consulta

Este formulario, corresponde a una respuesta que respondí hace un tiempo:

Datos sin filrar:

Tengo en la columna "Producto" 3 campos que tienen el carácter # en diferente posición y tengo en la columna "CUENTA" palabra "SOCIOS". Al hacer clic en Botón del filtro obtengo:

Este es el código que hace el filtro:

Private Sub btnFiltrar_Click()
'Este algoritmo fue desarrollado por
'Eduardo Pérez Fernández y no es copia de la web
'Favor hacer referencia en sus proyectos, no cuesta nada
'Fecha 04/01/2020
'
'NOTA: En principio se diseñó para tomar el contenido de
'      campos de texto, pero se puede adaptar para combo box
'      o ambos.
 Dim sFiltro As String
 Dim ctrl As Control
 Const conJetDate = "\#mm\/dd\/yyyy\#"   'El formato esperado para las fechas en una cadena de consulta JET.
 For Each ctrl In Me.Controls
   If ctrl.ControlType = acTextBox Then
     If ctrl.Value <> "" And ctrl.Tag <> "fecha" Then
      If ctrl.Value = "#" Then
         ctrl.Value = "[#]"
      End If
      sFiltro = sFiltro & ctrl.Tag & " LIKE '*" & ctrl.Value & "*'" & " OR "
     End If
   End If
 Next
 If sFiltro <> "" Then
  sFiltro = Left(sFiltro, Len(sFiltro) - 4)
 End If
 If IsDate(Me.fdesde) And IsDate(Me.fhasta) Then
  If sFiltro <> "" Then
   sFiltro = sFiltro & " AND fecha between " & _
   Format(fdesde, conJetDate) & " AND " & Format(fhasta, conJetDate)
  Else
   sFiltro = "fecha between " & _
   Format(fdesde, conJetDate) & " AND " & Format(fhasta, conJetDate)
  End If
 End If
 Me.frmSubContabilidad.Form.Filter = sFiltro
' Le decimos al subformulario que active el filtro
' que previamente hemos asignado.
 Me.frmSubContabilidad.Form.FilterOn = True
 

En el formulario se utilizar la propiedad "Información adicional" el nombre del campo, excepto, las fechas solo tienen el nombre "fecha". Con este sistema no importa la cantidad de campos a filtrar y reduce en un 50% el código. Trate de adaptarlo, pero tenga cuidado con los cuadros combinados al hacer referencia a la columna que se debe tomar para la consulta. Le recomiendo no utilizar caracteres especiales en los datos, son un dolor de cabeza.

Ahora para poderle colaborar necesitaría la base de datos con algunos datos ficticios, mi correo es eperezfer@hotmail.com, favor en el asunto hacer referencia a su consulta.

Algo más completo con una función para validar los caracteres especiales

Public Function busca_especial(mtexto As String) As String
 If InStr(1, mtexto, "?") > 0 Then
   busca_especial = Replace(mtexto, "?", "[?]")
 ElseIf InStr(1, mtexto, "#") > 0 Then
   busca_especial = Replace(mtexto, "#", "[#]")
 ElseIf InStr(1, mtexto, "%") > 0 Then
   busca_especial = Replace(mtexto, "%", "[%]")
 ElseIf InStr(1, mtexto, "!") > 0 Then
   busca_especial = Replace(mtexto, "!", "[!]")
End If
End Function

CÓDIGO DE LA FUNCIÓN

Public Function busca_especial(mtexto As String) As String
 If InStr(1, mtexto, "?") > 0 Then
   busca_especial = Replace(mtexto, "?", "[?]")
 ElseIf InStr(1, mtexto, "#") > 0 Then
   busca_especial = Replace(mtexto, "#", "[#]")
 ElseIf InStr(1, mtexto, "%") > 0 Then
   busca_especial = Replace(mtexto, "%", "[%]")
 ElseIf InStr(1, mtexto, "!") > 0 Then
   busca_especial = Replace(mtexto, "!", "[!]")
End If
End Function

Puede utilizar esta función en sus consultas SQL.