สอบถามเรื่องการสร้าง Folder ตามเรคคอร์ดใน Table ครับ

[Eik Q Sang]

Table ชื่อ tblCustomer ประกอบด้วยฟิลด์ No และ CustomerName เช่น
No              CustomerName
1                        นาย ก
2                        นาย ข
3                        นาย ค
4                        นาง ง
5                        น.ส. จ

สร้างฟอร์ม ชื่อ frmMain ในฟอร์มประกอบด้วย ปุ่ม ชื่อ btnExport

ต้องการ เมื่อกดปุ่ม ให้ระบบ สร้าง Folder ตามจำนวนรายลูกค้า พร้อม Rename Folder ตามนี้ No CustomerName เช่น

1.นาย ก
2.นาย ข
3.นาย ค
4.นาง ง
5.น.ส. จ

ขอบคุณมากครับผม

[Eik Q Sang]

จากโค้ด
Private Sub Command32_Click()
Dim sPathUser As String
sPathUser = Environ$("USERPROFILE") & "\my documents\"
MkDir (sPathUser & "\Test")
End Sub

ถ้าต้องการให้สร้าง Folder โดยให้ตั้งชื่อ Folder ตามชื่อ Field ชื่อว่า CustomerName ใน Table A ต้องแก้อย่างไรบ้างครับ ขอบคุณมากครับผม

[UnKnown]

Private Sub Command32_Click()
Dim rst As DAO.Recordset
Dim sPathUser As String

sPathUser = Environ$("USERPROFILE") & "\my documents\"
Set rst = CurrentDb.OpenRecordset("SELECT [CustomerName] FROM Table_A", dbOpenSnapshot)

Do While Not rst.EOF
    MkDir (sPathUser & rst![CustomerName])
    rst.MoveNext
Loop

rst.Close
Set rst = Nothing

End Sub

ปล.ไม่ได้คิดเองนะแค่ไปเอาหลายๆวิธี หลายๆผลลัพธ์ที่ค้นเจอ แล้วเอามารวมกับที่ท่านต้องการนะครับ

[Eik Q Sang]

Private Sub Command32_Click()
Dim rst As DAO.Recordset
Dim sPathUser As String

sPathUser = Environ$("USERPROFILE") & "\my documents\"
Set rst = CurrentDb.OpenRecordset("SELECT [CustomerName] FROM Table_A", dbOpenSnapshot)

Do While Not rst.EOF
    MkDir (sPathUser & rst![CustomerName])
    rst.MoveNext
Loop

rst.Close
Set rst = Nothing

End Sub

ปล.ไม่ได้คิดเองนะแค่ไปเอาหลายๆวิธี หลายๆผลลัพธ์ที่ค้นเจอ แล้วเอามารวมกับที่ท่านต้องการนะครับ

ขอบคุณมากๆครับผม