กระทู้เก่าบอร์ด อ.Yeadram
1,111 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
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 ที่ชี้แนะครับ
Time: 0.3359s