Obtener para un formulario dos campos de una tabla
Tengo dos tablas APE y Tasas. En APE hay un campo que se llama TASA cuyo valor numérico coincide con los Id de la tabla Tasas. En un formulario quiero hacer un calculo para lo que necesito que de acuerdo al valor del campo TASA de la tabla APE busque el registro que coincida con el Id de la tabla Tasas y me devuelvan los campos precio y máximo de la tabla Tasas para el calculo. ¿Cómo puedo hacer el código?
APE
Id AUTO COLOR TASA
Tasas
Id precio máximo
APE
Id AUTO COLOR TASA
Tasas
Id precio máximo
1 Respuesta
Respuesta de jerrmex
1
Sigue este ejemplo:
[1]define una variable tipo string
Dim var As String
[2]define un RecordSet para tener acceso a los datos de la consulta
Dim db As DAO.Database, rs As DAO.Recordset
[3]Crea una consulta de selección condicinando(WHERE) al valor de tu caja de texto donde esta la clave de tasa.
var = "SELECT APE.tasa, APE.campo1, TASAS.precio, TA SAS.valor FROM APE INNER JOIN TASAS ON APE.tasa = TASAS.ID_TASAS WHERE APE.tasa=" & VAL(me.texto_tasa) & "
Set rs = db.OpenRecordset(var)
[4]si SI encontro registros la consulta, almaceno en cajas de texto precio y valor, si no encontró muevo ceros a las cajas de texto
IF rs.RecordCount > 0 Then
me.txt_precio = rs!precio
me.txt_valor = rs!valor
ELSE
me.txt_precio = 0
me.txt_valor = 0
END IF
[5]Cierro el RecordSet
rs.Close
Set db = Nothing
Nota: Para que puedas utilizar el RecordSet debes tener seleccionada la referencia Microsoft DAO 3.6 Object Library
[1]define una variable tipo string
Dim var As String
[2]define un RecordSet para tener acceso a los datos de la consulta
Dim db As DAO.Database, rs As DAO.Recordset
[3]Crea una consulta de selección condicinando(WHERE) al valor de tu caja de texto donde esta la clave de tasa.
var = "SELECT APE.tasa, APE.campo1, TASAS.precio, TA SAS.valor FROM APE INNER JOIN TASAS ON APE.tasa = TASAS.ID_TASAS WHERE APE.tasa=" & VAL(me.texto_tasa) & "
Set rs = db.OpenRecordset(var)
[4]si SI encontro registros la consulta, almaceno en cajas de texto precio y valor, si no encontró muevo ceros a las cajas de texto
IF rs.RecordCount > 0 Then
me.txt_precio = rs!precio
me.txt_valor = rs!valor
ELSE
me.txt_precio = 0
me.txt_valor = 0
END IF
[5]Cierro el RecordSet
rs.Close
Set db = Nothing
Nota: Para que puedas utilizar el RecordSet debes tener seleccionada la referencia Microsoft DAO 3.6 Object Library
