แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - sjs

หน้า: 1 ... 4 5 6 [7]
109
ห้อง MS Access / > Sumค่า Grand Total ใน Report Footer
« เมื่อ: 03 พ.ค. 61 , 09:27:50 »
สอบถามเพิ่มเติมค่ะ




จากรูปได้สร้างบวกค่า Total W/H Service Charge :ซึ่งได้จากแถวGrand Total Charge บวกกัน

แต่เวลาเปิดหน้าReportมาครั้งแรกค่าช่องTotal W/H Service Charจะไม่ถูกต้อง แต่พอรอสัก1-2วิ ค่าที่ถูกก็รันขึ้นมาเอง
ทีนี้จะต้องนำค่า Total W/H Service Charge ไปอ้างอิงในหน้าถัดไป
ซึ่งถ้าเปิดหน้าReportนี้มาและกดไปหน้าถัดไปเลย จะนำเอาข้อมูลที่ไม่ถูกต้องไปคำนวน (คือค่า49,104,693)

อยากทราบวิธีแก้ไขได้ค่ะ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

110
ห้อง MS Access / > Sumค่า Grand Total ใน Report Footer
« เมื่อ: 27 เม.ย. 61 , 11:37:57 »
ก็สามารถ reference ไปได้ เช่น =Reports![ชื่อ report]![Grand Total] แต่ report ต้องเปิดอยู่นะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

111
ห้อง MS Access / > CurrentDb.Execute Insert into error รบกวนหน่อยคร้าบ
« เมื่อ: 26 เม.ย. 61 , 22:08:17 »
- ค่า NULL ต้องใช้คำว่า NULL  ไม่ใช่ปล่อยว่างๆ หรือเป็น "" หรือ " "
- ผมเขียน ... หมายถึงข้อความเดิมก่อนหน้าหรือตามหลัง ไม่ใช่ให้ใส่ ...
- ค่าวันที่ที่ใส่ใน SQL ต้องเป็นรูปแบบ #เดือน/วัน/ปีคศ.#
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

112
ห้อง MS Access / > > ต้องการให้ในรายงานมีจำนวน 10 เรคคอร์ด (ถึงแม้จะมีข้อความเพียงแค่ 1 เรคคอร์ด)
« เมื่อ: 23 เม.ย. 61 , 11:57:20 »
อ้างจาก: mookda16 ที่ 23 เม.ย. 61 , 11:38:30
ขอบคุณมากค่ะ สำหรับวิธีที่แนะนำมา ลองทำอยู่นานมาก 555+

แต่ก็สามารถงมๆ ไปได้แล้วค่ะ

ปัญหาใหม่คือ พอสั่ง print เส้นที่ออกมา บางมาก ค่ะ อยากให้มีความหนาประมาณ 1พ. ต้องกำหนดได้ที่ไหนค่ะ

ขอบคุณอีกครั้งค่ะ

จากคำสั่งเดิมแบบนี้
โค๊ด: [Select]
Private Sub Report_Page()
Me.ScaleMode = 7         'กำหนดให้หน่วยเป็น cm.
Me.Line (0.1, 7.4)-(0.1, 19.6)     'ลากเส้นจากตำแหน่งพิกัด 0.1 cm, 7.4 cm ไปที่พิกัด 0.1 cm, 19.6 cm
Me.Line (1.2, 7.4)-(1.2, 19.6)
Me.Line (3.1, 7.4)-(3.1, 19.6)
Me.Line (10.5, 7.4)-(10.5, 19.6)
Me.Line (12.2, 7.4)-(12.2, 19.6)
Me.Line (14.2, 7.4)-(14.2, 19.6)
Me.Line (16.2, 7.4)-(16.2, 19.6)
Me.Line (18.67, 7.4)-(18.67, 19.6)
Me.Line (0.1, 7.4)-(18.67, 7.4)
Me.Line (0.1, 8.6)-(18.67, 8.6)
Me.Line (0.1, 19.6)-(18.67, 19.6)

End Subใส่เพิ่มเป็นแบบนี้
โค๊ด: [Select]
Private Sub Report_Page()
Me.ScaleMode = 7         'กำหนดให้หน่วยเป็น cm.
Me.DrawStyle = vbSolid
Me.DrawWidth = 5
Me.Line (0.1, 7.4)-(0.1, 19.6)     'ลากเส้นจากตำแหน่งพิกัด 0.1 cm, 7.4 cm ไปที่พิกัด 0.1 cm, 19.6 cm
Me.Line (1.2, 7.4)-(1.2, 19.6)
Me.Line (3.1, 7.4)-(3.1, 19.6)
Me.Line (10.5, 7.4)-(10.5, 19.6)
Me.Line (12.2, 7.4)-(12.2, 19.6)
Me.Line (14.2, 7.4)-(14.2, 19.6)
Me.Line (16.2, 7.4)-(16.2, 19.6)
Me.Line (18.67, 7.4)-(18.67, 19.6)
Me.Line (0.1, 7.4)-(18.67, 7.4)
Me.Line (0.1, 8.6)-(18.67, 8.6)
Me.Line (0.1, 19.6)-(18.67, 19.6)
Me.DrawWidth = 1
End Sub
น่าจะประมาณนี้คับ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

หน้า: 1 ... 4 5 6 [7]