มี52ตำแหน่งอยากจับคู่ตำแหน่งให้แต่ละคนคนจนครบ52แล้วถึงจะเริ่มนับ1ใหม่

[SakDa]

ขอคำแนะนำ หรือคำที่จะเอาไปค้นในเว็บต่อเป็นภาษาอังกฤษก็ได้ครับ
ผมค้นเว็บเจอคล้ายการจองห้องประชุม จองห้องพักโรงแรม คิดว่าโจทย์ของตัวเองก็ไม่เหมือนเพราะเราเป็นคนจับวางตำแหน่งให้เลยโดยเรียงตามลำดับ
ยังอยู่แถวๆพิมพ์สติกเกอร์สติกเกอร์ครับ
คำถาม "มีตาราง 2 ตาราง ตารางที่ 1 คือตาราง stickerNo จะบอกตำแหน่ง 1-52  อีกตารางคือ TempToPrint ข้อมูลที่ถูกเรียงมาเรียบร้อยแล้ว โดยอยากเอาเลข stickerNo ของตารางแรก ไปแทรกเข้าในตาราง จนกว่าจะครบ 52 ตำแหน่งแล้วค่อยเริ่มนับ 1 ใหม่" ยังไม่อยากทำแบบเอาเอ็กเซลมาวางในฐานแอคเซสครับ จะเป็นคิวรี่ก็ได้ครับ

ขอบคุณครับ

[PNR]

ลองสร้างปุ่มขึ้นมาแล้วเอาโค้ดไปวางดูนะครับ

โค๊ด: [Select]

Private Sub Command0_Click()
Dim RecCount As Integer
Dim i, x As Long
Dim rst As dao.Recordset
RecCount = DCount("*", "TempToPrint")

Set rst = CurrentDb.OpenRecordset("TempToPrintWithStickerNo", dbOpenDynaset)
rst.MoveFirst

Do Until rst.EOF Or rst.BOF
For i = 0 To (RecCount - 1)

If i = 0 Then
x = 1
End If

rst.Edit
rst!stickerNo = x
rst.Update

rst.MoveNext
x = x + 1
If x > 52 Then
x = 1
End If

Next i
Loop
End Sub
แล้วดูการรันลำดับที่ตาราง TempToPrintWithStickerNo

[SakDa]

ทำตามคำแนะนำของอาจารย์แล้วได้ตามใจต้องการแล้วครับ แล้วค่อยไปจัดการด้วยวิธีอื่นๆ ต่อ สามารถปรับลด เพิ่มหรือเปลี่ยนจำนวนดวง ขนาดสติกเกอร์สำเร็จรูปได้หลายๆแบบสบายเลย แปะขวดเครื่องปรุง อุปกรณ์ในบ้านก็ได้