Consulta a archivo de texto

[MEGAMAQUI]

Hola amigos ante todo dar las gracias.
Mi pregunta es la siguiente tengo una consulta de acces donde capturo una serie de datos y estos datos a su vez tienen que trasladarse a un archivo de texto pero observo que al utilizar la macro ya definida en el propio access "SalidaHacia" cuando me genera el achivo tambien me copia los recuadros y evidentemente esto no lo quiero así megustaría que me explicasen como puedo hacer para que solo me envie los datos.
Ejemplo:
------------------
| TEL |
------------------
| 999999999 |
------------------
| 999999999 |
------------------
| 999999999 |
------------------
| 999999999 |
------------------

Esto es una muestra de lo que el me capura, nombre de el campo los recuadros y los números, cuando yo lo único que quiero son los numeros ni tan siquiera el nombre del campo.

Muy agradecido por vuestro interés.

[Taribo007]

Una solucion puede ser abrir un recordset sobre la tabla o consulta, e ir insertando los valores del recordset en un txt que abres desde codigo, qui tienes todo lo necesario para abrir y escribir en un txt desde access:

http://www.olaz.net/descargas/access..._Entrega18.zip

Un saludo

[quimfv]

Aqui tienes una solución....

Código:

Function pasaTXT()
Dim rs As New ADODB.Recordset
Dim Sql As String
Dim nom As String
'Sentencia SQL que traiga los datos que quires listar
Sql = "SELECT tel from tuTabla"
'Ruta y nombre del archivo txt donde listar los datos
nom = "ruta\nombre.txt"
'Lee los datos y los guarda en un recordset
rs.Open Sql, CurrentProject.Connection, _
    adOpenKeyset, adLockOptimistic
'Si el archivo existe lo elimina (ojo)
    On Error Resume Next
        Kill nom
    On Error GoTo 0
'Abre el archivo
    Open nom For Output As #1
'Recorre el recordset
    Do While Not rs.EOF
'Imprime los datos del recordset
    Print #1, rs!tel
'Accede al siguiente registro
    rs.MoveNext
    Loop
'Cierra el fichero
    Close #1
'Cierra el recordset
rs.Close

End Function

Quim

Mientras codificaba la funció se me adelanto Taribo007

[MEGAMAQUI]

Estimados amigos muchismas gracias por vuestro esfuerzo.