insertar

praetoriano
27 de Julio del 2004
Hola y gracias por su atencion, he acudido a ustedes para a ver si me pueden ayudar, miren tengo un codigo que quiero q me haga los siguiente, que me inserte una una tabla de una base de datos elemenosts de dos listas que tengo en un formulario, mire aqui esta el codigo:

Dim db As Database
Dim rs As Recordset
Dim num_informe As Integer
Set db = OpenDatabase(App.Path & "buscarinformes.mdb") 'nombre de la base de datos *nombrebasedatos*
Set rs = db.OpenRecordset("informes") 'nombre de la tabla es *nombretabla*
For num_informe = 0 To List2.ListCount - 1
rs.AddNew
rs.Fields("nombreinforme") = List1.List(List1.ListIndex) 'el campo es *basededatos*
rs.Fields("nombrebd") = List2.List(num_informe) 'el campo es *informe*
rs.Update
Next num_informe
rs.Close
db.Close

Pero el problema es que me da un fallo en la linea del update y no se porque, me pueden ayudar??
Me dice que que "no puede ser una cadena de longitud cero"
Por favor, me pueen ayudar. Gracias.

Grisel
27 de Julio del 2004
Revisa las propiedades de los campos a lo mejor ese campo lo
colocaste a que no aceptara valores nulos, le podrìas cambiar la
popiedad a que aceptara valores nulos o le colocas un valos predeterminado
al campo; que en dado caso que tenga un valor null inserte el valor
predeterminado.
espero que esto te sirna de algo.