Hola,
tengo una rutina en un evento onChange de un cuadro de texto:
Código:
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
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.
Hay alguna forma de poder obtener ese valor???
Gracias de antemano