OpenRecordset
Publicado por Carlos (5 intervenciones) el 24/09/2022 09:27:06
Hola a todos.
Tengo un formulario en el que prentedo recuperar registros individuales mediante dos cuadros combinados en cascada. A continuación que saque a cuadros te texto independientes todos los valores almacenados en el registro, pudiendo modificarlos y luego guardarlos con un botón.
La cuestión es que he seguido un ejemplo pero no funciona. Os pongo el código por si me podéis orientar.
Tengo un formulario en el que prentedo recuperar registros individuales mediante dos cuadros combinados en cascada. A continuación que saque a cuadros te texto independientes todos los valores almacenados en el registro, pudiendo modificarlos y luego guardarlos con un botón.
La cuestión es que he seguido un ejemplo pero no funciona. Os pongo el código por si me podéis orientar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub recuperaRegistro()
Dim rst As DAO.Recordset, SQL As String
SQL = "SELECT * FROM TARIFA WHERE ESPESOR = '" & Me.COMB_ESPESOR & "' & MATERIAL = '" & Me.COMB_MATERIAL & "'"
Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly)
With rst
Me.txtMaterial = MATERIAL
Me.txtEspesor = ESPESOR
Me.txtPrecioCompra = PRECIO_COMPRA
Me.txtMargen = MARGEN
Me.txtPrecioVenta = PRECIO
Me.txtFechaCompra = ULTIMA_COMPRA
Me.txtPrecioCompraUltimo = ULTIMO_PRECIO_COMPRA
Me.txtObservaciones = OBSERVACIONES
End With
rst.Close: Set rst = Nothing
Exit Sub
End Sub
Valora esta pregunta
0
