แสดงกระทู้
91
ห้อง MS Access / : มี52ตำแหน่งอยากจับคู่ตำแหน่งให้แต่ละคนคนจนครบ52แล้วถึงจะเริ่มนับ1ใหม่
« เมื่อ: 24 พ.ค. 64 , 08:23:47 »
ลองสร้างปุ่มขึ้นมาแล้วเอาโค้ดไปวางดูนะครับ
แล้วดูการรันลำดับที่ตาราง TempToPrintWithStickerNo
โค๊ด: [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
