จากอันเก่าปรับโค้ดเป็นแบบนี้นะครับ ไม่ต้องสร้างตารางใหม่
เอาตาราง Temp ออกไปได้เลย
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strWong_Code As String
Dim strMember_Code As String
Dim SQL As String
Set db = CurrentDb()
Set rst = db.OpenRecordset("TB2", dbOpenDynaset)
If Not rst.BOF And Not rst.EOF Then
rst.MoveFirst
strWong_Code = rst![วง]
strMember_Code = rst![สมาชิก]
rst.MoveNext
Do Until rst.EOF
If strWong_Code = rst![วง] Then
strMember_Code = strMember_Code & "," & rst![สมาชิก]
Else
DoCmd.SetWarnings False
SQL = "UPDATE TB1 " & _
"SET samachik= '" & strMember_Code & "'" & _
"WHERE [รหัส] = '" & strWong_Code & "'"
DoCmd.RunSQL SQL
strWong_Code = rst![วง]
strMember_Code = rst![สมาชิก]
End If
rst.MoveNext
Loop
DoCmd.SetWarnings False
SQL = "UPDATE TB1 " & _
"SET samachik= '" & strMember_Code & "'" & _
"WHERE [รหัส] = '" & strWong_Code & "'"
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
End If
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing