จำกัดจำนวนรายการใน1บิล
กระทู้เก่าบอร์ด อ.Yeadram

 963   2
URL.หัวข้อ / URL
จำกัดจำนวนรายการใน1บิล

สวัสดีครับ คือ ผมมีคำถามจะรบกวน 2 ข้อนะครับ

1.ผมใช้ ฟอร์มในการเปิดบิลครับ ใน textbox ที่ใช้กำหนดลำดับรายการ ผมตั้งชื่อว่า "Item_No."มาจาก Table ที่ชื่อ [sale_detail].[item_no] ความต้องการของผมคือ เมื่อต้องการป้อนรายการถัดไป ให้ textbox อันนี้ "กรอกตัวเลขให้อัตโนมัติ" ได้หรือเปล่าครับ โดยเรียงลำดับไปเรื่อยๆ เช่น บิลเลขที่1 รายการที่ 1,2,3,4,5,.......เพราะตอนนี้ใช้คลิกเลือกแล้วใส่ตัวเลขเอาเอง

2.ต่อเนื่องจาก ข้อ 1. ครับ คือ เมื่อรัน Item_No. ไปจนถึง 30 แล้วบังคับให้จบการขายบิลนี้ ไม่ให้ขายต่อ แล้วขึ้นบิลใหม่ เริ่มรัน Item_No. เป็น 1 ใหม่อีกครั้ง ต้องทำอย่างไรบ้างครับ พอจะมีคำแนะนำหรือตัวอย่างบ้างไหมครับ

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

1 @R17651
สำหรับ ข้อ 1. ผมหามาจากอินเทอร์เน็ทแล้วมาแปลงครับ

Private Sub item_No_Click()
Dim intMax As Integer
If Me.item_No = "" Or IsNull(Me.item_No) Then
    If IsNull(DMax("Val(Mid([item_No],25))", "sale_detail")) Then
        Me.item_No = "1"
    Else
        intMax = DMax("Val(Mid([item_No],25))", "sale_detail")
        intMax = intMax + 1
        Me.item_No = Format(intMax, "0")
    End If
End If
End Sub

ผลที่ได้คือเมื่อคลิ๊กแล้ว ก็ใช้ได้ครับ คือ ได้แต่ 1 ทุกๆรายการ
ผมต้องแก้ส่วนไหนบ้างครับ
2 @R17654
เพิ่มเติมครับใน [sale_detail].[item_no] ผมตั้งค่าเป็น Number ครับ มี
[sale_detail].[bill_No] เป็น คีย์หลัก
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2499s