Bases de Datos > MS Access

 Guardar Txt En Disquet Y En Disco Local

(1/1)

pentihum:
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"

F_Tanori:
Pues cambia la variable


--- Código: Text --- Function joa_txt(joa_txt1 As String, Optional joa_txt2 As String, Optional joa_txt3 As String,numero as string) On Error GoTo Err_ErrorDim joa_NAjoa_NA = FreeFile   sPath="Y:\"& numero &".txt" Open sPath  For Append As #joa_NAPrint #joa_NA, joa_txt1 ' escribe el 1er parametro en el archivoIf Not IsMissing(joa_txt2) Then Print #joa_NA, joa_txt2 ' escribe el 2du parametro en el archivoIf Not IsMissing(joa_txt3) Then Print #joa_NA, joa_txt3 ' escribe el 3er parametro en el archivoClose #joa_NAExit_EtqiuetaError:Exit Function Err_Error: MsgBox "Error Nº " & Err.Number & " programa: Contabilidad" & Chr(13) _& Err.Description, vbCritical + vbOKOnly, "Aviso de Error"Resume Exit_EtqiuetaErrorEnd Function  
Sera esa tu duda?  :unsure:


Cualquier cosa avisanos

Saludos

Navegación

[0] Índice de Mensajes