Anónimo
Como exportar de un subformulario a txt
Tengo un subformulario relacionado con una consulta: en ella me coge la información de persona; fecha; y nombre. El nombre del subformulario es SubfrmConsulta y el nombre de la consulta es consulta.
Cuando me sale la información quiero que automáticamente me lo guarde en un .txt y que cada información este separada por tabulaciones.
Creo que debería dale a generar un código al cargar el formulario, pero no domino el tema de los códigos. He buscado por la Web pero no he encontrado ningún caso que me pueda guiar.
Gracias de antemano.
Cuando me sale la información quiero que automáticamente me lo guarde en un .txt y que cada información este separada por tabulaciones.
Creo que debería dale a generar un código al cargar el formulario, pero no domino el tema de los códigos. He buscado por la Web pero no he encontrado ningún caso que me pueda guiar.
Gracias de antemano.
1 respuesta
Respuesta de luis45ccs
1
Mejor usa este código desde un botón
Dim r as recordset
set r = currentdb.openrecordset("Select * from Tabla") '(aca pones lo que esta en la consulta)
if r.recordcount>0 then
r.movelast
r.movefirst
'Abre el archivo de texto con
fr=freefile
open "archivo.txt" for OUTPUT as fr
for a=1 to r.recordcount
print #fr, r!fecha, nombre
r.movenext
next
end if
Pero tengo que probarlo
Si se puedes envíamelo en formato 2003
Dim r as recordset
set r = currentdb.openrecordset("Select * from Tabla") '(aca pones lo que esta en la consulta)
if r.recordcount>0 then
r.movelast
r.movefirst
'Abre el archivo de texto con
fr=freefile
open "archivo.txt" for OUTPUT as fr
for a=1 to r.recordcount
print #fr, r!fecha, nombre
r.movenext
next
end if
Pero tengo que probarlo
Si se puedes envíamelo en formato 2003
Te he enviado un correo con un ejemplo de la base, para que lo puedas probar.
Si puede ser dime algo lo antes possible; ya que lo necesito para este viernes día 19 de febrero.
Algun problema comentamelo.
Gracias de antemano.
Ester
Si puede ser dime algo lo antes possible; ya que lo necesito para este viernes día 19 de febrero.
Algun problema comentamelo.
Gracias de antemano.
Ester
Estoy atrasado varios días por las vacaciones
Veré si saco pronto el tuyo
Veré si saco pronto el tuyo