ใช้ Dmax รันเลขที่บิลแล้ว Error แก้อย่างไรให้ใช้ได้ครับผม

[UnKnown]

ใช้ Dmax รันเลขที่บิลแล้ว Error แก้อย่างไรให้ใช้ได้ครับผม 
รูปแบบเลขคือแนว QU62XX นะครับ

โค๊ด: [Select]

Private Sub cmd_QuNew_Click()
    If GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) <> 7 Then
       Me.txtDateTH = mYear([txtDate])
    ElseIf GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) = 7 Then
       Me.txtDateTH = bYear([txtDate])
    End If
'    Me.QU_No = AutoQuNo
    Me.QU_No = "QU" & Right([txtDateTH], 2) & Right("00" & DMax("[QU_No]", "[T_Quot v7]", "Left([QU_No],4) = 'QU' & Right([txtDateTH], 2)") + 1, 2)
    DoCmd.OpenForm "F_Quot v7 Edit"

End Sub

[nonc31]

Me.QU_No = "QU" & Right([txtDateTH], 2) & Right("00" & DMax("[QU_No]", "[T_Quot v7]", "Left([QU_No],4) = 'QU'") & Right([txtDateTH], 2) + 1, 2)

แค่ใส่เครื่องหมายผิดที่ครับ

[UnKnown]

โค๊ด: [Select]

Me.QU_No = "QU" & Right([txtDateTH], 2) & Right("00" & DMax("[QU_No]", "[T_Quot v7]", "Left([QU_No],4) = 'QU'") & Right([txtDateTH], 2) + 1, 2)
แค่ใส่เครื่องหมายผิดที่ครับ

นำไปใช้แล้วเลขที่ออกจะเป็น QU6263 แบบตายตัวไม่บวกเพิ่มเลยครับ

จากที่ความต้องการคือ QU & YY & 00 = QU6201-QU62++ , QU6301-QU63++ นั้น
ตอนนี้นำไปแก้ให้แยกไปคำนวนต่างหากเป็นอันใช้ได้แล้วครับผม

โค๊ด: [Select]

Private Sub cmd_QuNew_Click()
    If GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) <> 7 Then
       Me.txtDateTH = mYear([txtDate])
    ElseIf GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) = 7 Then
       Me.txtDateTH = bYear([txtDate])
    End If
    Me.QU_No = AutoQuNo
    DoCmd.OpenForm "F_Quot v7 Edit"
End Sub

Function AutoQuNo() As String
Dim X As Variant
Dim bk As String
        X = DMax("Right(QU_No,2)", "[T_Quot v7]", "Left([QU_No],4) = 'QU' & Right([txtDateTH], 2)")
        If IsNull(X) Then bk = 1 Else bk = X + 1
    AutoQuNo = "QU" & Right([txtDateTH], 2) & Format(bk, "00")
End Function
ขอบคุณ อ.yeadram แนวทางจากกระทู้ > https://www.thai-access.com/yeadram_view.php?topic_id=651