|
Hola el problema que tengo es el siguiente:
Tengo en un formulario, cuadros combinados cuadros de texto etc.
Los cuadros combinados buscan informacion en tablas que no estan relacionadas y en los campos de texto se introducen manualmente los datos.
Quiero llevar esos datos a una tabla unica (Presupuestos)
Lo estoy haciendo como aparece en el siguiente codigo, pero no funciona. Podrias, por favor, indicarme como debo hacerlo, qué estoy haciendo mal?
Como se introduce en la tabla la informacion procedente de un cuadro combinado?
Muchas gracias por vuestra atencion!!
Private Sub Comando46_Click()
'Introduce datos de la caja de texto en una tabla
Dim db As DAO.Database
Dim rs As Recordset
Dim tbf As TableDef
Set db = CurrentDb
Set rs = db.OpenRecordset("select * from Presupuestos")
rs.MoveFirst
rs.Fields("Cantidad") = [Cantidad]
rs.MoveNext
Set db = Nothing
End Sub
|
