Obtener datos de una consulta access 2007
Buenos días,
He realizado una base de datos en Access 2007, en la que tengo una tabla con los campos [Id] [Nombre] [Apellido], y una serie de consultas que devuelven los datos que pido.
Desde un formulario pido introducir [nombre] [apellido] y una de las consultas me devuelve el único dato coincidente con todos los registros [Id] [nombre] [apellido].
La duda que tengo es que DESDE EL GENERADOR DE CÓDIGO de ese formulario, no se llegar a la consulta anterior ni al resultado para guardar uno de los campos, el [Id], en una variable y poder usarla donde quiera. ¿Cómo accedo a la consulta? ¿Cómo recupero el dato que necesito? La consulta siempre va a devolver un único resultado.
Muchas gracias.
He realizado una base de datos en Access 2007, en la que tengo una tabla con los campos [Id] [Nombre] [Apellido], y una serie de consultas que devuelven los datos que pido.
Desde un formulario pido introducir [nombre] [apellido] y una de las consultas me devuelve el único dato coincidente con todos los registros [Id] [nombre] [apellido].
La duda que tengo es que DESDE EL GENERADOR DE CÓDIGO de ese formulario, no se llegar a la consulta anterior ni al resultado para guardar uno de los campos, el [Id], en una variable y poder usarla donde quiera. ¿Cómo accedo a la consulta? ¿Cómo recupero el dato que necesito? La consulta siempre va a devolver un único resultado.
Muchas gracias.
1 respuesta
Respuesta de xavi -ae soft-
1
A ver si te entiendo...
Tienes una tabla con los siguientes registros... nombres ficticios ;)
1 Jose Luis Rodriguez Zapatero
2 Mariano Rajoy
3 Artur Más
4 Jose Bono
Quieres que, poniendo en 2 campos de texto Artur y Más, te devuelva el número 3. ¿Cierto?
Pues no se necesita ninguna consulta para eso; basta un Dlookup con las condiciones adecuadas. Algo así (te añado el control de "no encontrado"):
Dim miD As Long
miID = Nz(DLookup("Id", "Nombres", "Nombre='" & Me!txtNombre & "' And Apellido ='" & Me!txtApellido & "'"), 0)
If miID = 0 Then
MsgBox "Sin coincidencias.", vbCritical, "AVISO"
End If
Tienes una tabla con los siguientes registros... nombres ficticios ;)
1 Jose Luis Rodriguez Zapatero
2 Mariano Rajoy
3 Artur Más
4 Jose Bono
Quieres que, poniendo en 2 campos de texto Artur y Más, te devuelva el número 3. ¿Cierto?
Pues no se necesita ninguna consulta para eso; basta un Dlookup con las condiciones adecuadas. Algo así (te añado el control de "no encontrado"):
Dim miD As Long
miID = Nz(DLookup("Id", "Nombres", "Nombre='" & Me!txtNombre & "' And Apellido ='" & Me!txtApellido & "'"), 0)
If miID = 0 Then
MsgBox "Sin coincidencias.", vbCritical, "AVISO"
End If
