สมัครสมาชิก
 

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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

01 พ.ย. 62 , 16:23:13
อ่าน 84 ครั้ง

UnKnown

ใช้ Dmax รันเลขที่บิลแล้ว Error แก้อย่างไรให้ใช้ได้ครับผม  :question:
รูปแบบเลขคือแนว 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

 

01 พ.ย. 62 , 18:04:04
ตอบกลับ #1

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

02 พ.ย. 62 , 11:34:05
ตอบกลับ #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++ นั้น
ตอนนี้นำไปแก้ให้แยกไปคำนวนต่างหากเป็นอันใช้ได้แล้วครับผม :yuush:
โค๊ด: [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/topic_post.asp?CategoryID=1&TopicID=651
« แก้ไขครั้งสุดท้าย: 02 พ.ย. 62 , 18:54:25 โดย UnKnown »

 


บอร์ดเรียนรู้ Access สำหรับคนไทย