สอบถามการรันตัวเลขตู้ครับ

[Eik Q Sang]

รบกวนสอบถามการรันเลขตู้ครับ คือผมได้สร้าง Table ตู้เก็บเอกสาร โดย Table ชื่อ tblDepDoc มีฟิลด์ชื่อ
Cabinet - ตู้
Shelf - ชั้น
Seq - ลำดับ
DocDetail
ผมได้สร้างฟอร์ม ชื่อ frmSearchDoc ฟอร์มนี้ จะไว้กดค้นหาตู้


และเมื่อเลือกตู้แล้วกดปุ่มจะไปที่ฟอร์ม ชื่อ frmDepDoc โดยฟอร์มนี้จะมี textbox ดังนี้
txt_Cabinet
txt_Shelf
txt_Seq
และ
txt_DocDetail ให้กรอกรายละเอียด
โดยเมื่อกรอกรายละเอียดเสร็จ จะกดปุ่ม เพิ่มข้อมูล ตู้จะรันลำดับให้ เช่น
1/1/1
1/1/2
1/1/3
ไปเรื่อยๆน่ะครับ

ตรงนี้ต้องเขียนอะไรอย่างไรบ้างครับ ขอบพระคุณมากครับผม

[PNR]

Cabinet - ตู้
Shelf - ชั้น
Seq - ลำดับ

รันเลขตู้นั้นมีแค่ 1/1/1 1/1/2 1/1/3 ไปจนถึง 1/1/N ใช่ไหม
ไม่มี 1/2/1  1/2/2  หรือ 3/1/1 ใช่ไหมครับ

[Eik Q Sang]

เรียน อาจารย์ครับ ผมทำให้รันตัวเลขได้แล้วครับ แต่ติดปัญหาคือ เวลาผมเริ่มทำรายการ เช่น ตู้ 52 ชั้น 1 กล่อง 1 แล้วใส่รายละเอียด AppNo,CIF,วันที่เอกสาร แล้วผมลองไม่กดปุ่ม เอกสารครบถ้วนหรือสลิปเงินเดือนหรือสำเนาบัตรประชาชน แล้วกดเพิ่มรายการพบว่า ไม่พบในรายละเอียดเอกสาร เหตุเพราะ ไม่ได้กดปุ่มเลือกเอกสารจึงไม่เห็นในรายละเอียดเอกสาร แต่ระบบยอมให้กดเพิ่มรายการได้
ผมอยากให้ระบบ แจ้งเตือนและไม่สามารถเพิ่มรายการได้ หากยังไม่ได้เลือก เอกสารครบถ้วนหรือสลิปเงินเดือนหรือสำเนาบัตรประชาชน อย่างน้อย 1 รายการ
ไม่ทราบว่าต้องแก้ไขอะไรอย่างไรบ้างครับผม ขอบคุณมากครับผม

[PNR]

ความต้องการคือ ถ้าเพิ่มข้อมูลใหม่
รายละเอียดสำคัญคือต้องมีข้อมูลในฟิลล์ 01 หรือ 02 หรือ 03 ใช่ไหมครับ
ถ้าไม่มี ข้อมูลพวกนี้ ก็อยากให้ไม่สามารถเพิ่มข้อมูลใหม่ได้ และมีการแจ้งเตือน ใช่ไหม

[Eik Q Sang]

ความต้องการคือ ถ้าเพิ่มข้อมูลใหม่
รายละเอียดสำคัญคือต้องมีข้อมูลในฟิลล์ 01 หรือ 02 หรือ 03 ใช่ไหมครับ

ตอบ ใช่ครับผม คือ ใน 01-06 ต้องเลือก อย่างน้อย 1 รายการครับอาจารย์

ถ้าไม่มี ข้อมูลพวกนี้ ก็อยากให้ไม่สามารถเพิ่มข้อมูลใหม่ได้ และมีการแจ้งเตือน ใช่ไหม

ตอบ  ถ้าไม่เลือกข้อมูล 01-06 เลย จะไม่สามารถเพิ่มข้อมูลใหม่ได้และให้มีการแจ้งเตือนว่าต้องเลือกข้อมูลอย่างน้อย 1 รายการครับอาจารย์

[PNR]

งั้นโค้ดน่าจะแบบนี้

If MsgBox("คุณต้องการเพิ่มรายการใช่หรือไม่?", vbExclamation + vbYesNo, "Message Box") = vbYes Then

If IsNull(Me.[01]) And IsNull(Me.[02]) And IsNull(Me.[03]) And IsNull(Me.[04]) And IsNull(Me.[05]) And IsNull(Me.[06]) Then
ElseIf Me.[01] = "0" And Me.[02] = "0" And Me.[03] = "0" And Me.[04] = "0" And Me.[05] = "0" And Me.[06] = "0" Then
    MsgBox "ต้องเลือกข้อมูลอย่างน้อย 1 รายการ", vbCritical, "Message Box"
    Else
   DoCmd.GoToRecord , , acNewRec
   Me.txt_CodeType = ""
End If

Else
DoCmd.SetWarnings True
Me.Undo
Me.Refresh
End If

[Eik Q Sang]

ขอบพระคุณมากครับอาจารย์

[Eik Q Sang]

ผมได้ทดสอบปุ่มดูแล้วพบว่า
1.ลองใส่โค้ดดูแล้วลองไม่ระบุ 01-06 ไป แล้วกดปุ่มเพิ่ม แล้วกด "ตกลง" พบว่า ระบบไม่แจ้งเตือนครับอาจารย์ หรือว่าต้องระบุซับฟอร์มด้วยครับ
2.ลองใส่โค้ดดูแล้วลองไม่ระบุ 01-06 ไป แล้วกดปุ่มเพิ่ม แล้วกด "ไม่" พบว่า ระบบมีการเพิ่มรายการแต่ไม่รัน Sequence ให้ครับ
ไม่ทราบว่าต้องแก้ไขยังไงบ้างครับ อาจารย์ ขอบคุณมากครับผม

[PNR]

ผมได้ทดสอบปุ่มดูแล้วพบว่า
1.ลองใส่โค้ดดูแล้วลองไม่ระบุ 01-06 ไป แล้วกดปุ่มเพิ่ม แล้วกด "ตกลง" พบว่า ระบบไม่แจ้งเตือนครับอาจารย์ หรือว่าต้องระบุซับฟอร์มด้วยครับ
2.ลองใส่โค้ดดูแล้วลองไม่ระบุ 01-06 ไป แล้วกดปุ่มเพิ่ม แล้วกด "ไม่" พบว่า ระบบมีการเพิ่มรายการแต่ไม่รัน Sequence ให้ครับ
ไม่ทราบว่าต้องแก้ไขยังไงบ้างครับ อาจารย์ ขอบคุณมากครับผม

ลองดูตัวอย่างนี้ครับไม่รู้ได้ไหม
แก้การสร้าง SEQ ใหม่

[Eik Q Sang]

ขอบพระคุณมากครับอาจารย์

[Eik Q Sang]

เรียน อาจารย์ครับ
ผมทดสอบแล้วพบว่า
1.เมื่อทำการกรอกข้อมูล AppNo,CIF,วันที่ ลงบนฟอร์ม แต่ไม่ได้เลือกรายการเอกสาร ระบบจะแจ้งว่าให้เลือกอย่างน้อย 1 รายการ ผมได้เลือกรายการและก็เพิ่มข้อมูล ระบบเพิ่มข้อมูลได้ปกติ แต่พอกรอกข้อมูลครั้งที่ 2 โดยกรอก AppNo,CIF แต่พอจะใส่วันที่โปรแกรมขึ้น pop up ดังรูปน่ะครับ

2.เมื่อทำการกรอกข้อมูล AppNo,CIF,วันที่ ลงบนฟอร์ม แล้วกดปุ่มลบรายการลบได้ตามปกติ แล้วกรอกข้อมูล AppNo,CIF แต่พอจะใส่วันที่โปรแกรมขึ้น pop up ดังรูปน่ะครับ

3.ออกจากโปรแกรมแล้วเข้าใหม่ กรอกข้อมูลครบถ้วน แล้วกดปุ่มลบข้อมูล เกิด error ตามรูป


ไม่ทราบว่าต้องแก้ไขอะไรอย่างไรบ้างครับอาจารย์ ขอบคุณมากครับ

[PNR]

กรอกข้อมูลครั้งที่ 2 โดยกรอก AppNo,CIF แต่พอจะใส่วันที่โปรแกรมขึ้น pop up ดังรูปน่ะครับ

ให้ลบ คำส่ง msgbox ออกไปพอดีผมทำมาเช็คค่าของตัวแปร แล้วลืมลบครับ 

ลบ MsgBox strSequence ออกไปครับ

ออกจากโปรแกรมแล้วเข้าใหม่ กรอกข้อมูลครบถ้วน แล้วกดปุ่มลบข้อมูล เกิด error ตามรูป

ปุ่มลบผมไม่ได้ทำให้ครับ เพราะที่ตอนคุณบอกมาแค่ให้ช่วยทำระบบ รันลำดับ และ ให้มีการแจ้งเตือน
เมื่อไม่ได้เลือกรายการเอกสารเท่านั้นครับ

[Eik Q Sang]

ขอบพระคุณมากครับอาจารย์ 

[Eik Q Sang]

รบกวนสอบถามอาจารย์ครับ ถ้าผมต้องการให้ Sub Form (วงกลมสีแดง) ให้แสดงผลตามตู้ ชั้น กล่อง (วงกลมสีน้ำเงิน) โดยใน SubForm ให้ Sort ตามลำดับจากมากไปน้อยครับ ผมจะต้องแก้ไขอะไรอย่างไรบ้างครับ เนื่องจาก SubForm ที่ทำอยู่แสดงผลทั้งหมดในทุกตู้เลยครับ

ขอบพระคุณมากครับอาจารย์

[PNR]

Recordsort ของ ซัฟฟอร์มที่ชื่อ frmDepDoccSub ใส่โค้ดไปว่า

โค๊ด: [Select]

SELECT qryDepDoc.Cabinet, qryDepDoc.Shelf, qryDepDoc.Block, qryDepDoc.Sequence, qryDepDoc.DateRecieve, qryDepDoc.AppNo, qryDepDoc.CIF, qryDepDoc.CusName, qryDepDoc.DocTypeCode, qryDepDoc.DocTypeName, qryDepDoc.DateStart, qryDepDoc.Status, qryDepDoc.[01], qryDepDoc.[02], qryDepDoc.[03], qryDepDoc.[04], qryDepDoc.[05], qryDepDoc.[06]
FROM qryDepDoc
WHERE (((qryDepDoc.Cabinet)=[forms]![frmSearchDoc]![Cb_Cabinet]) AND ((qryDepDoc.Shelf)=[forms]![frmSearchDoc]![Cb_Shelf]) AND ((qryDepDoc.Block)=[forms]![frmSearchDoc]![Cb_Block]))
ORDER BY qryDepDoc.Sequence DESC;


[Eik Q Sang]

ขอบพระคุณมากครับอาจารย์ครับ