销售管理

Private Sub Form_Load()

Me.销售总额.Value = Nz(DSum("销售金额", "销售数据表"), 0)

Dim data_count As Long

data_count = Nz(DCount("销售金额", "销售数据表"), 0)

If data_count <> 0 Then

Me.平均销售额.Value = CCur(Nz(DSum("销售金额", "销售数据表"), 0) / data_count)

Else

Me.平均销售额.Value = 0

End If

Me.最大销售额.Value = Nz(DMax("销售金额", "销售数据表"), 0)

Me.最小销售额.Value = Nz(DMin("销售金额", "销售数据表"), 0)

End Sub

Private Sub 客户_Change()

Me.客户销售额 = Nz(DLookup("销售金额合计", "客户销售查询", "客户='" & Me.客户 & "'"), 0)

End Sub

销售数据表

Private Sub Form_AfterUpdate()

Forms("销售管理").销售总额.Value = Nz(DSum("销售金额", "销售数据表"), 0)

Dim data_count As Long

data_count = Nz(DCount("销售金额", "销售数据表"), 0)

If data_count <> 0 Then

Forms("销售管理").平均销售额.Value = CCur(Nz(DSum("销售金额", "销售数据表"), 0) / data_count)

Else

Forms("销售管理").平均销售额.Value = 0

End If

Forms("销售管理").最大销售额.Value = Nz(DMax("销售金额", "销售数据表"), 0)

Forms("销售管理").最小销售额.Value = Nz(DMin("销售金额", "销售数据表"), 0)

End Sub