Formulario Interactivo SQL en Access
Hola, Gracias por tu tiempo en revisar mi pregunta.
¿Me podrías ayudar a con un Formulario donde al escribir una sentencia SQL los resultados de esta se vean reflejados en un subformulario? Es decir, tengo un Cuadro de texto, en donde deseo anotar una sentencia SQL por ejemplo: "SELECT nEmpresa FROM empresastbl", después de esto presionar un botón y que en un subformulario se vea esta consulta.
Ojala me haya explicado y pueda ayudarme en esto.
De antemano, gracias por su ayuda.
¿Me podrías ayudar a con un Formulario donde al escribir una sentencia SQL los resultados de esta se vean reflejados en un subformulario? Es decir, tengo un Cuadro de texto, en donde deseo anotar una sentencia SQL por ejemplo: "SELECT nEmpresa FROM empresastbl", después de esto presionar un botón y que en un subformulario se vea esta consulta.
Ojala me haya explicado y pueda ayudarme en esto.
De antemano, gracias por su ayuda.
1 respuesta
Respuesta de xavi -ae soft-
1
Siempre que el subformulario contenga los campos adecuados para mostrarla, es tan fácil como asignar la SQL al origen del registro del formulario que contiene el subformulario.
Aunque me parece que también puedes indicar una consulta como un origen del registro. Para ello creo que necesitaras guardar la SQL como una consulta:
Dim qf As QueryDef
Set qf = CurrentDb.CreateQueryDef("NombreConsulta", Me!elcuadrodetexto)
y, a continuación, asignar ese "NombreConsulta" al control subformulario como SourceObject:
Me!elcontrolsubformulario.SourceObject = "NombreConsulta"
No lo he probado nunca pero leí alguna vez que esto funcionaba.
Aunque me parece que también puedes indicar una consulta como un origen del registro. Para ello creo que necesitaras guardar la SQL como una consulta:
Dim qf As QueryDef
Set qf = CurrentDb.CreateQueryDef("NombreConsulta", Me!elcuadrodetexto)
y, a continuación, asignar ese "NombreConsulta" al control subformulario como SourceObject:
Me!elcontrolsubformulario.SourceObject = "NombreConsulta"
No lo he probado nunca pero leí alguna vez que esto funcionaba.
