Form : Running No Item 2 Condition
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 253   1
URL.หัวข้อ / URL
Form : Running No Item 2 Condition

สวัสดีครับ อ.สุภาพ และพี่ๆ เพื่อนๆ ผมมีเรื่องรบกวนครับ ดังนี้
ผมมี Form FrmTbl0060_RequireMain เป็น Main Form
มี Field DocNo , etc...
Form FrmTbl0061_RequireSub1 เป็น Sub Form1
มี Field DocNo , ItemSub1 , PartNo , Qty
ผมทำ Running No Item ที่ Form FrmTbl0061_RequireSub1 ไม่มีปัญหา
Form FrmTbl0061_RequireSub2 เป็น Sub Form2
มี Field DocNo , ItemSub1 , ItemSub2 , PartNo , QtyPerPack , QtyPack
ปัญหา คือ ที่ Form FrmTbl0061_RequireSub2 เป็น Sub Form2
เมื่อมีการ Key Record ที่ Form FrmTbl0061_RequireSub1 เช่น
Item PartNo Qty
1 1224-3223 1,000 <---
เมื่อ Field Qty Exit ให้ไป SetFocus ที่ Field PartNo ที่ Form FrmTbl0061_RequireSub2 เป็น Sub Form2
และให้ Running No Item ดังนี้
ItemSub1 Item PartNo PCs/Pack Pack
1 1 1224-3223 500 1 <---
1 2 1224-3223 500 1 <---
... ... ... ... ...
ทีนี้เมื่อเราเข้าไป Key Record ที่ Form FrmTbl0061_RequireSub1 ใน Record ที่ 2 เช่น
Item PartNo Qty
1 1224-3223 1,000
2 2655-8669 4,000 <----
เมื่อ Field Qty Exit ให้ไป SetFocus ที่ Field PartNo ที่ Form FrmTbl0061_RequireSub2 เป็น Sub Form2
และให้ Running No Item ดังนี้
ItemSub1 Item PartNo PCs/Pack Pack
1 1 1224-3223 500 1
1 2 1224-3223 500 1
2 1 2655-8669 1,000 1 <---
2 2 2655-8669 1,000 1 <---
2 3 2655-8669 1,000 1 <---
2 4 2655-8669 1,000 1 <---
... ... ... ... ...
สรุปเงื่อนไขคือ เมื่อ Form FrmTbl0061_RequireSub1 อยู่ที่ Record ไหนใน ItemSub1
ก็ให้ ItemSub1 ใน Form FrmTbl0061_RequireSub2 เท่ากับค่านั้นๆ
แต่ ItemSub2 ก็ให้ Running No 1 , 2 , 3 , ....
และเมื่อขึ้น Record ใหม่ (ItemSub1) ใน Form FrmTbl0061_RequireSub1 และอยู่ที่ Record ไหน
ก็ให้ Running No ItemSub2 Running ต่อไป ครับ
รบกวน อ.สุภาพ แนะนำด้วยครับ
อีกอย่างผมเข้า Website ของ อาจารย์ ไม่ได้เลย ในช่วง 2-3 วันที่ผ่านมา
วันนี้เพิ่งจะเข้ามาได้ ไม่ทราบว่ามีปัญหา หรือเปล่าครับ
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี

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

1 @R04220
ผมยังไม่ได้ดูไฟล์ที่แนบมาด้วยนะครับ เพราะวันนี้ผมอบรมการใช้ Linux เลยไม่มี Access ให้เปิดไฟล์ที่แนบมาได้

แต่น่าจะใช้ DMax() + 1 เข้าช่วยได้ โดยใช้เงื่อนไข 2 เงื่อนไข

Dim intMax As Integer
intMax = DMax("[ฟีลด์ที่จะทำ ruuning no.]","ตารางเป้าหมาย", "[ฟีลด์ที่จะตรวจหาเงื่อนไขที่1] =เงื่อนไขที่1 And [ฟีลด์ที่จะตรวจหาเงื่อนไขที่2] =เงื่อนไขที่2")
intMax = intMax + 1

ลองดูครับ

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