Sumค่า Grand Total ใน Report Footer

[Earth]

จากรูปต้องการหาค่า 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 หรือรวมค่าไม่ได้ค่ะ

[pizza_p]

สร้าง TextBox ขึ้นมาชื่อ SumTotal กำหนดให้
 Control source =[Total Charge]
 Running Sum = Over All
 Visible = No
แล้วเอาไปวางไว้ใน section เดียวกัน หรือใกล้ๆกันกับ Total Charge

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

[Earth]

ได้ Grand Total แล้วค่ะ
แต่อยากจะนำ GrandTotal_txt ไปแสดงหน้า Formอื่น สามารถทำได้ไหมคะ

[pizza_p]

ก็สามารถ reference ไปได้ เช่น =Reports![ชื่อ report]![Grand Total] แต่ report ต้องเปิดอยู่นะครับ

[Earth]

สอบถามเพิ่มเติมค่ะ




จากรูปได้สร้างบวกค่า 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]

จำได้ว่าเคยทำแล้วค่าไม่ตรงเวลาเลื่อนหน้ารายงานไปหน้าถัดไป ผมเขียนรับค่าแล้วเอาไปใส่อีกหน้าครับ


ผมก็อธิบายไม่ถูก เขียนแล้วก็ 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


[Earth]

ตอนนี้เป็นๆหายๆค่ะ อยากทราบมีวิธีแก้อื่นไหมคะ

[Earth]

คือบางครั้งเปืดหน้ารายงานข้อมูลก็ถูกต้อง


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

[Earth]

ลองนำ 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])]

[ปิ่นณรงค์]

ที่ ตัว Report Event  On Load
ใส่คำสั่ง Me.Report.requery
ครับอาการแบบนั้นหายไปแน่นอน

[Earth]

ตอนนี้ทำได้แล้วค่ะ 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ค้า