Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย

น้อมรำลึกในพระมหากรุณาธิคุณอันหาที่สุดมิได้ พระบาทสมเด็จพระปรมินทรมหาภูมิพลอดุลยเดชฯ พระผู้เสด็จสู่สวรรคาลัย

Back to Board : Thai Access Webboard New Topic    Reply
Dcount 2 เงื่อนไข

Topic by Message Posted : on : 5/10/2560 13:33:22
มือใหม่  รบกวนอาจานย์ทุกท่านด้วยคะ
ต้องการจะรันลำดับเลข

เช่น เลขที่ใบงานที่      1        งานที่   1        ลำดับที่ 1
       เลขที่ใบงานที่      1        งานที่   1        ลำดับที่ 2
       เลขที่ใบงานที่      1        งานที่   2        ลำดับที่ 1
       เลขที่ใบงานที่      1        งานที่   2        ลำดับที่ 2
       เลขที่ใบงานที่      2        งานที่   1        ลำดับที่ 1
       เลขที่ใบงานที่      2        งานที่   1        ลำดับที่ 2
       เลขที่ใบงานที่      2        งานที่   2        ลำดับที่ 1
       เลขที่ใบงานที่      2        งานที่   2        ลำดับที่ 2

รันแบบนี้ไปเรื่ื่อยๆ คะโดยที่ใบงานและงาน จะมามากกว่า นี้ ที่เขียนมาจะใช้ Dcount ในการนับ แต่ที่นี้พอมันมี 2 เงื่อนไข เลยลองใส่


Private Sub OpName_AfterUpdate()
Dim xx As Long
xx = DCount("ProrramStep", "tblprogram", "jobno= txtjobno" And "Docno", "tblprogram", "Docno= txtDocno")

Me.ProrramStep = xx + 1

End Sub


ไม่ทราบว่าใส่ผิดหรือเปล่า ลองทึกทักเอาเองคะ (มือใหม่)
**ข้อมูลเป็น Number เลขที่ใบงาน (Docno) งานที่ (Jobno) ส่วนลำดับที่ คือค่าที่ต้องการให้รันอันโนมัติ โดยยึด เลขที่ใบงานและงานที่เป็นหลัก คะ

รบกวนด้วยนะคะ

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

Reply by Message on : 5/10/2560 14:42:56
มือใหม่
(R24174)
แก้ไขโค้ด คะ ตอนนี้ใช้โค้ดนี้อยู่ แจ้งฟ้อง error ว่า Type mismatch ค่ะ

Private Sub OpName_AfterUpdate()

Dim xx As Long
xx = DCount("ProrramStep", "tblprogram", "jobno= txtjobno" And "Docno= txtDocno")

Me.ProrramStep = xx + 1

End Sub

Back to Top
Reply by Message on : 5/10/2560 15:02:47
TTT
(R24175)
ควรจะเป็นอย่างนี้ป่าวครับ

xx = DCount("ProrramStep", "tblprogram", "jobno= " & txtjobno & " And Docno=" & txtDocno)

Back to Top

Reply

 *Indicates required fields
Format:
Bold Under Line Italic Add Hyperlink Add Email Link Italic List Indent Add Image Emoticons Insert code Mode:
Message:*
Your Name*:
Normal word*: Please input : ไทยแอ็คเซส
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++