no puedo guardar + de 2 registros.
Hola, mi problema serio.
Estoy agregando en 2 tablas diferentes registros. pero solo me permite guardar 1 solo registro en cada tabla, si en alguna de las 2 tablas deseo agregar 2 o más.. me manda el Err 3163. supuestamente no el dato a agregar es mas grande que el tamaño del campo..
oooh!! no se que es. esto es el codigo
saludos!!.
'---tabla de macros-
Data5.Refresh
While Data5.Recordset.EOF = False
'SumaMa = SumaMa + Data5.Recordset("CantIng")
Data3.Recordset.AddNew
Data3.Recordset("IdFormula") = id
Data3.Recordset("NumFor") = TxtNumFor.Text
Data3.Recordset("IdIng") = Data5.Recordset("NomIng")
Data3.Recordset("CantIng") = Data5.Recordset("CantIng")
Data3.Recordset.Update
Data3.Refresh
Data5.Recordset.MoveNext
Wend
'----tabla de micros-
Data6.Refresh
While Data6.Recordset.EOF = False
Data7.Recordset.AddNew
Data7.Recordset("IdFormula") = id
Data7.Recordset("NumFor") = TxtNumFor.Text
Data7.Recordset("IdIng") = Data6.Recordset("NomIng")
Data7.Recordset("CantIng") = Data6.Recordset("CantIng")
Data7.Recordset.Update
Data7.Refresh
Data6.Recordset.MoveNext
Wend
'------------
Estoy agregando en 2 tablas diferentes registros. pero solo me permite guardar 1 solo registro en cada tabla, si en alguna de las 2 tablas deseo agregar 2 o más.. me manda el Err 3163. supuestamente no el dato a agregar es mas grande que el tamaño del campo..
oooh!! no se que es. esto es el codigo
saludos!!.
'---tabla de macros-
Data5.Refresh
While Data5.Recordset.EOF = False
'SumaMa = SumaMa + Data5.Recordset("CantIng")
Data3.Recordset.AddNew
Data3.Recordset("IdFormula") = id
Data3.Recordset("NumFor") = TxtNumFor.Text
Data3.Recordset("IdIng") = Data5.Recordset("NomIng")
Data3.Recordset("CantIng") = Data5.Recordset("CantIng")
Data3.Recordset.Update
Data3.Refresh
Data5.Recordset.MoveNext
Wend
'----tabla de micros-
Data6.Refresh
While Data6.Recordset.EOF = False
Data7.Recordset.AddNew
Data7.Recordset("IdFormula") = id
Data7.Recordset("NumFor") = TxtNumFor.Text
Data7.Recordset("IdIng") = Data6.Recordset("NomIng")
Data7.Recordset("CantIng") = Data6.Recordset("CantIng")
Data7.Recordset.Update
Data7.Refresh
Data6.Recordset.MoveNext
Wend
'------------
Comprueba que alguno de los datos de los campos que intentas insertar no sea de longitud superior al tamaño asignado para el campo en la tabla.
