กระทู้เก่าบอร์ด อ.Yeadram
1,015 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 ใหม่อีกครั้ง ต้องทำอย่างไรบ้างครับ พอจะมีคำแนะนำหรือตัวอย่างบ้างไหมครับ
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
2 @R17654
เพิ่มเติมครับใน [sale_detail].[item_no] ผมตั้งค่าเป็น Number ครับ มี
[sale_detail].[bill_No] เป็น คีย์หลัก
[sale_detail].[bill_No] เป็น คีย์หลัก
Time: 0.3492s
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 ทุกๆรายการ
ผมต้องแก้ส่วนไหนบ้างครับ