จากที่อาจารย์ TTT แนะนำมาครับ ผมต้องการเรคคอร์ดใหม่ ให้รันเลขซ้ำกัน 5 เรคคอร์ดแล้วค่อยเพิ่มที่ละ 1 ส่วน ปีหลังเครื่องหมาย / คือเปลี่ยนเมื่อขึ้นปีใหม่

จากตาราง Qr
          
วันที่               ลำดับ
2/6/2556       0002/56
2/6/2556       0002/56
2/6/2556       0002/56
2/6/2556       0002/56
2/6/2556       0002/56

2/6/2556       0003/56
2/6/2556       0003/56
2/6/2556       0003/56
2/6/2556       0003/56

เมื่อขึ้นวันใหม่

ผมอยากเช็ควันที่ด้วยถ้าลำดับยังไม่ครบ 5 ก็ให้ Run เป็นตัวใหม่เลยผมต้องทำอย่างไรครับ

3/6/2556       0004/56
3/6/2556       0004/56
3/6/2556       0004/56
3/6/2556       0004/56
3/6/2556       0004/56
3/6/2556       0005/56
3/6/2556       0005/56
3/6/2556       0005/56
3/6/2556       0005/56
3/6/2556       0005/56

เมื่อขึ้นปีใหม่
                     0001/57
                     0001/57
                     0001/57
                     0001/57
                     0001/57

'Private Sub zzz_Click()
   If IsNull(zzz) Or zzz & "" = "" Then
        Dim CCC As String
        CCC = DCount("zzz", "Qr") + 1
        zzz.value = Format(Int((CCC + (5 - 1)) / 5), "0000") & "/" & Format(Date, "yy")
    End If
'End Sub

คำถามครับ คือจาก code ที่อาจารย์ TTT ให้มานั้นโอเคแล้วครับ ผมต้องการที่อยากจะเช็ควันที่เพิ่มถ้าขึ้นวันใหม่ไม่ต้องสนใจเรื่องต้อง Run ซ้ำให้ครบ 5 record ให้ Run ตัวใหม่ต่อเลย ต้องทำอย่างไรครับ
ขอรบกวนอาจารย์ทุกท่านหรือผู้รู้ทุกท่านช่วยแนะนำด้วยครับ
ขอบคุณครับ