eak
กระทู้เก่าบอร์ด อ.Yeadram

 827   4
URL.หัวข้อ / URL eak

รบกวนด้วยครับ ผมเขียน นับจำนวนจากหลายๆ คิวรี่ โดยให้มาสแดงที่ text box หน้าฟอร์ม ในแหล่งข้อมูล ดังนี้

=IIf([id]=1,DCount("[pcucodeperson]","R_anc"),IIf([id]=2,DCount("[pid]","R_mch1"),IIf([id]=3,DCount("[pid]","R_pap1"),IIf([id]=4,DCount("[pid]","R_chai_person"),IIf([id]=5,DCount("[pcucodeperson]","R_ncd1"),IIf([id]=6,DCount("[pcucodeperson]","R_ncd_35-59"),IIf([id]=7,DCount("[pcucodeperson]","R_ncd60"),IIf([id]=8,DCount("[pid]","R_person_den32"),IIf([id]=9,DCount("[pid]","R_person_1y2"),IIf([id]=10,DCount("[pid]","R_person_5y2"),IIf([id]=11,DCount("[pid]","R_DM_person"),IIf([id]=12,DCount("[pid]","R_HT_person4"),IIf([id]=13,DCount("[pid]","R_DM_person4"),IIf([id]=14,DCount("[pid]","R_tb_person4"),IIf([id]=15,DCount("[pid]","R_jit_person4"),IIf([id]=16,DCount("[pid]","R_anc_home1"),"0"))))))))))))))))


มันแสดงค่่าได้ปกติครับ แต่ปัญหาอยู่ที่ มันซ้อนกันได้ไม่เกิน 13 ชั้น ครับ มีวิธีอื่น ในการทำไหมครับ ผมมีคิวรีที่ต้องนับเยอะประมาณ 30 คิวรีครับ
โดย: eak เมื่อ: 30 ต.ค. 2558 , 15:27

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

1 @R21394
โดย: eak เมื่อ: 30 ต.ค. 2558 , 15:35
2 @R21407
ลองใส่ซัก 5 คิวรี ใน 1 กล่อง แล้วค่อยเอาแต่ละกล่องมาบวกกัน โดยซ่อนเอาไว้ไม่ให้เห็นครับ
โดย: Un เมื่อ: 3 พ.ย. 2558 , 08:08
3 @R21410
เขียนฟังก์ชั่นใน VBA ตย.เช่น

Public Function GetVal(ID As Integer) As Integer
   Select Case ID
      Case 1 : GetVal = DCount("[pcucodeperson]","R_anc")
      Case 2 : GetVal = DCount("[pid]","R_mch1")
      Case 3 ....
      ...
   End Select
End Function

แล้วคิวรี่ก็อ้างฟังก์ชั่นนี้แทน เช่น select ..., ..., GetVal([ID]) from ... where ...
โดย: สันติสุข เมื่อ: 3 พ.ย. 2558 , 16:55
4 @R21421
ขอบคุณครับ คุณสันติสุข ทำได้แล้วครับ
โดย: eak เมื่อ: 5 พ.ย. 2558 , 21:38
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2615s