Guardar ListBox en Tabla Access
Muy Buenas.
Estoy intentando en access guardar mediante una consulta los campos del formulario en una tabla...
Pues bien, lo hago con la siguiente sentencia:
SQL = "Insert into registro_movimientos (num_personal,tipo_reg_entrada) Values(" & txtNum_Personal & ",' " & ccActividades.Value & " ');"
El problema es que aunque guarda bien el registro, solo me coge bien el numero de personal.
El tipo_reg_entrada que lo recojo de un listbox(ccActividades) aparece en la tabla vacío.
Espero respuesta.Un saludo
Estoy intentando en access guardar mediante una consulta los campos del formulario en una tabla...
Pues bien, lo hago con la siguiente sentencia:
SQL = "Insert into registro_movimientos (num_personal,tipo_reg_entrada) Values(" & txtNum_Personal & ",' " & ccActividades.Value & " ');"
El problema es que aunque guarda bien el registro, solo me coge bien el numero de personal.
El tipo_reg_entrada que lo recojo de un listbox(ccActividades) aparece en la tabla vacío.
Espero respuesta.Un saludo
1 Respuesta
Respuesta de areal76
1
Es más fácil utilizar combobox que listbox y es más fácil guardar utilizando recordset así:
dim db as dao.database
set db = dao.currentdb
dim rs as dao.recordset
set rs = db.openrecordset("TABLA")
with rs
.addnew
rs.fields("nombredelcampo") = me.textbox
rs.fields("nombredelcampo") = me.listbox
.update
.close
end with
De esta forma te ahorrar estar contatenando comas y comillas y paréntesis y todo lo demás.
Yo te sugiero que uses combobox y no listbox
cualquier duda estoy pendiente !
dim db as dao.database
set db = dao.currentdb
dim rs as dao.recordset
set rs = db.openrecordset("TABLA")
with rs
.addnew
rs.fields("nombredelcampo") = me.textbox
rs.fields("nombredelcampo") = me.listbox
.update
.close
end with
De esta forma te ahorrar estar contatenando comas y comillas y paréntesis y todo lo demás.
Yo te sugiero que uses combobox y no listbox
cualquier duda estoy pendiente !
Ok. Ya esta solucionado. El problema estaba en una sentencia SQL.
Gracias de todos modos por la ayuda porque me sirvió para mejorar un poco el programa.
Gracias de todos modos por la ayuda porque me sirvió para mejorar un poco el programa.
