Dcount 2 เงื่อนไข
กระทู้เก่าบอร์ด อ.Yeadram

 950   2
URL.หัวข้อ / URL Dcount 2 เงื่อนไข

รบกวนอาจานย์ทุกท่านด้วยคะ
ต้องการจะรันลำดับเลข

เช่น เลขที่ใบงานที่      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) ส่วนลำดับที่ คือค่าที่ต้องการให้รันอันโนมัติ โดยยึด เลขที่ใบงานและงานที่เป็นหลัก คะ

รบกวนด้วยนะคะ
โดย: มือใหม่ เมื่อ: 5 ต.ค. 2560 , 13:33

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

1 @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
โดย: มือใหม่ เมื่อ: 5 ต.ค. 2560 , 14:42
2 @R24175
ควรจะเป็นอย่างนี้ป่าวครับ

xx = DCount("ProrramStep", "tblprogram", "jobno= " & txtjobno & " And Docno=" & txtDocno)
โดย: TTT เมื่อ: 5 ต.ค. 2560 , 15:02
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3263s