ייצוא תוצאת פונקציה אל קובץ טקסט

[לוי א]

שלום וברכה
יש לי פונקציה של לולאת For שעוברת על טבלה ויוצרת ממנה מחרוזת טקסט
אני מעונין לייצא את המחרוזת שהוחזרה כך שתשמר כקובץ טקסט (פנקס רשימות) במחשב
ניסיתי דרך

    DoCmd.OutputTo acOutputFunction, "שם הפונקציה" , "MS-DOSText(*.txt)", "", False, "", , acExportQualityPrint

והוא מחזיר לי שגיאה ('אין רשומה נוכחית')
האם מישהו יכול להדריך אותי איך לבצע את זה?

אני מדגיש שהפונקציה עצמה תקינה (כשאני מבקש שיציג את המחרוזת בMsgBox הוא מציג אותה כראוי)
בתודה מראש

 

[לוי א]

אני מצרף בזאת את הפונקציה שאני רוצה לייצא (כי לפי השגיאה - 'אין רשומה נוכחית' זה נראה שגיאה בלולאה - אם כי כמו שציינתי הפנקציה עובדת בפני עצמה)

Public Function Tlist()
Set Rs = CurrentDb.OpenRecordset("Names")
Rs.MoveFirst
For i = 1 To DCount("First_Name", "Names")
Phone = Rs!Phone
Name1 = Rs!First_Name
Name2 = Rs!Last_Name
Yeshiva = Rs!Yeshiva
vaad = Rs!Vaad
Tlist = Tlist & Name1 & "," & Name2 & "," & Yeshiva & "," & vaad & "," & Phone & Chr(13)
Rs.MoveNext
Next i

End Function

תודה רבה

 

[moishy]

כדי שTlist תהיה פונקציה עליה להחזיר ערך, כעת הוא רק מבצע פעולה אבל לא מחזיר ערך.
להפוך אותו לפונקציה בשורה הראשונה של הפונקציה יש להצהיר על סוג הערך שהפונקציה מחזירה, במקרה שלך הוא אמור להחזיר טקסט, ולכן יש להצהיר עליו כString.

Public Function Tlist() As String
    Set Rs = CurrentDb.OpenRecordset("Names")
    Rs.MoveFirst
    For i = 1 To DCount("First_Name", "Names")
        Phone = Rs!Phone
        Name1 = Rs!First_Name
        Name2 = Rs!Last_Name
        Yeshiva = Rs!Yeshiva
        vaad = Rs!vaad
        Tlist = Tlist & Name1 & "," & Name2 & "," & Yeshiva & "," & vaad & "," & Phone & Chr(13)
        Rs.MoveNext
    Next i
End Function

ישנם שני דרכים פשוטות לכתוב מחרוזת טקסט לקובץ, כאן יצרתי פונקציה נפרדת לכל אחד מהם.

Sub WriteTextToFileFso(strFilePath As String, strText As String)
    Dim fso As Object
    Dim Fileout As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Fileout = fso.CreateTextFile(strFilePath, True, True)
    Fileout.Write strText
    Fileout.Close
End Sub

Sub WriteTextToFileFileStream(strFilePath As String, strText As String)
    Open strFilePath For Output As #1
    Print #1, strText
    Close #1
End Sub

השימוש בשתי הפונקציות זהה, יש לקרוא לפונקציה לאחר שנקבע מהו הטקסט שברצונך לכתוב בקובץ, כלומר שורה אחת לפני End Function
שם הפונקציה נתיב הקובץ, הטקסט לכתוב בקובץ

WriteTextToFileFso "c:\users\user\desktop\file.txt", Tlist

או

WriteTextToFileFileStream "c:\users\user\desktop\file.txt", Tlist