ใช้access97 เวลาออกใบเสร็จ อยากทำตัวเลข เล่มที่......เลขที่.........
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 305   2
URL.หัวข้อ / URL ใช้access97 เวลาออกใบเสร็จ อยากทำตัวเลข เล่มที่......เลขที่.........

ทดลองทำโปรแกรม เพื่อออกใบเสร็จรับเงินรายบุคคล ออกได้แล้ว โดยใช้คิวรี่เรียกทีละ50-300 คน
แต่ยังไม่มีเล่มที่......(มุมซ้ายบน) เลขที่.......(มุมขวาบน) อยากขอคำแนะนำครับ โดยเวลาออกใบเสร็จ
แต่ละครั้งให้ผู้ใช้ป้อน เล่มที่....(เช่น เดือนมกราคม 2547 ป้อนว่า 1/2547) ส่วนด้านเลขที่......(ให้ผู้ใช้
ป้อนตัวเลขเริ่มต้น อาจไม่ใช่เริ่มต้นที่เลข 1 เพราะมี 4 แผนกแต่ละแผนกจะได้รับการจัดสรรเลขใบเสร็จ
แล้วไปออกต่อ ๆ กันไปทุกเดือน เมื่อผู้ใช้ป้อนเลขที่ เริ่มต้นแล้ว ขอให้เลขใบเสร็จต่อไป เป็นเลข Run
อัตโนมัติ ขอบคุณครับ...........
โดย: มดแดง เมื่อ: 8 ม.ค. 2547 , 07:38

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

1 @R06069
ขอเพิ่มเติมนะครับ ตัวเลข เล่มที่....... ไม่ต้องเป็นเลข Run ผู้ใช้จะป้อนเอง
เพราะมี 12 เดือน (1/2547........12/2547) ขอบคุณครับ

โดย: มดแดง เมื่อ: 8 ม.ค. 2547 , 07:45
2 @R06070
Dim MaxGID As Variant
MaxGID = DMax("SerialB", "Buy", Right(SerialB, 7) & Right(Str(Year(Date) + 543), 2) * 100000)
If IsNull(MaxGID) Then
MaxGID = Right(Str(Year(Date) + 543), 2) * 100000
End If

BSerial.Value = "B" & (Right(MaxGID, 7) + 1)

ลองดู Code ที่ผมใช้ทำ Serial Number ประยุกต์ดู
จะเป็นเลข 7 หลักและมีตัวอักษร B นำหน้า
เช่น B4700001

เริ่มจาการค้นหา SerialB มากสุดจากตาราง Buy
แล้วถ้าเป็นค่าว่างจะเท่ากับ Right(Str(Year(Date) + 543), 2) * 100000
ถ้าไม่ใช่ก็บวกอีก 1

หวังว่าคงใช้ได้บ้างนะครับ
โดย: Ken เมื่อ: 8 ม.ค. 2547 , 09:12
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.1034s