ต้องการ update ชื่อพนักงาน ข้อมูลเข้าอีกตารางตามจำนวนที่กำหนด โดยเรียบลำดับ

[assetthai]

รบกวนสอบถามครับ ผมมีพนักงาน 5 คน  มีลูกค้าจำนวน 100 คน แต่ละคนจะมอบหมายงานให้ดูแลลูกค้าจำนวนไม่เท่ากัน โดย กำหนดจำนวน ตามรูปภาพ
ผมจะทำเป็นปุ่ม เมื่อกดแล้ว ให้ชื่อพนักงานเข้าไป update กับฟิวส์ Employee_Assign ข้อมูลเดิม ตามจำนวนของพนักงานที่ได้กำหนดไว้ซึ่งแต่ละคนจะไม่เท่ากัน โดยมีเงื่อนไขว่า จะต้องเรียงลำดับจากตารางลำดับที่1-100 (ตารางผมทำเป็น Qry เรียงลำดับไว้แล้ว)ชื่อพนักงาจะเข้าไปวนจนครบจำนวนของแต่ละพนักงานแต่ละคน ถ้าพนักงานคนใดเมื่อครบแล้วให้หยุดเท่ากับจำนวนที่ได้กำหนดไว้ ส่วนพนักงานที่ยังไม่ครบ ไล่ลำดับต่อไปเรื่อยๆ ตามจำนวนของแต่ละคน (โดยไม่ให้ชื่อพนักงานถูกเรียงต่อกัน ยกเว้นลำดับท้ายๆ ที่อาจจะมีพนักงานคนใดคนนึงได้รับจำนวนมากกว่าคนอื่น)  ขอบคุณล่วงหน้าครับ

[assetthai]

ขอบคุณครับ เดี๋ยวผมรออาจารย์ท่านอื่นด้วยครับ

[PNR]

ลองดูตัวอย่างนี้นะครับน่าจะได้ข้อมูลแบบที่คุณต้องการนะ

ผมใช้การตรวจสอบโดยการนับจำนวนครั้งของการ Append ข้อมูลลงไปในตาราง customer
โดยเช็คว่าถ้า Employee ไหน asign = 0 แล้วก็ให้ลบออกไป ไม่นำไป Append ต่อครับ

โค้ดของคิวรี่ในการเช็คจำนวนการAppend ข้อมูล

โค๊ด: [Select]

SELECT tbl_Job.Employee_Name, Count(tbl_Customer.Employee_Name) AS CountCTM, tbl_Job.assign, Nz([assign],0)-Nz([CountCTM],0) AS Remaining
FROM tbl_Job LEFT JOIN tbl_Customer ON tbl_Job.Employee_Name = tbl_Customer.Employee_Name
GROUP BY tbl_Job.Employee_Name, tbl_Job.assign;

โดยจะต้องมีฟอร์มที่มีปุ่มกดให้โค้ดทำงานโดยมีโค้ดประมาณนี้ครับ

โค๊ด: [Select]

Private Sub Command0_Click()
Dim rst As DAO.Recordset
Dim IntAssign As Integer
Dim sql As String
Dim I As Long
    Set rst = CurrentDb.OpenRecordset("tbl_Job", dbOpenDynaset)
 
 
rst.MoveFirst
Do Until rst.EOF
IntAssign = rst!Assign
For I = 1 To IntAssign
If IntAssign = rst!Assign Then
sql = "INSERT INTO tbl_Customer ( Employee_Name, Cust_Name ) SELECT QryCheckRemaining.Employee_Name, 'XXXX' AS Expr1 FROM QryCheckRemaining WHERE (((QryCheckRemaining.Remaining)>0));"
DoCmd.SetWarnings False
           DoCmd.RunSQL sql
End If
    Next
  rst.MoveNext
  Loop
  DoCmd.SetWarnings True
    rst.Close
    Set rst = Nothing
End Sub

[assetthai]

ขอบคุณมากๆ ครับ ได้ตามจุดประสงค์ ขอบคุณครับ