Access - importar archivo txt mediante codigo

   
Vista:

importar archivo txt mediante codigo

Publicado por dimas (4 intervenciones) el 25/10/2007 09:30:28
Hola,

Mi problema es el siguiente:
Quiero importar un archivo txt, hasta ahi todo correcto, lo que pasa es que si el archivo no existe (se puede dar el caso) quiero que me muestre un mensaje de error y no :

Se ha producido el error '3011' en tiempo de ejecución:

El motor de base de datos Microsoft Jet no pudo encontrar el objeto
'Informe......txt'.

Mi codigo es el siguiente:

Private Sub Informe_Anterior_Click()

Dim archivo As String

ruta = "C:\Datos\"
archivo = ruta & "Informe_" & Day(fecha_inf_ant) & "_" & Month(fecha_inf_ant) & "_" & Year(fecha_inf_ant) & ".txt"
If not exist (archivo) Then
MsgBox ("El informe no existe")
Else
DoCmd.TransferText acImportDelim, "Informe_tnos_interes", "Informe_Anterior", archivo, 0

End If

End Sub
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

RE:importar archivo txt mediante codigo

Publicado por Eliasindian@hotmail.com (405 intervenciones) el 25/10/2007 19:25:44
Mira pon detras de ruta = lo siguiente y cuelga a ver que te pone

Msgbox "ruta:" & ruta

es que tal vez en las fechas te este poniendo / o talvez tengas que poner #

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

RE:importar archivo txt mediante codigo

Publicado por mi menda (1111 intervenciones) el 26/10/2007 01:15:59
Trata el error:

Private Sub Informe_Anterior_Click()
On Error GoTo err_NoExiste

Dim archivo As String

ruta = "C:\Datos\"
archivo = ruta & "Informe_" & Day(fecha_inf_ant) & "_" & Month(fecha_inf_ant) & "_" & Year(fecha_inf_ant) & ".txt"
DoCmd.TransferText acImportDelim, "Informe_tnos_interes", "Informe_Anterior", archivo, 0

salir_error:
Exit Sub

err_NoExiste:

If Err.Number = 3011 Then
Msgbox "El Informe No Exite"
Resume salir_error
Else
Msgbox Err.Description,,"Error Nº: " & Err.Number
Resume salir_error
End if

End Sub

Un saludo
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

RE:importar archivo txt mediante codigo

Publicado por dimas (4 intervenciones) el 26/10/2007 08:44:06
Muchas gracias.

Va perfecto
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