Imprimir página | Cerrar ventana

Crear Archivo de texto y guardar todos los campos

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86845
Fecha de impresión: 26/Marzo/2026 a las 20:57


Tema: Crear Archivo de texto y guardar todos los campos
Publicado por: jebcarlos
Asunto: Crear Archivo de texto y guardar todos los campos
Fecha de publicación: 20/Enero/2024 a las 05:02
Buenas noches, He estado investigando y ya tengo una idea de como crear un archivo de texto y abrirlo para escribir en el los datos de una consulta.  Sin embargo no se si existe o es posible hacer lo siguiente

1. Crear un archivo txt (esto ya lo tengo investigado)
2. Abrir el archivo txt y escribir los 5 campos separados por coma (,)
   (si llegan a ser mas como hacerlo sin definirlos uno por uno sino mediandte un ciclo, pueden llegar a estar entre 5 y 60 campos)
3. Escribir en la ultima linea la cantidad de registros de la exportación



< ="moz-extension://5aa6f639-3adc-4775-9896-7bf1587bf477/js/app.js" ="text/">



Respuestas:
Publicado por: Mihura
Fecha de publicación: 20/Enero/2024 a las 12:35
Entiendo que usas VBA.

Para el punto 2 una posible opción sería crearte una constante con los nombres de los campos a tratar separados por comas (sin espacios entre ellos):

Const LstCampos = "Campo1,Campo2,Campo3"

Y después, apoyándonos en esta constante hacer un bucle de tratamiento:

Dim V1 as Variant, V2 as Variant

V1 = split(LstCampos, ",")
For EachRegistroConsulta
    For each V2 in V1
CampoTexto = CampoTexto & "," & V2
    Next
    EscribirLineaFicheroTexto
Next


¡Ojo! ... esto es una idea a desarrollar y adaptar a tus necesidades, campos de formulario, tabla, consulta, etc y el código está escrito 'al vuelo' ... está incompleto y puede tener errores.






-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: jebcarlos
Fecha de publicación: 21/Enero/2024 a las 14:35
Gracias Mihura probare y ya les cuento< ="moz-extension://601009cd-8ff6-4411-b938-7f30e3874191/js/app.js" ="text/">



Imprimir página | Cerrar ventana