Cuadro combinado de búsqueda asociado a cuadro de texto

Hola expertos, a ver si me sabéis resolver esta duda que me está volviendo loca.

Tengo un formulario principal y un subformulario

F.PPAL: Formulario Control arreglos joyerias

Subform: Control_arreglos_joyerias, origen: Subformulario_control_arreglos_joyerias

Pretendo tener un cuadro combinado para filtrar a grandes rasgos y a continuación un cuadro de texto que me vaya buscando letra a letra.

El código para el cuadro combinado funciona bien, es este:

Private Sub Cuadro_combinado48_Change()
Dim OrdenAntiguo As String
OrdenAntiguo = Me.Control_arreglos_joyerias.Form.OrderBy
Me.Control_arreglos_joyerias.Form.OrderBy = Me.Cuadro_combinado48
Me.Control_arreglos_joyerias.Form.OrderByOn = True
Me.Valor = ""
Me.Valor.SetFocus
End Sub

Pero el cuadro de texto me está volviendo realmente loca, porque me funciona en unos formularios sí y otros no, ¿Cómo puede ser????, este es el código:

Private Sub Valor_Change()
If IsNull(Me.Cuadro_combinado48) Or Me.Cuadro_combinado48 = "" Then
MsgBox "Debe seleccionar el campo en el que se realizará la búsqueda", vbOKOnly, "BÚSQUEDA IMPOSIBLE"
Me.Valor = ""
Exit Sub
End If
If IsNull(Me.Valor.Text) Or Me.Valor.Text = "" Then
Me.Control_arreglos_joyerias.Form.Recordset.MoveFirst
Else
Me.Control_arreglos_joyerias.Form.Recordset.FindFirst Me.Cuadro_combinado48 & " LIKE '" & Me.Valor.Text & "*'"
If Me.Control_arreglos_joyerias.Form.Recordset.NoMatch Then
Me.Control_arreglos_joyerias.Form.Recordset.MoveFirst
End If
End If
End Sub

La idea es poner estos cuadros en muchos formularios, lo curioso es que copio y pego, le cambio el nombre del subformulario y en el cuadro combinando cambio los valores de búsqueda y en algunos formularios funciona el cuadro de texto independiente y en otros no.

Gracias de antemano!