Outputting multiple files

[davesmith202]

I have some code that outputs a single file but I want to modify this so it outputs multiple files. Currently, my code is:

Private Sub cmdSave_Click()
    Dim strFile As String
    Dim strA As String

    strFile = "C:\Documents and Settings\Dave\Desktop\" & "A-Data" & DefaultID & "-" & Replace(Time, ":", "-") & ".csv"

    strA = A

    Open strFile For Output As #1
    Print #1, strA
    Close #1

End Sub

How do I modify that so that I can output 3 seperate files, one for strA. strB and strC, for field A, B and C respectively?

Thanks,

Dave

 

[DCrake]

What are you actually trying to perform? and is 3 a static number or is it likely to change (both up and down)?

 

[davesmith202]

I have 3 memo fields and want to output 3 seperate text files with the contents of each memo field. It will always be the same memo fields. Currently, it works fine for just one of my memo fields but I want to expand it to 3.

 

[DCrake]

Simply create three queries one for each field and repeat your code with slight name variations to describe the contents

 

[davesmith202]

Would this work?

Private Sub cmdSave_Click()
    Dim strFile As String
    Dim strA As String
    Dim strB As String
    Dim strB As String


    strA = A
    strB = B
    strC = C


    strFile = "C:\Documents and Settings\Dave\Desktop\" & "A-Data" & DefaultID & "-" & Replace(Time, ":", "-") & ".csv"
    Open strFile For Output As #1
    Print #1, strA
    Close #1

    strFile = "C:\Documents and Settings\Dave\Desktop\" & "B-Data" & DefaultID & "-" & Replace(Time, ":", "-") & ".csv"
    Open strFile For Output As #1
    Print #1, strB
    Close #1

    strFile = "C:\Documents and Settings\Dave\Desktop\" & "C-Data" & DefaultID & "-" & Replace(Time, ":", "-") & ".csv"
    Open strFile For Output As #1
    Print #1, strC
    Close #1

End Sub

 

[DCrake]

If strA,B & C contain the memo details from each of the same fields then I do not see why not. However place a DoEvents between each process to allow one to finish before commencing the next.

David

 

[davesmith202]

Would I just add i=DoEvents between each section where i is an undeclared variable?

 

[DCrake]

No just the word DoEvents

...
Close #1

DoEvents

strFile = "C:\Documents and Settings\Dave\Desktop\" & "B-Data" & DefaultID & "-" & Replace(Time, ":", "-") & ".csv"
...

 

[davesmith202]

Cool, thank you!