Access - Error 76 no encuentra ruta de archivo!?

 
Vista:

Error 76 no encuentra ruta de archivo!?

Publicado por Mariel (21 intervenciones) el 18/06/2010 13:04:52
Que tal amigos...
Estoy tratando de realizar una exportación de tablas a .txt con algunos parámetros... el problema que se me plantea es que me aparece un error "76", y no se en qué lugar estoy fallando... tengo en un cmdbutton este código:

Private Sub cmdExportar_Click()

On Error GoTo cmdExportar_Click_TratamientoErrores

Dim strArchivo As String, _
bytArchivo As Byte, _
strLinea As String, _
rst As Recordset, _
strSQL As String, _
strDelimitador As String

' establezco el delimitador de texto con el de su código ASCII correspondiente
' esto forzado por la necesidad de poder usar el tabulador CHR(9) que no
' tiene caracter imprimible

strDelimitador = Chr(ccDelimitador.Column(1))

strSQL = "SELECT * FROM MiTabla"

' abro el recordset
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

bytArchivo = FreeFile

' obtengo el archivo a exportar del cuadro de texto
strArchivo = txtRuta

' abro el archivo de texto
Open strArchivo For Output As bytArchivo

If Not rst.EOF And Not rst.BOF Then
Do While Not rst.EOF
' exporto cada registro en una linea de texto
Print #bytArchivo, rst!NOTAS & strDelimitador & " " _
; & rst!TipoDato
rst.MoveNext
Loop
End if

cmdExportar_Click_Salir:
On Error GoTo 0
Close #bytArchivo
If Not IsEmpty(rst) Then
rst.Close
Set rst = Nothing
End If
Exit Sub

cmdExportar_Click_TratamientoErrores:
MsgBox "Error " & Err.Number & " en proc. cmdExportar_Click de Documento VBA Form_Formulario1 (" & Err.Description & ")", vbOKOnly + vbCritical
GoTo cmdExportar_Click_Salir
End Sub ' cmdExportar_Click


Como ven ... selecciono un separador de un combo que se llama ccDelimitador y la ruta del archivo a exportar la coloco en un txt que llamo txtRuta... pero al hacer click en el botón me marca error 76 en procedimiento... no se que estoy haciendo mal...

Gracias.

Mariel.
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