Access - Importar datos

 
Vista:
sin imagen de perfil
Val: 4
Ha aumentado 1 puesto en Access (en relación al último mes)
Gráfica de Access

Importar datos

Publicado por A Edmundo (18 intervenciones) el 02/12/2020 17:08:06
Hola amigos, hice una aplicación para importar datos CSV a access, solo que el CSV tiene datos duplicados y la tabla en access no acepta duplicados, así que cada que corro el código me pregunta si deseo continuar debido a que se eliminaran los datos que no se pudieron importar, por defaut el botón sale en no y yo le tengo que picar en si para que siga corriendo el código, se supone que no es mucha molestia pero importo 150 tablas y es una rutina que se hace cada semana, lo que hace lento el proceso, se puede poner una opción para que los importe sin que me pregunte? el parametro que uso es acImportDelim, el código completo es el sig:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Import()
Dim NombreArchivo$, BaseA As Database, Reg As Recordset, NombreTabla$
Set BaseA = CurrentDb()
Set Reg = BaseA.OpenRecordset("monedas")
Reg.MoveLast
Reg.MoveFirst
Do Until Reg.EOF
    NombreArchivo = "C:\medias1mAC\" & Reg!moneda & "USDT.csv"
    NombreTabla = Reg!moneda
    Debug.Print "Exportando datos de la tabla: " & NombreTabla
    DoCmd.TransferText acImportDelim, , NombreTabla, NombreArchivo, False
    Reg.MoveNext
Loop
Reg.Close
BaseA.Close
Set Reg = Nothing
Set BaseA = Nothing
MsgBox "listo"
End Sub

Agradecería su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de jorge
Val: 1.039
Oro
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Importar datos

Publicado por jorge (300 intervenciones) el 03/12/2020 14:11:15
Buen dia pues pra que no salgan adevertencia de access se usa el

1
DoCmd.SetWarnings False

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar