ขอสอบถามการ Export Text File ใน MS Access

[mtaccess]

ขอสอบถามการ Export Text File ใน MS Access ต้องการ Export ข้อมูลโดยไม่เอาหัวข้อ และไม่เอาเครื่องหมาย
ข้อมูลที่ Export ออกมาเป็นแบบนี้ค่ะ


ผลลัพธ์ใน Text file ที่ต้องการคือ แบบนี้ค่ะ ให้ข้อมูลเรียงติดกัน เอาหัวข้อออก เอาเครื่องหมาย "" และ , ออก
A000011234567890123105M003มานะขยันหมั่นเพียร23082529130072568
4356785834567890100105F004มานีใจดี04052523130072568
4356788694567890999105F005กานดาสมบูรณ์19092526130072568

รบกวนแนะนำด้วยนะคะ พร้อมได้แนบไฟล์โปรแกรมที่ได้ทำมาด้วยค่ะ ขอบคุณค่ะ

[UnKnown]

ใช้วิธีและใช้ไฟล์จากกระทู้ อ.ปิ่นณรงค์ อันนี้ครับ
->กำหนดรูปแบบของ TexT ไฟล์ ที่ ส่งออก

ไฟล์ Test.accdb ไปเพิ่ม References ตามอ.ปิ่นณรงค์ ปิด-เปิดใหม่แล้วไหง CreateTextFile ขึ้น Error ผมก็ไม่รู้ 
แต่ดึงเทเบิ้ล,คิวรี่ มาใส่ Database6.accdb กลับใช้งานได้

- แก้บรรทัด FF.WriteLine ... เป็นชื่อฟิลล์ของท่าน ละใช้ & ต่อๆฟิลล์ไปตามที่ต้องการ

โค๊ด: [Select]

    FF.WriteLine rs!EmpCode & rs!CardID & rs!Type & rs!SEX & rs!TitleCode & rs!FirstName & rs!LastName & rs!BirthDate & rs!Status & rs!JoinDate


[mtaccess]

ใช้วิธีและใช้ไฟล์จากกระทู้ อ.ปิ่นณรงค์ อันนี้ครับ
->กำหนดรูปแบบของ TexT ไฟล์ ที่ ส่งออก

ไฟล์ Test.accdb ไปเพิ่ม References ตามอ.ปิ่นณรงค์ ปิด-เปิดใหม่แล้วไหง CreateTextFile ขึ้น Error ผมก็ไม่รู้ 
แต่ดึงเทเบิ้ล,คิวรี่ มาใส่ Database6.accdb กลับใช้งานได้

- แก้บรรทัด FF.WriteLine ... เป็นชื่อฟิลล์ของท่าน ละใช้ & ต่อๆฟิลล์ไปตามที่ต้องการ

โค๊ด: [Select]

    FF.WriteLine rs!EmpCode & rs!CardID & rs!Type & rs!SEX & rs!TitleCode & rs!FirstName & rs!LastName & rs!BirthDate & rs!Status & rs!JoinDate


ขอบคุณมากๆนะคะ เดี๋ยวจะลองดูค่ะ

[UnKnown]

โหลดไฟล์ Test ไปใหม่แล้วแค่เพิ่ม References ก็ใช้งานได้ // สงสัยตอนแรกผมคงไปแก้อะไรอย่างอื่นก่อนมันเลยเอ้อ

โค๊ด: [Select]

Private Sub Command1_Click()
  Call MakeString
End Sub

Sub MakeString()
    Dim fso As Scripting.FileSystemObject
    Dim FF As Scripting.TextStream
    Dim rs As DAO.Recordset
    Set fso = New Scripting.FileSystemObject
    Set FF = fso.CreateTextFile("D:\test1.txt", True)
    Set rs = CurrentDb.OpenRecordset("Query1")
          Do Until rs.EOF
    FF.WriteLine rs!EmpCode & rs!CardID & rs!Type & rs!SEX & rs!TitleCode & rs!FirstName & rs!LastName & rs!BirthDate & rs!Status & rs!JoinDate
    rs.MoveNext
          Loop
   FF.Close
End Sub


[mtaccess]

โหลดไฟล์ Test ไปใหม่แล้วแค่เพิ่ม References ก็ใช้งานได้ // สงสัยตอนแรกผมคงไปแก้อะไรอย่างอื่นก่อนมันเลยเอ้อ

โค๊ด: [Select]

Private Sub Command1_Click()
  Call MakeString
End Sub

Sub MakeString()
    Dim fso As Scripting.FileSystemObject
    Dim FF As Scripting.TextStream
    Dim rs As DAO.Recordset
    Set fso = New Scripting.FileSystemObject
    Set FF = fso.CreateTextFile("D:\test1.txt", True)
    Set rs = CurrentDb.OpenRecordset("Query1")
          Do Until rs.EOF
    FF.WriteLine rs!EmpCode & rs!CardID & rs!Type & rs!SEX & rs!TitleCode & rs!FirstName & rs!LastName & rs!BirthDate & rs!Status & rs!JoinDate
    rs.MoveNext
          Loop
   FF.Close
End Sub


ลองเอาไปใช้กับงานจริงติด error นี้ค่ะ พอดี database เป็น SQL Server แล้ว Link Table มาใช้กับ Form ใน MS access นะคะ รบกวนแนะนำด้วยค่ะ

[UnKnown]

ผมไม่มี SQL Server ให้ทดสอบ เลยไปหากูเกิ้ลลองแก้ดูครับ

แบบที่ 1.ตรงตัวแปลแก้ให้เป็นแบบนี้

โค๊ด: [Select]

    Dim fso As FileSystemObject
    Dim FF As TextStream
    Dim rs As Recordset
    Set fso = New FileSystemObject
แบบที่ 2.ดึงจาก SQL Server

โค๊ด: [Select]

    Dim strSQL As String
    strSQL = "SELECT * FROM YourTableName"
    Set rs = CurrentDb.OpenRecordset(strSQL)
แบบที่ 3.แก้คำสั่ง FF.Close เป็น

โค๊ด: [Select]

   rs.Close
   Set rs = Nothing

[mtaccess]

ขอบคุณค่ะ