tengo una rutina en un evento onChange de un cuadro de texto:
Código:
El problema lo tengo en que no soy capaz de obtener el valor del cuadro de texto desde donde llamo al evento, es decir, nombre_txt.value.Private Sub nombre_txt_Change() Dim db As DAO.Database, qd As DAO.QueryDef Set db = OpenDatabase("V:\COMPARTIDA CON EL DEPARTAMENTO\SUSI-GLORIA\TELEASISTENCIA Y MENJAR\Teleasistencia\Antonio.mdb") 'Ruta y nombre de la base de datos Set qd = db.QueryDefs("BENEFICIARIOS_ACTIVOS") 'Nombre de la consulta qd.Sql = "SELECT BENEFICIARIOS.nombre, BENEFICIARIOS.apellido1, BENEFICIARIOS.apellido2, BENEFICIARIOS.baja FROM BENEFICIARIOS WHERE (((BENEFICIARIOS.baja) Is Null) AND (nombre LIKE '*" & nombre_txt.Value & "*') AND (apellido1 LIKE '*" & Me.apellido1_txt.Value & "*')) ORDER BY [BENEFICIARIOS].[apellido1], [BENEFICIARIOS].[apellido2];" 'Instrucción SQL de la consulta MsgBox (qd.Sql) db.Close DoCmd.Requery "lista" Set qd = Nothing Set db = Nothing End Sub
Hay alguna forma de poder obtener ese valor???
Gracias de antemano