buenassss... soy nuevo por aca,, espero puedan ayudarme, los cuento que trabajo con access desde hace 4 años y tengo varios programas "a medida" hechos con este versatil programa de los chicos de microsoft corporations.
bien voy al tema que me aprieta el costado del cerebro hace unos mmmm 3 dias.
tengo un form1 y la intension de que me almacene sus datos (que son unos 80 campos,,, si! 80 campos en total) en el disquet y en disco c:\>, todo esto lo tengo bastante resuelto, asi:
en form1 tengo un boton que al evento clic ejecuta:
---------------------------
'la tabla va en horizontal con digamos aproximadamente 80 columnas con cod1, cod2, cod3 .... con el siguiente codigo hago que me cree un archivo .txt vertical,, si o si debe hacer asi
joa_txt Me.fecha, Me.nombretri, Me.nombretri
joa_txt Me.nombredtri
joa_txt Me.cod1, Me.cod2, Me.cod3
joa_txt Me.cod4, Me.cod5, Me.cod6
joa_txt Me.cod7, txt, Me.cod8, Me.cod9
joa_txt Me.cod10, Me.cod11, Me.cod12
-------------------
luego tengo un modulo con:
-------------------------------
Function joa_txt(joa_txt1 As String, Optional joa_txt2 As String, Optional joa_txt3 As String)
On Error GoTo Err_Error
Dim joa_NA
joa_NA = FreeFile
Open "Y:" & "\Historia.txt" For Append As #joa_NA
Print #joa_NA, joa_txt1 ' escribe el 1er parametro en el archivo
If Not IsMissing(joa_txt2) Then Print #joa_NA, joa_txt2 ' escribe el 2du parametro en el archivo
If Not IsMissing(joa_txt3) Then Print #joa_NA, joa_txt3 ' escribe el 3er parametro en el archivo
Close #joa_NA
Exit_EtqiuetaError:
Exit Function
Err_Error:
MsgBox "Error Nº " & Err.Number & " programa: Contabilidad" & Chr(13) _
& Err.Description, vbCritical + vbOKOnly, "Aviso de Error"
Resume Exit_EtqiuetaError
End Function
------------------------------
esto me permite guardar el txt en un lugar que yo quiera puede ser una carpeta fija y tambien en el disquet (aun no probe las dos cosas juntas una a la vez funciona barvaro pero las dos en la misma ejecucion no lo he probado)
EL PROBLEMA SIN SOLUCION: quiero que me tome como nombre de archivo a almacenar (ej. nombrecampox.txt ,,,,, donde nombrecampox deberia copiar el contenido de un campo determinado en mi caso IDTRI -con formato texto,ya que uso un autonumerico y le meto una funcion que le agrega ceros delante)
me explique bien?? espero que si......
"...hagas lo que hagas solo tu lo haces, nadie te obliga a hacerlo"
