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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

01 ก.พ. 64 , 15:43:08
อ่าน 411 ครั้ง

Eik Q Sang

สอบถามการรันตัวเลขตู้ครับ
« เมื่อ: 01 ก.พ. 64 , 15:43:08 »
รบกวนสอบถามการรันเลขตู้ครับ คือผมได้สร้าง 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
ไปเรื่อยๆน่ะครับ

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

 

02 ก.พ. 64 , 08:32:39
ตอบกลับ #1

PNR

: สอบถามการรันตัวเลขตู้ครับ
« ตอบกลับ #1 เมื่อ: 02 ก.พ. 64 , 08:32:39 »
Cabinet - ตู้
Shelf - ชั้น
Seq - ลำดับ

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


เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

02 ก.พ. 64 , 09:00:58
ตอบกลับ #2

Eik Q Sang

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

 

02 ก.พ. 64 , 09:19:07
ตอบกลับ #3

PNR

: สอบถามการรันตัวเลขตู้ครับ
« ตอบกลับ #3 เมื่อ: 02 ก.พ. 64 , 09:19:07 »
ความต้องการคือ ถ้าเพิ่มข้อมูลใหม่
รายละเอียดสำคัญคือต้องมีข้อมูลในฟิลล์ 01 หรือ 02 หรือ 03 ใช่ไหมครับ
ถ้าไม่มี ข้อมูลพวกนี้ ก็อยากให้ไม่สามารถเพิ่มข้อมูลใหม่ได้ และมีการแจ้งเตือน ใช่ไหม
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

02 ก.พ. 64 , 10:21:54
ตอบกลับ #4

Eik Q Sang

: สอบถามการรันตัวเลขตู้ครับ
« ตอบกลับ #4 เมื่อ: 02 ก.พ. 64 , 10:21:54 »
ความต้องการคือ ถ้าเพิ่มข้อมูลใหม่
รายละเอียดสำคัญคือต้องมีข้อมูลในฟิลล์ 01 หรือ 02 หรือ 03 ใช่ไหมครับ

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

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

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

 

02 ก.พ. 64 , 10:51:50
ตอบกลับ #5

PNR

: สอบถามการรันตัวเลขตู้ครับ
« ตอบกลับ #5 เมื่อ: 02 ก.พ. 64 , 10:51:50 »
งั้นโค้ดน่าจะแบบนี้

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

เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

02 ก.พ. 64 , 12:08:07
ตอบกลับ #6

Eik Q Sang

: สอบถามการรันตัวเลขตู้ครับ
« ตอบกลับ #6 เมื่อ: 02 ก.พ. 64 , 12:08:07 »
ขอบพระคุณมากครับอาจารย์

 

02 ก.พ. 64 , 12:18:47
ตอบกลับ #7

Eik Q Sang

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

 

02 ก.พ. 64 , 14:27:37
ตอบกลับ #8

PNR

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

ลองดูตัวอย่างนี้ครับไม่รู้ได้ไหม
แก้การสร้าง SEQ ใหม่
« แก้ไขครั้งสุดท้าย: 02 ก.พ. 64 , 15:25:47 โดย PNR »
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

02 ก.พ. 64 , 15:47:31
ตอบกลับ #9

Eik Q Sang

: สอบถามการรันตัวเลขตู้ครับ
« ตอบกลับ #9 เมื่อ: 02 ก.พ. 64 , 15:47:31 »
ขอบพระคุณมากครับอาจารย์

 

03 ก.พ. 64 , 09:14:30
ตอบกลับ #10

Eik Q Sang

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

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

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


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

 

03 ก.พ. 64 , 10:00:42
ตอบกลับ #11

PNR

: สอบถามการรันตัวเลขตู้ครับ
« ตอบกลับ #11 เมื่อ: 03 ก.พ. 64 , 10:00:42 »
อ้างถึง
กรอกข้อมูลครั้งที่ 2 โดยกรอก AppNo,CIF แต่พอจะใส่วันที่โปรแกรมขึ้น pop up ดังรูปน่ะครับ
ให้ลบ คำส่ง msgbox ออกไปพอดีผมทำมาเช็คค่าของตัวแปร แล้วลืมลบครับ  :XD:

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

อ้างถึง
ออกจากโปรแกรมแล้วเข้าใหม่ กรอกข้อมูลครบถ้วน แล้วกดปุ่มลบข้อมูล เกิด error ตามรูป
ปุ่มลบผมไม่ได้ทำให้ครับ เพราะที่ตอนคุณบอกมาแค่ให้ช่วยทำระบบ รันลำดับ และ ให้มีการแจ้งเตือน
เมื่อไม่ได้เลือกรายการเอกสารเท่านั้นครับ
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

03 ก.พ. 64 , 10:10:54
ตอบกลับ #12

Eik Q Sang

: สอบถามการรันตัวเลขตู้ครับ
« ตอบกลับ #12 เมื่อ: 03 ก.พ. 64 , 10:10:54 »
ขอบพระคุณมากครับอาจารย์  :smile:

 

04 ก.พ. 64 , 11:09:34
ตอบกลับ #13

Eik Q Sang

: สอบถามการรันตัวเลขตู้ครับ
« ตอบกลับ #13 เมื่อ: 04 ก.พ. 64 , 11:09:34 »
รบกวนสอบถามอาจารย์ครับ ถ้าผมต้องการให้ Sub Form (วงกลมสีแดง) ให้แสดงผลตามตู้ ชั้น กล่อง (วงกลมสีน้ำเงิน) โดยใน SubForm ให้ Sort ตามลำดับจากมากไปน้อยครับ ผมจะต้องแก้ไขอะไรอย่างไรบ้างครับ เนื่องจาก SubForm ที่ทำอยู่แสดงผลทั้งหมดในทุกตู้เลยครับ

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

 

04 ก.พ. 64 , 15:34:09
ตอบกลับ #14

PNR

: สอบถามการรันตัวเลขตู้ครับ
« ตอบกลับ #14 เมื่อ: 04 ก.พ. 64 , 15:34:09 »
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;
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

04 ก.พ. 64 , 15:40:18
ตอบกลับ #15

Eik Q Sang

: สอบถามการรันตัวเลขตู้ครับ
« ตอบกลับ #15 เมื่อ: 04 ก.พ. 64 , 15:40:18 »
ขอบพระคุณมากครับอาจารย์ครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย