Sumค่า Grand Total ใน Report Footer



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

26 เม.ย. 61 , 11:27:01
อ่าน 758 ครั้ง

Earth

Sumค่า Grand Total ใน Report Footer
« เมื่อ: 26 เม.ย. 61 , 11:27:01 »
จากรูปต้องการหาค่า Grand Total ใน Report Footer

Total  คำนวนจาก =Sum([Input])
Total Charge คำนวนจาก =Nz(([Total]*[U Price_2 m^3]),0)    **U Price_2 m^3ในรูปตัวอย่างของGroupนี้ คือค่า98
ต้องการหา Grand Total ซึ่งค่ามาจาก Total Charge ของแต่ละกรุ๊ป รวมกันค่ะ

จากตัวอย่างที่สามารถทำได้ในแถวGrand Total Charge  คือ Sumของแต่ละInput ค่ะ นอกนั้นลองแล้วError หรือรวมค่าไม่ได้ค่ะ


 

26 เม.ย. 61 , 15:55:57
ตอบกลับ #1

pizza_p

> Sumค่า Grand Total ใน Report Footer
« ตอบกลับ #1 เมื่อ: 26 เม.ย. 61 , 15:55:57 »
สร้าง TextBox ขึ้นมาชื่อ SumTotal กำหนดให้
 Control source =[Total Charge]
 Running Sum = Over All
 Visible = No
แล้วเอาไปวางไว้ใน section เดียวกัน หรือใกล้ๆกันกับ Total Charge

แล้วที่ Grand Total กำหนดให้ Control source =[SumTotal]

 
โพสต์นี้ได้รับคำขอบคุณจาก: Earth

27 เม.ย. 61 , 11:22:14
ตอบกลับ #2

Earth

> Sumค่า Grand Total ใน Report Footer
« ตอบกลับ #2 เมื่อ: 27 เม.ย. 61 , 11:22:14 »
ได้ Grand Total แล้วค่ะ
แต่อยากจะนำ GrandTotal_txt ไปแสดงหน้า Formอื่น สามารถทำได้ไหมคะ

 

27 เม.ย. 61 , 11:37:57
ตอบกลับ #3

pizza_p

> Sumค่า Grand Total ใน Report Footer
« ตอบกลับ #3 เมื่อ: 27 เม.ย. 61 , 11:37:57 »
ก็สามารถ reference ไปได้ เช่น =Reports![ชื่อ report]![Grand Total] แต่ report ต้องเปิดอยู่นะครับ

 
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

03 พ.ค. 61 , 09:27:50
ตอบกลับ #4

Earth

> Sumค่า Grand Total ใน Report Footer
« ตอบกลับ #4 เมื่อ: 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

04 พ.ค. 61 , 11:25:40
ตอบกลับ #5

sjs

> Sumค่า Grand Total ใน Report Footer
« ตอบกลับ #5 เมื่อ: 04 พ.ค. 61 , 11:25:40 »
จำได้ว่าเคยทำแล้วค่าไม่ตรงเวลาเลื่อนหน้ารายงานไปหน้าถัดไป ผมเขียนรับค่าแล้วเอาไปใส่อีกหน้าครับ


ผมก็อธิบายไม่ถูก เขียนแล้วก็ debug ค่ามาดู ทำไปเรื่อย ลองอ่านดูนะครับ

โค๊ด: [Select]
Option Compare Database

Dim x As Double
Dim X2 As Double
Dim P1(100)
Dim P2(100)

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
  If IsNull(Me.Text4.Value) = True Then
        Me.Text59.ForeColor = RGB(255, 255, 255)
  End If
    Me.Text84.Value = " ลำดับที่ในหนังสือรับรองฯ  "
End Sub

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
Me!PageSum = Me!RunSum - x
x = Me!RunSum
 
Me!PageSum3 = Me!RunSum3 - X2
X2 = Me!RunSum3
            P1(Page) = RunSum
            P2(Page) = RunSum3

End Sub


Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
Dim P As Double
   If Forms!menu!FrameA.Value = 1 Then
        Me.lblFac.Caption = "สาขาเลขที่... " & Forms!menu!Fac.Column(0) & "....." & Forms!menu!Fac.Column(1) & "...."
    End If
    Me.txtP1 = P1(Page - 1)
    Me.txtP2 = P2(Page - 1)
End Sub

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "Nodata "
    Cancel = True
End Sub

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
  ' Me.rptlblRptCode.Caption = Forms!menu!reportcode.Column(1)
    Me.Text65.Value = "ยอดยกมา"
      x = 0
        X2 = 0
End Sub

 

09 พ.ค. 61 , 11:39:43
ตอบกลับ #6

Earth

> Sumค่า Grand Total ใน Report Footer
« ตอบกลับ #6 เมื่อ: 09 พ.ค. 61 , 11:39:43 »
ตอนนี้เป็นๆหายๆค่ะ อยากทราบมีวิธีแก้อื่นไหมคะ

 

09 พ.ค. 61 , 13:41:56
ตอบกลับ #7

Earth

> Sumค่า Grand Total ใน Report Footer
« ตอบกลับ #7 เมื่อ: 09 พ.ค. 61 , 13:41:56 »
คือบางครั้งเปืดหน้ารายงานข้อมูลก็ถูกต้อง


แต่บางครั้ง(ส่วนใหญ่) พอเปิดรายงานค่ากลับเปลี่ยน อยากทราบสาเหตุสามารถแก้ไขข้อผิดพลาดได้ยังไงบ้างคะ

 

09 พ.ค. 61 , 14:31:01
ตอบกลับ #8

Earth

> Sumค่า Grand Total ใน Report Footer
« ตอบกลับ #8 เมื่อ: 09 พ.ค. 61 , 14:31:01 »
ลองนำ Reportมาวางเป็น Subformใน ฟอร์มFG_Part_Footer
แล้วอยากเรียกค่า เป็นSum([total_in]) *ตรงTotal Charge ได้ไหมคะ วิธีนี้
แทนการSum Total Charge ที่ผลลัพธ์Grand Total Charge หน้าReportแทน
ซึ่งลองแล้วแต่เออเร่อตรงเรียกค่าSum [total_in]

=[Forms]![FG_Part_Footer]![UNION_FG_Part]![Sum([total_in])]
« แก้ไขครั้งสุดท้าย: 09 พ.ค. 61 , 14:33:28 โดย Earth »

 

09 พ.ค. 61 , 17:03:26
ตอบกลับ #9

ปิ่นณรงค์

> Sumค่า Grand Total ใน Report Footer
« ตอบกลับ #9 เมื่อ: 09 พ.ค. 61 , 17:03:26 »
ที่ ตัว Report Event  On Load
ใส่คำสั่ง Me.Report.requery
ครับอาการแบบนั้นหายไปแน่นอน
« แก้ไขครั้งสุดท้าย: 09 พ.ค. 61 , 17:06:12 โดย Newbies »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

09 พ.ค. 61 , 19:44:03
ตอบกลับ #10

Earth

> Sumค่า Grand Total ใน Report Footer
« ตอบกลับ #10 เมื่อ: 09 พ.ค. 61 , 19:44:03 »
ตอนนี้ทำได้แล้วค่ะ Errorค่าตัวเลขที่เพี้ยนไปเกิดจากแถว Grand total charge
เลยทำแถวนี้ใหม่โดยสร้างunbound textbox แล้วใส่โค้ดแทนการดึงค่าจากในแถวTotal chargeค่ะ

Grand ใช้การแปลงกลับไปเป็นจำนวนเต็มก่อน
แล้ว เอาไปใส่ใน textbox ของกลุ่ม Grand Total Charge

Private Sub Report_Load()
Dim Ain, Aout, Arecei, Aissue As Integer
Ain = Sumin
Aout = Text103
Arecei = Text105
Aissue = Text107
intxt = Ain
outtxt = Aout
receitxt = Arecei
issuetxt = Aissue

End Sub
ปล. ขอบคุณ คุณNewbiesค้า
« แก้ไขครั้งสุดท้าย: 09 พ.ค. 61 , 19:47:06 โดย Earth »

 
โพสต์นี้ได้รับคำขอบคุณจาก: sjs


บอร์ดเรียนรู้ Access สำหรับคนไทย