buenas otra vez!!!
tengo el siguiente codigo para importar toda una hoja de excel en una tabla de acces.
Dim finestra As CommonDialog
Set finestra = New CommonDialog
Dim dbs As Database
Set dbs = CurrentDb
Dim RsAux As Recordset
DoCmd.TransferSpreadsheet acImport, 8, "T_ETIQUETES_AUX", Path_XLS Set RsAux = CurrentDb.OpenRecordset("SELECT * FROM T_ETIQUETES_AUX")
Form_gestio_impresio_etiquetes.BtnNetejar.Requery
Do While Not RsAux.EOF
dbs.Execute " INSERT INTO T_ETIQUETES(CAMPO_1, CAMPO_2, CAMPO_3, CAMPO_4, CAMPO_5, CAMPO_6, CAMPO_7, CAMPO_8) VALUES ('" & RsAux!F1 & "', '" & RsAux!F2 & "', '" & RsAux!F3 & "', '" & RsAux!F4 & "', '" & RsAux!F5 & "', '" & RsAux!F6 & "', '" & RsAux!F7 & "', '" & RsAux!F8 & "')"
RsAux.MoveNext
Loop
RsAux.Close
Form_gestio_impresio_etiquetes.Refresh
dbs.Execute ("DROP TABLE T_ETIQUETES_AUX;")
me peta en la linea roja y no se porque
alguna sugerencia???
vale señores gracias i asta luego!
