เรียนถาม
ผมมีปัญหาเรือง autoruncode รบกวนดูให้ห่อยครับว่าผิดตรงไหนเพราะว่ามันไม่เริ่มต้นใหม่เมือเปลี่ยนเดือนใหม่
1. Table ประกอบด้วย ID , Date , LabNo (ส่วนนี้เริมต้นนับ 1 ใหม่เมื่อเปลี่ยนเดือน)
2 Form---- Code
    Option Compare Database
    Dim T_LabNo_Rst as recodset
Private Sub Form_Open(Cancel As Integer)
    tDate = Date
    Set dbs = CurrentDb
    Set T_LabNo_Rst = dbs.OpenRecordset("T_LabNo")
    'ให้คำสั่งตรวจสอบ วัน เดือน ปี ในตาราง เพื่อตรวจสอบหมายเลขสุดท้าย
    If DCount("LabNo", "T_TPT_LabNo", "Year(tDate)=" & Year(Now()) & " And Month(tDate)=" & Month(Now()) & "") > 0 Then
        tLabNo = DMax("LabNo", "T_TPT_LabNo", "Year(tDate)=" & Year(Now()) & " And Month(tDate)=" & Month(Now()) & "") + 1
        'เริ่มนับ 1 ใหม่เมื่อเปลี่ยนเดือน
    Else
        tLabNo = 1
    End If
End sub
Private Sub CMD_SaveRecord_Click()
    With T_TPT_LabNo_Rst
        .AddNew
            .Fields("Date") = tDate
            .Fields("LabNo") = tLabNo
        .UpDate
    'ให้คำสั่งตรวจสอบ วัน เดือน ปี ในตาราง เพื่อตรวจสอบหมายเลขสุดท้าย
    If DCount("LabNo", "T_TPT_LabNo", "Year(tDate)=" & Year(Now()) & " And Month(tDate)=" & Month(Now()) & "") > 0 Then
        tLabNo = DMax("LabNo", "T_TPT_LabNo", "Year(tDate)=" & Year(Now()) & " And Month(tDate)=" & Month(Now()) & "") + 1
        'เริ่มนับ 1 ใหม่เมื่อเปลี่ยนเดือน
    Else
        tLabNo = 1
    End If

    End With
คำถามคือ LabNo เมื่อเปลี่ยนเดือนกลับไม่เริ่มนับ 1 ใหม่ แต่กลับปรากฎ LabNo ต่อเนื่องไป
เมื่อไม่ set date ในฟอร์ม กลับ นับ 1 ให้ เมื่อ set date กลับให้เลขที่ต่อเนื่อง ไมนับ 1 ใหม่
แก้มาหลายวันแล้วไม่สำเร็จครับ