กระทู้เก่าบอร์ด อ.Yeadram
6,960 27
URL.หัวข้อ /
URL
หาผลรวม
1. จากรูปอยากได้ยอดรวมราคาสินค้าที่ขาย ไว้ข้างล่าง รายการขาย
*****************************************
2.และต้องการ อยากได้ผลรวมยอดขาย แยกเป็นรายลูกค้า
ว่าลูกค้ามีการเคลื่อนไหวซื้อสิ้นค้า แบบรายวัน เดือน ปี สรุปรายปี
ผลลัพธ์ ในฟอร์มการเคลื่อนไหวลูกค้า มี combobox ไว้เลือกเดือน มีรายละเอียดรายวัน ละสรุปรายเดือน
[Cusid] :
----------สรุปเดือน------------------------
jan-2010......40
-------------------
1-1-2010.........15
2-1-2010..........20
3-1-2010..........5
----------สรุปเดือน--------------------------------------
feb-2010............14
------------------------
1-2-2010...........3
2-2-2010...........5
3-2-2010.............6
----------------------------------
และรายละเอียดสรุปรายปี เอาแค่ยอด sum งวดๆ ไปแสดงอีกแท็ปใหม่ ในฟอร์มเดี่ยวกัน
มี combobox ไว้เลือกปี มีรายละเอียดการเคลือนไหวรวมรายเดือน ละสรุปรายปี
-----------สรุปรายปี-----------------------
2010....................54
[Cusid] :
jan-2010............40
feb-2010............14
ผมต้องเพิ่ม ตาราง หรือ ฟิล อะไรเพิ่มเติมหรือไม่ รบกวนแนะนำด้วยครับ
ปล. ขอโทษด้วยครับที่กระทู้เดิม จั่วหัวผิดครับ
27 Reply in this Topic. Dispaly 2 pages and you are on page number 2
22 @R11365
รายงานผล
ตรงฟังก์ชั่น ผมเขียนไว้ที่โมดูล ถูกต้องไหมครับ
"WHERE Order.CusID='" & Me.[cmbCustomer] & "' " & " AND Format$([Order].[OrderDate],'mmmm yyyy')='" & Me.cmbMonth & "';"
จะมี error ตรง me.[cmbCustomer] กับ me.cmbMonth
ผมลอง ลบ me. ออก แล้วใส่ [] ไว้ ไม่มี error
"WHERE Order.CusID='" & [cmbCustomer] & "' " & " AND Format$([Order].[OrderDate],'mmmm yyyy')='" & [cmbMonth] & "';"
แต่ไม่มีผลแสดง ตรง txtSum
เลย ใส่ [] ไว้แต่ cmbCustomer ไว้อย่างเดี่ยว
"WHERE Order.CusID='" & [cmbCustomer] & "' " & " AND Format$([Order].[OrderDate],'mmmm yyyy')='" & cmbMonth & "';"
ก็ไม่แสดงผลเหมือนกันครับ
ตอนนี้ยังแกะโค้ด ฟังก์ชั่นไม่เป็นครับ
รบกวนช่วยด้วยครับ
ขอบคุณครับ
ตรงฟังก์ชั่น ผมเขียนไว้ที่โมดูล ถูกต้องไหมครับ
"WHERE Order.CusID='" & Me.[cmbCustomer] & "' " & " AND Format$([Order].[OrderDate],'mmmm yyyy')='" & Me.cmbMonth & "';"
จะมี error ตรง me.[cmbCustomer] กับ me.cmbMonth
ผมลอง ลบ me. ออก แล้วใส่ [] ไว้ ไม่มี error
"WHERE Order.CusID='" & [cmbCustomer] & "' " & " AND Format$([Order].[OrderDate],'mmmm yyyy')='" & [cmbMonth] & "';"
แต่ไม่มีผลแสดง ตรง txtSum
เลย ใส่ [] ไว้แต่ cmbCustomer ไว้อย่างเดี่ยว
"WHERE Order.CusID='" & [cmbCustomer] & "' " & " AND Format$([Order].[OrderDate],'mmmm yyyy')='" & cmbMonth & "';"
ก็ไม่แสดงผลเหมือนกันครับ
ตอนนี้ยังแกะโค้ด ฟังก์ชั่นไม่เป็นครับ
รบกวนช่วยด้วยครับ
ขอบคุณครับ
23 @R11372
วาง module Function ไว้ใน main form ครับ
ตรวจสอบชื่อ combobox ชื่อเดียวกันหรือเปล่า
มี error ขึ้นข้อความอะไรครับ
Me.[cmbCustomer] เป็น text หรือ number
ถ้าเป็น number ให้เปลี่ยนเป็น
"WHERE Order.CusID=" & Me.[cmbCustomer] & " " &
เอา single quote ออกไป
ช่วงนี้ ติดต่อยากหน่อย นะครับ แก้ปัญหา note book ไม่ได้
ต้องเอาอะไหล่ ที่ รังสิต ไปไม่่ได้ น้ำท่วม
ตรวจสอบชื่อ combobox ชื่อเดียวกันหรือเปล่า
มี error ขึ้นข้อความอะไรครับ
Me.[cmbCustomer] เป็น text หรือ number
ถ้าเป็น number ให้เปลี่ยนเป็น
"WHERE Order.CusID=" & Me.[cmbCustomer] & " " &
เอา single quote ออกไป
ช่วงนี้ ติดต่อยากหน่อย นะครับ แก้ปัญหา note book ไม่ได้
ต้องเอาอะไหล่ ที่ รังสิต ไปไม่่ได้ น้ำท่วม
24 @R11416
ขอบคุณ คุณ ditasilk มากครับ
ตอนนี้ทำได้แล้วครับ แค่เปลี่ยน เอาฟังก์ชั่นมาไว้ในเมนฟอร์ม ก็โอเคแล้วครับ
และต้องขอโทษด้วยนะครับ ที่เข้ามารายงานผลช้า หนี้น้ำท่วมเหมือนกัน
ขอบคุณครับ
ตอนนี้ทำได้แล้วครับ แค่เปลี่ยน เอาฟังก์ชั่นมาไว้ในเมนฟอร์ม ก็โอเคแล้วครับ
และต้องขอโทษด้วยนะครับ ที่เข้ามารายงานผลช้า หนี้น้ำท่วมเหมือนกัน
ขอบคุณครับ
25 @R11417
ตอนนี้เหลือสรุปยอดปลายปีครับ คือจะเอาข้อมูลสรุปรายละเอียดการเคลือนไหวตลอดปีขึ้นโชว์ในแท็ปถัดไปครับ โดยให้โชว์
-----------สรุปรายปี-----------------------
2010....................54
[Cusid] :
jan-2010............40
feb-2010............14
ประมาณนี้ครับ
รบกวนด้วยนะครับ
ขอบคุณครับ
-----------สรุปรายปี-----------------------
2010....................54
[Cusid] :
jan-2010............40
feb-2010............14
ประมาณนี้ครับ
รบกวนด้วยนะครับ
ขอบคุณครับ
26 @R11418
ผมส่งไฟล์ saknoi541028 ไว้ใน board แล้วครับ ดูว่าใช้ได้รึเปล่า
เดี๋ยวว่างแล้วจะมาตามครับ
เดี๋ยวว่างแล้วจะมาตามครับ
27 @R11419
ขอบคุณครับ เดี่ยวมารายงานผลครับ
Time: 0.3230s
สร้าง textbox ชื่อ txtsum
Private Sub cmbCustomer_AfterUpdate()
txtSum = CalTotal
frmTransactionSub.Requery
End Sub
Private Sub cmbMonth_AfterUpdate()
txtSum = CalTotal
frmTransactionSub.Requery
End Sub
Function CalTotal() As Currency
Dim MySql As String
Dim MyRec As DAO.Recordset
If IsNull(cmbCustomer) Or IsNull(cmbMonth) Then Exit Function
MySql = "SELECT Sum([Quantity]*[Product].[ProPri]) AS TotalPrice " & _
"FROM Product INNER JOIN ([Order] INNER JOIN OrderDetail ON Order.OrderID = OrderDetail.OrderID) ON Product.ProID = OrderDetail.ProID " & _
"WHERE Order.CusID='" & Me.[cmbCustomer] & "' " & " AND Format$([Order].[OrderDate],'mmmm yyyy')='" & Me.cmbMonth & "';"
Set MyRec = CurrentDb.OpenRecordset(MySql)
If MyRec.RecordCount > 0 And Not IsNull(MyRec!TotalPrice) Then
CalTotal = MyRec!TotalPrice
Else
CalTotal = 0
End If
MyRec.Close: Set MyRec = Nothing
End Function