ขอคำแนะนำจากตัวอย่าง
กระทู้เก่าบอร์ด อ.Yeadram

 1,107   3
URL.หัวข้อ / URL
ขอคำแนะนำจากตัวอย่าง

จากตัวอย่างที่ผมได้ค้นหามา ถ้าผมต้องการใส่ตัวหนังสือ "PO" เข้าไปผมต้องใส่ตรงส่วนไหนของโค๊ดครับ

Function AutoNo() As String
Dim x As Variant
Dim bk As String
        x = DMax("Right(documentsno,3)", "inv_NameStockRemove", "left(documentsno,4) = " & Year(Now()))
        If IsNull(x) or cint(x) = 0 Then bk = 1 Else bk = x + 1
    AutoNo = Year(Now()) & "/" & format(bk,"000")
End Function


3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R07326
คือผมอยากให้ออกมาในรูปแบบนี้ครับ PO2010001 ตัวหนังสือ PO ผมต้องไปใส่ไว้ส่วนไหนหรือครับ ลองดูหลายที่แล้วแต่ไม่ได้ครับ
2 @R07328
ปรับแก้เป็น
Function AutoNo() As String
Dim x As Variant
Dim bk As String
x = DMax("Right(documentsno,3)", "inv_NameStockRemove", "mid(documentsno,3,4) = " & Year(Now()))
If IsNull(x) or cint(x) = 0 Then bk = 1 Else bk = x + 1
AutoNo = "PO" & Year(Now()) & format(bk,"000")
End Function
3 @R07329
ขอบคุณครับผมท่านอาจารย์ yeadram ที่ชี้แนะครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2204s