子窗體合計的計算
時 間:2018-01-29 16:16:22
作 者:半夜羅 ID:36948 城市:成都
摘 要:子窗體合計顯示
正 文:
我根本不懂英語,所以寫的代碼基本都是用中文,有時也在中文前加一個字母,管他的,只要能得到結果,只要能看懂,又不是必須英文,將就吧。
在修改時的加載事件中同樣 =批量填充金額()
更新后事件已經在相應的文本框中有了,不需要在窗體的更新后事件中再重復。
Public Function dm批量填充金額()
'--------------------------------------------定義記錄集
Dim rst As Object
Dim strSQL As String
'----------------------------------------定義序號與合計金額的變量
Dim i序號 As Currency
Dim Sum金額 As Currency
'----------------------------------------如果臨時表中沒有數據時,退出
If DCount("*", "入庫單銷售單明細臨時表") = 0 Then Exit Function
'----------------------------------------打開記錄集
strSQL = "select * from 入庫單銷售單明細臨時表 "
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
'----------------------------------------'如果當前處理未保存狀態,先進行保存
If Me.Dirty Then Me.Dirty = False
'-----------------------------------------給變量設定初始值
i序號 = 0 And Sum金額 = 0
'-----------------------------------------從第一條記錄開始
rst.MoveFirst
'-----------------------------------------循環進行
Do Until rst.EOF
'-------------------------------------允許修改
rst.Edit
'-------------------------------------修改各字段的值,這里是序號與金額
rst!序號 = Format(i序號 + 1, "00")
rst!金額 = my45(Nz(rst!數量, 0) * Nz(rst!單價, 0), 2) '四舍五入,否則會出錯,這里調用了自定義四舍五入函數
'-------------------------------------修改后,就要更新,否則不會被修改
rst.Update
'-------------------------------------重新設定序號與合計金額的變量
i序號 = rst!序號
Sum金額 = Sum金額 + rst!金額
'-------------------------------------下一條記錄
rst.MoveNext
Loop
'-------------------------------------將合計金額斌給主窗體
Me.Parent!金額 = Sum金額
rst.Close
Set rst = Nothing
Me.Parent!狀態 = "未保存"
End Function
另附UMVSoft老師的四舍五入函數,這里就用到了。
Public Function my45(a As Double, n As Integer) As Double
my45 = Int(a * 10 ^ n + 0.51 ) / 10 ^ n
End Function
Access軟件網官方交流QQ群 (群號:150401543) Access源碼網店
常見問答:
技術分類:
源碼示例
- 【源碼QQ群號19834647...(12.17)
- Access統計某個數字范圍的...(06.05)
- Access統計某個日期范圍的...(06.02)
- Access VBA查詢或SQ...(05.31)
- 【轉載】國外Access批量保...(05.23)
- 【Access重復項示例】動態...(05.11)
- Access仿平臺的多值選擇器...(05.10)
- 【源碼示例】VBA刪除后端數據...(05.09)
- Access仿平臺的多值選擇器...(05.06)
- Access仿平臺的多值選擇器(05.05)

學習心得
最新文章
- 加載DLL錯誤的一個解決方案(06.05)
- Access統計某個數字范圍的記錄...(06.05)
- VBA編程-如果你想有個對象-關于...(06.04)
- Access統計某個日期范圍的記錄...(06.02)
- 《Access快速開發基礎教程》免...(06.01)
- Access VBA查詢或SQL語...(05.31)
- Access快速開發平臺--帶箭頭...(05.30)
- 關于更改Access組合框列標題名...(05.29)
- SQL Server的nchar,...(05.26)
- Access窗體制作的顯示物料圖片...(05.25)