Error Argumento no valido

juanolas
01 de Octubre del 2004
Hola a todos-as. tengo el siguiente problema, estoy automatizando un proceso con el access XP consistente en volcar registros de un campo de texto con los campor separados por espacios en blanco y los registros separados por un retorno de carro a una tabla en access que tb creo en tiempo de ejecicion, esta tabla constaris de muchos registros, el problema es que ayer mismo me hacia todo perfectamente ahora cuando lo ejecuto se para en la linea tabla.Update diciendo "argumento no valido" lo raro es que aparte de que esto ayer lo hacia bien, ahora cada vez que lo ejecuto me da el error en una linea distinta, osea que empieza a hacer el volcado y luego da el error en una linea distinta seguramente se esta saturando la memoria del access o quizas no sea capaz de gestionar tantos registros nose tal vez alguien se encontro con el error y me pueda aconsejar el codigo es el siguiente:




Archivo = "C:\\" & Nom_fich

Open Archivo For Input Access Read As #1

'Abrimos conexión con la base de datos
Set db = CurrentDb

'Abrimos tabla mediante una consulta sql
SQL = "SELECT * FROM " & Mid(Nom_fich, 1, 12)
Set tabla = db.OpenRecordset(SQL)

'Recorremos el Fichero abierto
While Not EOF(1)

'Lee la línea
Line Input #1, Linea

'Añadimos un nuevo registro a la tabla
tabla.AddNew

'Recorremos la línea segun las posiciones de texto.
tabla![campo1] = Mid(Linea, 1, 1)
tabla![campo] = Mid(Linea, 2, 8)
tabla![campo] = Mid(Linea, 10, 2)
tabla![campo] = Mid(Linea, 12, 2)
tabla![campo] = Mid(Linea, 14, 1)
tabla![campo] = Mid(Linea, 15, 8)
tabla![campo] = Mid(Linea, 23, 2)
tabla![campo] = Mid(Linea, 25, 1)
tabla![campo] = Mid(Linea, 26, 2)
tabla![campo] = Mid(Linea, 28, 2)
tabla![campo] = Mid(Linea, 30, 3)
tabla![campo] = Mid(Linea, 33, 10)
tabla![campo] = Mid(Linea, 43, 13)
tabla![campo] = Mid(Linea, 56, 1)
tabla![campo] = Mid(Linea, 57, 4)
tabla![campo] = Mid(Linea, 61, 4)
tabla![campo] = Mid(Linea, 65, 4)
tabla![campo] = Mid(Linea, 69, 4)
tabla![campo] = Mid(Linea, 73, 1)
tabla![campo] = Mid(Linea, 74, 4)
tabla![campo] = Mid(Linea, 78, 5)
tabla![campo] = Mid(Linea, 88, 4)
tabla![campo] = Mid(Linea, 83, 5)
tabla![campo] = Mid(Linea, 92, 4)
tabla![campo] = Mid(Linea, 96, 1)
tabla![campo] = Mid(Linea, 97, 3)
tabla![campo] = Fecha

tabla.Update

Wend

'Cerramos tabla
tabla.Close

'Cerramos conexión
db.Close
Set db = Nothing

'Cerramos el Fichero
Close #1


muchas gracias por su atencion saludos.