สอบถามเรื่องการแสดงผลรายงานคะ
กระทู้เก่าบอร์ด อ.Yeadram

 2,717   13
URL.หัวข้อ / URL
สอบถามเรื่องการแสดงผลรายงานคะ

ดิฉันได้สร้างรายงานสต๊อกสินค้า ใช้ eccess 2003 ดังภาพคะ



เป็นการแสดงสินค้าคงเหลือปลายปีตามรหัสสินค้า แต่ดิฉันไม่ต้องการให้แสดงค่าที่เป็นศูนย์คะ

ต้องการให้ ช่องคงเหลือ
sum=([Ins]) แสดงเฉพาะค่าที่ไม่เท่ากับ 0 (แสดงเฉพาะค่าติดลบ และ >0)
ไม่ทราบว่าต้องทำอย่างไรคะ ดิฉันไม่ถนัดโค้ดด้วยคะ แนะนำด้วยนะคะ

ขอบคุณล่วงหน้าคะ

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

1 @R05184
แก้ไข =sum([Ins]) เป็น =iif(sum([Ins]),sum([Ins]),"")
2 @R05185
ขอบคุณมากคะ คุณ somyj ทำได้แล้วคะ

แต่ถ้าอยากให้ ไม่ต้องแสดงผลเรคคอร์ด ที่เท่ากับศูนย์ ทั้งเรคคอร์ดเลยละคะ

รบกวนอีกรอบคะ..../ขอบคุณคะ
3 @R05186
ไปกำหนดที่ Format property เป็น 0;-0;"" และกำหนก Decimal property เป็น Auto ถ้าผลรวมไม่เป็นจำนวนเต็ม ก็เปลี่ยน 0 เป็น 0.0000 เท่านั้น (จะกี่หลักก็ตามแต่ที่คุณอยากได้)
4 @R05187
ขอบคุณมากคะ คุณสันติสุข

june ต้องการให้บรรทัดที่ช่องคงเหลือ เท่ากับ 0 ไม่ต้องแสดงผลทั้งบรรทัด คะ

*ต้องขอโทษด้วยคะ เมื่อกี๊ถามไม่ชัดเจน
5 @R05188


ต้องการให้เหลือรายงานแค่ 6 บรรทัด ที่สินค้าคงเหลือไม่เท่ากับศูนย์คะ
6 @R05189
ไปดูทีแหล่งข้อมูลของรายงาน
ถ้าเป็น ตาราง ให้ทำเป็นคิวรี่ก่อน แล้วเพิ่ม Where
ถ้าเป็นคิวรี่อยู่แล้ว ก็ไปเพิ่ม Where

และเพื่อป้องกัน การหนีเสือปะจรเข้ คุณควรเอาแหล่งข้อมูลของคุณมาดูด้วยจะดีกว่า ไม่งั้นการใส่ Where ร่วมกับ Group อาจจะให้ผล ไม่ตรงความการอีก
7 @R05190
ต้องเขียนโค้ดใน Format event ของ Group Footer section ของ ProductID ว่า
{CODE}Me.Section("xxx").Visible = (Me.aaa <> 0)
โดยที่ xxx คือชื่อของ Group Footer section ของ ProductID
aaa = ชื่อเท็กซ์บ็อกซ์ของช่อง คงเหลือ

อย่างนี้ก็น่าจะได้ตามความต้องการแล้วมังครับ
8 @R05191
ขอบคุณคะ อ. yeadram , สันติสุข , somyj (ถ้าเรียกไม่ถูกขอโทษด้วยนะคะ) ขอเรียก อาจารย์ ทุกคนเลยนะคะ

ที่มาคะ


ไฟล์ access ที่ june สร้างใหญ่มากเลยคะมีทุกแผนก กลัวหาตาราง และคิวรี่ไม่เจอคะ เลย prinscreen มาให้ดูแทนคะ

ดิฉันจะทำตามที่อาจารย์แนะนำดูก่อนนะคะ /ขอบคุณคะ
9 @R05194


Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
Me.Section("GroupFooter1").Visible = (Me.Text40 <> 0)
End Sub

ใส่โค้ดแบบนี้มั้ยคะ
10 @R05195

เป็นคิวรี่อยู่แล้ว ไปเพิ่ม Where ยังไงคะ
11 @R05196
ถ้าเป็นคิวรี่อยู่แล้ว ไปเพิ่ม Where ยังไงคะ
12 @R05200
เป็นยังไงบ้างครับ ใส่โค้ดที่ผมบอกไปแล้วใช้งานได้หรือไม๋
13 @R05202
ได้แล้วคะ อ. สันติสุข
ขอบคุณมากๆๆ คะ ที่ทำให้คนเขียนโค้ดไม่เป็น สามารถเขียนโค้ดได้



ขอบคุณ อ.yeadram อ.somyj ด้วยคะ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3549s