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


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

28 ส.ค. 66 , 15:15:08
อ่าน 447 ครั้ง

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.น.ส. จ

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

 

29 ส.ค. 66 , 15:35:11
ตอบกลับ #1

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 ต้องแก้อย่างไรบ้างครับ ขอบคุณมากครับผม

 

30 ส.ค. 66 , 12:57:05
ตอบกลับ #2

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


ปล.ไม่ได้คิดเองนะแค่ไปเอาหลายๆวิธี หลายๆผลลัพธ์ที่ค้นเจอ แล้วเอามารวมกับที่ท่านต้องการนะครับ :shout:
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

30 ส.ค. 66 , 17:26:39
ตอบกลับ #3

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


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

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

 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5