1
ห้อง MS Access / : ต้องการ Copy เรคคอร์ดที่ต้องการไปเพิ่มในอีก Table
« เมื่อ: 01 ก.พ. 67 , 11:37:22 »
ได้แล้วครับ ขอบคุณครับ
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
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
ปล.ไม่ได้คิดเองนะแค่ไปเอาหลายๆวิธี หลายๆผลลัพธ์ที่ค้นเจอ แล้วเอามารวมกับที่ท่านต้องการนะครับ
1.เปลี่ยนแค่ตัวกล่องข้อความโค๊ด: [Select]Private Sub txt_Remark_AfterUpdate()
If Me.txt_Remark = 1 Then
Me.txt_Remark.BackColor = vbYellow
Else
Me.txt_Remark.BackColor = RGB(255, 255, 255)
End If
End Sub
ขอบคุณมากครับผม
2.เปลี่ยนทั้งแถวผมใช้วิธีตามนี้ ->สอบถามวิธีเปลี่ยนสีพื้นหลังรายการใน Continuous Forms
3.อันนี้เขาเปลี่ยนสีตามเช็คบล็อค
ปัญหานี้เกิดเกิดได้จากหลายสาเหตุ
ที่เคยเจอ
1. ไม่ได้เปิด Excel มาเพื่อ Reformat ตารางให้เหมาะสมสำหรับการนำเข้า Access เช่น มีข้อมูลอยู่ในคอลัมน์ A ถึง G แล้วก็มีขยะโผล่มาใน J20, K300 และอื่นๆ
2. ข้อมูลแถวแรกใน Excel (ไม่นับ Header) เป็นตัวเลข แล้ว แถวถัดไปเป็น Text เกิดจากความฉลาด (หรือสาระแน) ของ Access ที่คิดว่าข้อมูลทั้งหมดต่อจากนี้เป็นตัวเลข พอไม่เป็นตัวเลขก็เลย Error
3. ไฟล์ Excel ไม่ใช่ Excel