การนับค่าที่ซํ้ากัน แต่ไม่ต้องเก็บค่า
กระทู้เก่าบอร์ด อ.Yeadram

 1,145   5
URL.หัวข้อ / URL การนับค่าที่ซํ้ากัน แต่ไม่ต้องเก็บค่า

การนับค่าที่ซํ้ากัน แต่ไม่ต้องเก็บค่า จะเอาค่าที่ซํ้ากันมาเป็นตัวแปรครับ
MIDsub
1
1
2
2
2

ในฟอร์มย่อย

Private Sub Form_Current()
x = Dlast("MIDsub","M_in_sub")   ในที่นี้คือ 2
y = ต้องใช้สูตรอะไรครับ?    เพื่อนับค่าซํ้าของ "x" ผลลัพท์ที่ต้องการคือ 3
ติดอยู่ตรงที่ผมหาวิธีการนับค่าซํ้าไม่ได้ครับ
รบกวนผู้รู้ช่วยแนะนำผมหน่อยครับ
โดย: LN เมื่อ: 27 พ.ย. 2557 , 16:07

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

1 @R19828
y = DCount("MIDsub","M_in_sub",x)
โดย: PichaiTC เมื่อ: 27 พ.ย. 2557 , 21:24
2 @R19830
ยังไม่ได้ครับ ผลลัพท์ที่ออกมา คือ 5 ครับ

ผมใช้ เมสเสจบ๊อกเช็คค่า y ดูครับ
If y < 10 Then MsgBox ("" & y & "")

และผมก็ลองสูตรอื่นดู ผลที่ได้ก็คือ 5 เหมือนเดิมครับ

แบบที่1
y = DCount("MIDsub","M_in_sub",DMax("MIDsub","M_in_sub"))

แบบที่2 ใช้เกณท์จากฟอร์ม
y = DCount("MIDsub","M_in_sub",Me.MIDsub)

ลืมบอกไปครับว่าฟอร์มนี้เป็น Continuous Forms
โดย: LN เมื่อ: 29 พ.ย. 2557 , 11:14
3 @R19831
แก้ไข แบบที่ 2 ครับ

จาก
y = DCount("MIDsub","M_in_sub",Me.MIDsub)
เป็น
y = DCount("MIDsub","M_in_sub","[MIDsub]= '" & Me.MIDsub & "'")

ก็ไม่ได้ผลครับ
โดย: LN เมื่อ: 29 พ.ย. 2557 , 14:02
4 @R19834
ลองแบบนี้ครับ
y = DCount("MIDsub","M_in_sub","[MIDsub]= " & x)
โดย: PichaiTC เมื่อ: 30 พ.ย. 2557 , 19:44
5 @R19835
ได้แล้วครับ อาจารย์พิชัย ขอบคุณมากครับ
ตอนนี้ผมไปต่อได้แล้วครับ ขอบคุณอีกครั้ง จากใจจริงๆครับ
โดย: LN เมื่อ: 1 ธ.ค. 2557 , 11:43
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3330s