** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Crear Archivo de texto y guardar todos los campos
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Crear Archivo de texto y guardar todos los campos

 Responder Responder
Autor
Mensaje
jebcarlos Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 16/Julio/2006
Localización: Colombia
Estado: Sin conexión
Puntos: 277
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita jebcarlos Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Crear Archivo de texto y guardar todos los campos
    Enviado: 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/">
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 14428
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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.

Access Aplicaciones
Tecsys.es
Arriba
jebcarlos Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 16/Julio/2006
Localización: Colombia
Estado: Sin conexión
Puntos: 277
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita jebcarlos Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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/">
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable