【小區(qū)物業(yè)收費(fèi)管理系統(tǒng)】（VBA版）-Access數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)制作實(shí)例 代碼分享
系統(tǒng)登錄
Private Sub Command登錄_Click()
??? If IsNull(Me.用戶(hù)名) = True Or Me.用戶(hù)名.Value = "" Then
??????? MsgBox "請(qǐng)輸入用戶(hù)名！"
??????? Exit Sub
??? End If
??? If IsNull(Me.密碼) = True Or Me.密碼.Value = "" Then
??????? MsgBox "請(qǐng)輸入密碼！"
??????? Exit Sub
??? End If
??? If Me.用戶(hù)名 = "admin" And Me.密碼 = "123" Then
??? MsgBox "登錄成功"
??? DoCmd.Close acForm, Me.Name
??? DoCmd.OpenForm "系統(tǒng)導(dǎo)航", acNormal
??? Else
??? MsgBox "用戶(hù)名或密碼錯(cuò)誤"
??? Exit Sub
??? End If
End Sub
?
Private Sub Command退出_Click()
Application.Quit acQuitSaveAll
End Sub
系統(tǒng)導(dǎo)航
Private Sub Command電費(fèi)管理_Click()
DoCmd.OpenForm "電費(fèi)查詢(xún)添加", acNormal
End Sub
?
Private Sub Command房屋管理_Click()
DoCmd.OpenForm "房屋查詢(xún)添加", acNormal
End Sub
?
Private Sub Command費(fèi)用價(jià)格管理_Click()
DoCmd.OpenForm "費(fèi)用價(jià)格管理", acNormal
End Sub
?
Private Sub Command暖氣費(fèi)管理_Click()
DoCmd.OpenForm "暖氣費(fèi)查詢(xún)添加", acNormal
End Sub
?
Private Sub Command燃?xì)赓M(fèi)管理_Click()
DoCmd.OpenForm "燃?xì)赓M(fèi)查詢(xún)添加", acNormal
End Sub
?
Private Sub Command水費(fèi)管理_Click()
DoCmd.OpenForm "水費(fèi)查詢(xún)添加", acNormal
End Sub
?
Private Sub Command停車(chē)費(fèi)管理_Click()
DoCmd.OpenForm "停車(chē)費(fèi)查詢(xún)添加", acNormal
End Sub
?
Private Sub Command退出系統(tǒng)_Click()
If MsgBox("是否退出該系統(tǒng)？", vbYesNo) = vbYes Then
Application.Quit acQuitSaveAll
End If
End Sub
?
Private Sub Command物管費(fèi)管理_Click()
DoCmd.OpenForm "物管費(fèi)查詢(xún)添加", acNormal
End Sub
電費(fèi)查詢(xún)數(shù)據(jù)表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
?
Private Sub 電費(fèi)ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "電費(fèi)更新刪除", acNormal, , "電費(fèi)ID=" & Me.電費(fèi)ID
End Sub
電費(fèi)查詢(xún)添加
Private Sub Command查詢(xún)_Click()
If Me.查詢(xún)類(lèi)型 <> "" And Me.查詢(xún)內(nèi)容 <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = Me.查詢(xún)類(lèi)型 & " like '*" & Me.查詢(xún)內(nèi)容 & "*'"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "電費(fèi)報(bào)表", acViewReport
End Sub
?
Private Sub Command清空_Click()
房屋編號(hào).Value = ""
年份.Value = ""
月份.Value = ""
用電量.Value = ""
電費(fèi)單價(jià).Value = ""
已收金額.Value = ""
支付人.Value = ""
收費(fèi)時(shí)間.Value = ""
備注.Value = ""
電費(fèi).Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command添加_Click()
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 用電量.Value <> "" And 電費(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
??? DoCmd.SetWarnings (False)
??? DoCmd.OpenQuery "電費(fèi)添加查詢(xún)", acViewNormal
??? MsgBox "添加完成"
??? Me.數(shù)據(jù)表子窗體.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，電費(fèi)單價(jià)，用電量，已收金額不能為空"
??? Exit Sub
End If
End Sub
?
Private Sub 電費(fèi)單價(jià)_AfterUpdate()
If Me.電費(fèi)單價(jià) <> "" And Me.用電量 <> "" Then
Me.電費(fèi).Value = CCur(Me.電費(fèi)單價(jià) * Me.用電量)
Else
Me.電費(fèi).Value = ""
End If
End Sub
?
Private Sub 電費(fèi)單價(jià)_Change()
If Me.電費(fèi)單價(jià) <> "" And Me.用電量 <> "" Then
Me.電費(fèi).Value = CCur(Me.電費(fèi)單價(jià) * Me.用電量)
Else
Me.電費(fèi).Value = ""
End If
End Sub
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
?
Private Sub 用電量_AfterUpdate()
If Me.電費(fèi)單價(jià) <> "" And Me.用電量 <> "" Then
Me.電費(fèi).Value = CCur(Me.電費(fèi)單價(jià) * Me.用電量)
Else
Me.電費(fèi).Value = ""
End If
End Sub
?
Private Sub 用電量_Change()
If Me.電費(fèi)單價(jià) <> "" And Me.用電量 <> "" Then
Me.電費(fèi).Value = CCur(Me.電費(fèi)單價(jià) * Me.用電量)
Else
Me.電費(fèi).Value = ""
End If
End Sub
電費(fèi)更新刪除
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "電費(fèi)報(bào)表", acViewReport, , "電費(fèi)ID=" & Me.電費(fèi)ID
End Sub
?
Private Sub Command更新_Click()
?
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 用電量.Value <> "" And 電費(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
??? Forms("電費(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，電費(fèi)單價(jià)，用電量，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Forms("電費(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 用電量.Value <> "" And 電費(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "房屋編號(hào)，年份，月份，電費(fèi)單價(jià)，用電量，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
?
Private Sub Form_Load()
If Me.電費(fèi)單價(jià) <> "" And Me.用電量 <> "" Then
Me.電費(fèi).Value = CCur(Me.電費(fèi)單價(jià) * Me.用電量)
Else
Me.電費(fèi).Value = ""
End If
End Sub
?
Private Sub 電費(fèi)單價(jià)_AfterUpdate()
If Me.電費(fèi)單價(jià) <> "" And Me.用電量 <> "" Then
Me.電費(fèi).Value = CCur(Me.電費(fèi)單價(jià) * Me.用電量)
Else
Me.電費(fèi).Value = ""
End If
End Sub
?
Private Sub 電費(fèi)單價(jià)_Change()
If Me.電費(fèi)單價(jià) <> "" And Me.用電量 <> "" Then
Me.電費(fèi).Value = CCur(Me.電費(fèi)單價(jià) * Me.用電量)
Else
Me.電費(fèi).Value = ""
End If
End Sub
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
?
Private Sub 用電量_AfterUpdate()
If Me.電費(fèi)單價(jià) <> "" And Me.用電量 <> "" Then
Me.電費(fèi).Value = CCur(Me.電費(fèi)單價(jià) * Me.用電量)
Else
Me.電費(fèi).Value = ""
End If
End Sub
?
Private Sub 用電量_Change()
If Me.電費(fèi)單價(jià) <> "" And Me.用電量 <> "" Then
Me.電費(fèi).Value = CCur(Me.電費(fèi)單價(jià) * Me.用電量)
Else
Me.電費(fèi).Value = ""
End If
End Sub
房屋查詢(xún)添加
Private Sub Command查詢(xún)_Click()
If Me.查詢(xún)類(lèi)型 <> "" And Me.查詢(xún)內(nèi)容 <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = Me.查詢(xún)類(lèi)型 & " like '*" & Me.查詢(xún)內(nèi)容 & "*'"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command清空_Click()
房屋編號(hào).Value = ""
所在位置.Value = ""
面積.Value = ""
房型.Value = ""
類(lèi)型.Value = ""
業(yè)主姓名.Value = ""
業(yè)主聯(lián)系方式.Value = ""
居住人姓名.Value = ""
居住人聯(lián)系方式.Value = ""
常住人信息.Value = ""
備注信息.Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command添加_Click()
If Me.房屋編號(hào) = "" Then
MsgBox "房屋編號(hào)不能為空"
Exit Sub
End If
If Nz(DCount("房屋編號(hào)", "房屋信息表", "房屋編號(hào)='" & Me.房屋編號(hào) & "'"), 0) > 0 Then
MsgBox "房屋編號(hào)已存在，不能重復(fù)"
Exit Sub
End If
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "房屋信息添加查詢(xún)", acViewNormal
MsgBox "添加完成"
Me.數(shù)據(jù)表子窗體.Requery
End Sub
房屋更新刪除
Private Sub Command更新_Click()
If 房屋編號(hào).Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
??? Forms("房屋查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
??? MsgBox "房屋編號(hào)不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Forms("房屋查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 房屋編號(hào).Value <> "" Then
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "房屋編號(hào)不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
房屋信息數(shù)據(jù)表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
?
Private Sub 房屋編號(hào)_DblClick(Cancel As Integer)
DoCmd.OpenForm "房屋更新刪除", acNormal, , "房屋編號(hào)='" & Me.房屋編號(hào) & "'"
End Sub
費(fèi)用價(jià)格管理
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "費(fèi)用價(jià)格標(biāo)簽報(bào)表", acViewReport
End Sub
費(fèi)用價(jià)格數(shù)據(jù)表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
暖氣費(fèi)查詢(xún)數(shù)據(jù)表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
?
Private Sub 暖氣費(fèi)ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "暖氣費(fèi)更新刪除", acNormal, , "暖氣費(fèi)ID=" & Me.暖氣費(fèi)ID
End Sub
暖氣費(fèi)查詢(xún)添加
Private Sub Command查詢(xún)_Click()
If Me.查詢(xún)類(lèi)型 <> "" And Me.查詢(xún)內(nèi)容 <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = Me.查詢(xún)類(lèi)型 & " like '*" & Me.查詢(xún)內(nèi)容 & "*'"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "暖氣費(fèi)報(bào)表", acViewReport
End Sub
?
Private Sub Command清空_Click()
房屋編號(hào).Value = ""
年份.Value = ""
月份.Value = ""
暖氣量.Value = ""
暖氣費(fèi)單價(jià).Value = ""
已收金額.Value = ""
支付人.Value = ""
收費(fèi)時(shí)間.Value = ""
備注.Value = ""
暖氣費(fèi).Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command添加_Click()
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 暖氣量.Value <> "" And 暖氣費(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
??? DoCmd.SetWarnings (False)
??? DoCmd.OpenQuery "暖氣費(fèi)添加查詢(xún)", acViewNormal
??? MsgBox "添加完成"
??? Me.數(shù)據(jù)表子窗體.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，暖氣費(fèi)單價(jià)，暖氣量，已收金額不能為空"
??? Exit Sub
End If
End Sub
?
Private Sub 暖氣費(fèi)單價(jià)_AfterUpdate()
If Me.暖氣費(fèi)單價(jià) <> "" And Me.暖氣量 <> "" Then
Me.暖氣費(fèi).Value = CCur(Me.暖氣費(fèi)單價(jià) * Me.暖氣量)
Else
Me.暖氣費(fèi).Value = ""
End If
End Sub
?
Private Sub 暖氣費(fèi)單價(jià)_Change()
If Me.暖氣費(fèi)單價(jià) <> "" And Me.暖氣量 <> "" Then
Me.暖氣費(fèi).Value = CCur(Me.暖氣費(fèi)單價(jià) * Me.暖氣量)
Else
Me.暖氣費(fèi).Value = ""
End If
End Sub
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
?
Private Sub 暖氣量_AfterUpdate()
If Me.暖氣費(fèi)單價(jià) <> "" And Me.暖氣量 <> "" Then
Me.暖氣費(fèi).Value = CCur(Me.暖氣費(fèi)單價(jià) * Me.暖氣量)
Else
Me.暖氣費(fèi).Value = ""
End If
End Sub
?
Private Sub 暖氣量_Change()
If Me.暖氣費(fèi)單價(jià) <> "" And Me.暖氣量 <> "" Then
Me.暖氣費(fèi).Value = CCur(Me.暖氣費(fèi)單價(jià) * Me.暖氣量)
Else
Me.暖氣費(fèi).Value = ""
End If
End Sub
暖氣費(fèi)更新刪除
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "暖氣費(fèi)報(bào)表", acViewReport, , "暖氣費(fèi)ID=" & Me.暖氣費(fèi)ID
End Sub
?
Private Sub Command更新_Click()
?
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 暖氣量.Value <> "" And 暖氣費(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
??? Forms("暖氣費(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，暖氣費(fèi)單價(jià)，暖氣量，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Forms("暖氣費(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 暖氣量.Value <> "" And 暖氣費(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "房屋編號(hào)，年份，月份，暖氣費(fèi)單價(jià)，暖氣量，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
?
Private Sub Form_Load()
If Me.暖氣費(fèi)單價(jià) <> "" And Me.暖氣量 <> "" Then
Me.暖氣費(fèi).Value = CCur(Me.暖氣費(fèi)單價(jià) * Me.暖氣量)
Else
Me.暖氣費(fèi).Value = ""
End If
End Sub
?
Private Sub 暖氣費(fèi)單價(jià)_AfterUpdate()
If Me.暖氣費(fèi)單價(jià) <> "" And Me.暖氣量 <> "" Then
Me.暖氣費(fèi).Value = CCur(Me.暖氣費(fèi)單價(jià) * Me.暖氣量)
Else
Me.暖氣費(fèi).Value = ""
End If
End Sub
?
Private Sub 暖氣費(fèi)單價(jià)_Change()
If Me.暖氣費(fèi)單價(jià) <> "" And Me.暖氣量 <> "" Then
Me.暖氣費(fèi).Value = CCur(Me.暖氣費(fèi)單價(jià) * Me.暖氣量)
Else
Me.暖氣費(fèi).Value = ""
End If
End Sub
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
?
Private Sub 暖氣量_AfterUpdate()
If Me.暖氣費(fèi)單價(jià) <> "" And Me.暖氣量 <> "" Then
Me.暖氣費(fèi).Value = CCur(Me.暖氣費(fèi)單價(jià) * Me.暖氣量)
Else
Me.暖氣費(fèi).Value = ""
End If
End Sub
?
Private Sub 暖氣量_Change()
If Me.暖氣費(fèi)單價(jià) <> "" And Me.暖氣量 <> "" Then
Me.暖氣費(fèi).Value = CCur(Me.暖氣費(fèi)單價(jià) * Me.暖氣量)
Else
Me.暖氣費(fèi).Value = ""
End If
End Sub
燃?xì)赓M(fèi)查詢(xún)數(shù)據(jù)表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
燃?xì)赓M(fèi)查詢(xún)添加
Private Sub Command查詢(xún)_Click()
If Me.查詢(xún)類(lèi)型 <> "" And Me.查詢(xún)內(nèi)容 <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = Me.查詢(xún)類(lèi)型 & " like '*" & Me.查詢(xún)內(nèi)容 & "*'"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "燃?xì)赓M(fèi)報(bào)表", acViewReport
End Sub
?
Private Sub Command清空_Click()
房屋編號(hào).Value = ""
年份.Value = ""
月份.Value = ""
燃?xì)饬?Value = ""
燃?xì)赓M(fèi)單價(jià).Value = ""
已收金額.Value = ""
支付人.Value = ""
收費(fèi)時(shí)間.Value = ""
備注.Value = ""
燃?xì)赓M(fèi).Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command添加_Click()
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 燃?xì)饬?Value <> "" And 燃?xì)赓M(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
??? DoCmd.SetWarnings (False)
??? DoCmd.OpenQuery "燃?xì)赓M(fèi)添加查詢(xún)", acViewNormal
??? MsgBox "添加完成"
??? Me.數(shù)據(jù)表子窗體.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，燃?xì)赓M(fèi)單價(jià)，燃?xì)饬浚咽战痤~不能為空"
??? Exit Sub
End If
End Sub
?
Private Sub 燃?xì)赓M(fèi)單價(jià)_AfterUpdate()
If Me.燃?xì)赓M(fèi)單價(jià) <> "" And Me.燃?xì)饬?<> "" Then
Me.燃?xì)赓M(fèi).Value = CCur(Me.燃?xì)赓M(fèi)單價(jià) * Me.燃?xì)饬?
Else
Me.燃?xì)赓M(fèi).Value = ""
End If
End Sub
?
Private Sub 燃?xì)赓M(fèi)單價(jià)_Change()
If Me.燃?xì)赓M(fèi)單價(jià) <> "" And Me.燃?xì)饬?<> "" Then
Me.燃?xì)赓M(fèi).Value = CCur(Me.燃?xì)赓M(fèi)單價(jià) * Me.燃?xì)饬?
Else
Me.燃?xì)赓M(fèi).Value = ""
End If
End Sub
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
?
Private Sub 燃?xì)饬縚AfterUpdate()
If Me.燃?xì)赓M(fèi)單價(jià) <> "" And Me.燃?xì)饬?<> "" Then
Me.燃?xì)赓M(fèi).Value = CCur(Me.燃?xì)赓M(fèi)單價(jià) * Me.燃?xì)饬?
Else
Me.燃?xì)赓M(fèi).Value = ""
End If
End Sub
?
Private Sub 燃?xì)饬縚Change()
If Me.燃?xì)赓M(fèi)單價(jià) <> "" And Me.燃?xì)饬?<> "" Then
Me.燃?xì)赓M(fèi).Value = CCur(Me.燃?xì)赓M(fèi)單價(jià) * Me.燃?xì)饬?
Else
Me.燃?xì)赓M(fèi).Value = ""
End If
End Sub
燃?xì)赓M(fèi)更新刪除
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "燃?xì)赓M(fèi)報(bào)表", acViewReport, , "燃?xì)赓M(fèi)ID=" & Me.燃?xì)赓M(fèi)ID
End Sub
?
Private Sub Command更新_Click()
?
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 燃?xì)饬?Value <> "" And 燃?xì)赓M(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
??? Forms("燃?xì)赓M(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，燃?xì)赓M(fèi)單價(jià)，燃?xì)饬浚咽战痤~不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Forms("燃?xì)赓M(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 燃?xì)饬?Value <> "" And 燃?xì)赓M(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "房屋編號(hào)，年份，月份，燃?xì)赓M(fèi)單價(jià)，燃?xì)饬浚咽战痤~不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
?
Private Sub Form_Load()
If Me.燃?xì)赓M(fèi)單價(jià) <> "" And Me.燃?xì)饬?<> "" Then
Me.燃?xì)赓M(fèi).Value = CCur(Me.燃?xì)赓M(fèi)單價(jià) * Me.燃?xì)饬?
Else
Me.燃?xì)赓M(fèi).Value = ""
End If
End Sub
?
Private Sub 燃?xì)赓M(fèi)單價(jià)_AfterUpdate()
If Me.燃?xì)赓M(fèi)單價(jià) <> "" And Me.燃?xì)饬?<> "" Then
Me.燃?xì)赓M(fèi).Value = CCur(Me.燃?xì)赓M(fèi)單價(jià) * Me.燃?xì)饬?
Else
Me.燃?xì)赓M(fèi).Value = ""
End If
End Sub
?
Private Sub 燃?xì)赓M(fèi)單價(jià)_Change()
If Me.燃?xì)赓M(fèi)單價(jià) <> "" And Me.燃?xì)饬?<> "" Then
Me.燃?xì)赓M(fèi).Value = CCur(Me.燃?xì)赓M(fèi)單價(jià) * Me.燃?xì)饬?
Else
Me.燃?xì)赓M(fèi).Value = ""
End If
End Sub
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
?
Private Sub 燃?xì)饬縚AfterUpdate()
If Me.燃?xì)赓M(fèi)單價(jià) <> "" And Me.燃?xì)饬?<> "" Then
Me.燃?xì)赓M(fèi).Value = CCur(Me.燃?xì)赓M(fèi)單價(jià) * Me.燃?xì)饬?
Else
Me.燃?xì)赓M(fèi).Value = ""
End If
End Sub
?
Private Sub 燃?xì)饬縚Change()
If Me.燃?xì)赓M(fèi)單價(jià) <> "" And Me.燃?xì)饬?<> "" Then
Me.燃?xì)赓M(fèi).Value = CCur(Me.燃?xì)赓M(fèi)單價(jià) * Me.燃?xì)饬?
Else
Me.燃?xì)赓M(fèi).Value = ""
End If
End Sub
水費(fèi)查詢(xún)數(shù)據(jù)表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
水費(fèi)查詢(xún)添加
Private Sub Command查詢(xún)_Click()
If Me.查詢(xún)類(lèi)型 <> "" And Me.查詢(xún)內(nèi)容 <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = Me.查詢(xún)類(lèi)型 & " like '*" & Me.查詢(xún)內(nèi)容 & "*'"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "水費(fèi)報(bào)表", acViewReport
End Sub
?
Private Sub Command清空_Click()
房屋編號(hào).Value = ""
年份.Value = ""
月份.Value = ""
用水量.Value = ""
水費(fèi)單價(jià).Value = ""
已收金額.Value = ""
支付人.Value = ""
收費(fèi)時(shí)間.Value = ""
備注.Value = ""
水費(fèi).Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command添加_Click()
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 用水量.Value <> "" And 水費(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
??? DoCmd.SetWarnings (False)
??? DoCmd.OpenQuery "水費(fèi)添加查詢(xún)", acViewNormal
??? MsgBox "添加完成"
??? Me.數(shù)據(jù)表子窗體.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，水費(fèi)單價(jià)，用水量，已收金額不能為空"
??? Exit Sub
End If
End Sub
?
Private Sub 水費(fèi)單價(jià)_AfterUpdate()
If Me.水費(fèi)單價(jià) <> "" And Me.用水量 <> "" Then
Me.水費(fèi).Value = CCur(Me.水費(fèi)單價(jià) * Me.用水量)
Else
Me.水費(fèi).Value = ""
End If
End Sub
?
Private Sub 水費(fèi)單價(jià)_Change()
If Me.水費(fèi)單價(jià) <> "" And Me.用水量 <> "" Then
Me.水費(fèi).Value = CCur(Me.水費(fèi)單價(jià) * Me.用水量)
Else
Me.水費(fèi).Value = ""
End If
End Sub
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
?
Private Sub 用水量_AfterUpdate()
If Me.水費(fèi)單價(jià) <> "" And Me.用水量 <> "" Then
Me.水費(fèi).Value = CCur(Me.水費(fèi)單價(jià) * Me.用水量)
Else
Me.水費(fèi).Value = ""
End If
End Sub
?
Private Sub 用水量_Change()
If Me.水費(fèi)單價(jià) <> "" And Me.用水量 <> "" Then
Me.水費(fèi).Value = CCur(Me.水費(fèi)單價(jià) * Me.用水量)
Else
Me.水費(fèi).Value = ""
End If
End Sub
水費(fèi)更新刪除
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "水費(fèi)報(bào)表", acViewReport, , "水費(fèi)ID=" & Me.水費(fèi)ID
End Sub
?
Private Sub Command更新_Click()
?
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 用水量.Value <> "" And 水費(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
??? Forms("水費(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，水費(fèi)單價(jià)，用水量，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Forms("水費(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 用水量.Value <> "" And 水費(fèi)單價(jià).Value <> "" And 已收金額.Value <> "" Then
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "房屋編號(hào)，年份，月份，水費(fèi)單價(jià)，用水量，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
?
Private Sub Form_Load()
If Me.水費(fèi)單價(jià) <> "" And Me.用水量 <> "" Then
Me.水費(fèi).Value = CCur(Me.水費(fèi)單價(jià) * Me.用水量)
Else
Me.水費(fèi).Value = ""
End If
End Sub
?
Private Sub 水費(fèi)單價(jià)_AfterUpdate()
If Me.水費(fèi)單價(jià) <> "" And Me.用水量 <> "" Then
Me.水費(fèi).Value = CCur(Me.水費(fèi)單價(jià) * Me.用水量)
Else
Me.水費(fèi).Value = ""
End If
End Sub
?
Private Sub 水費(fèi)單價(jià)_Change()
If Me.水費(fèi)單價(jià) <> "" And Me.用水量 <> "" Then
Me.水費(fèi).Value = CCur(Me.水費(fèi)單價(jià) * Me.用水量)
Else
Me.水費(fèi).Value = ""
End If
End Sub
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
?
Private Sub 用水量_AfterUpdate()
If Me.水費(fèi)單價(jià) <> "" And Me.用水量 <> "" Then
Me.水費(fèi).Value = CCur(Me.水費(fèi)單價(jià) * Me.用水量)
Else
Me.水費(fèi).Value = ""
End If
End Sub
?
Private Sub 用水量_Change()
If Me.水費(fèi)單價(jià) <> "" And Me.用水量 <> "" Then
Me.水費(fèi).Value = CCur(Me.水費(fèi)單價(jià) * Me.用水量)
Else
Me.水費(fèi).Value = ""
End If
End Sub
停車(chē)費(fèi)查詢(xún)數(shù)據(jù)表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
停車(chē)費(fèi)查詢(xún)添加
Private Sub Command查詢(xún)_Click()
If Me.查詢(xún)類(lèi)型 <> "" And Me.查詢(xún)內(nèi)容 <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = Me.查詢(xún)類(lèi)型 & " like '*" & Me.查詢(xún)內(nèi)容 & "*'"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "停車(chē)費(fèi)報(bào)表", acViewReport
End Sub
?
Private Sub Command清空_Click()
房屋編號(hào).Value = ""
年份.Value = ""
月份.Value = ""
車(chē)位號(hào).Value = ""
停車(chē)費(fèi).Value = ""
已收金額.Value = ""
支付人.Value = ""
收費(fèi)時(shí)間.Value = ""
備注.Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command添加_Click()
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 停車(chē)費(fèi).Value <> "" And 車(chē)位號(hào).Value <> "" And 已收金額.Value <> "" Then
??? DoCmd.SetWarnings (False)
??? DoCmd.OpenQuery "停車(chē)費(fèi)添加查詢(xún)", acViewNormal
??? MsgBox "添加完成"
??? Me.數(shù)據(jù)表子窗體.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，車(chē)位號(hào)，停車(chē)費(fèi)，已收金額不能為空"
??? Exit Sub
End If
End Sub
?
?
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
停車(chē)費(fèi)更新刪除
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "停車(chē)費(fèi)報(bào)表", acViewReport, , "停車(chē)費(fèi)ID=" & Me.停車(chē)費(fèi)ID
End Sub
?
Private Sub Command更新_Click()
?
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 車(chē)位號(hào).Value <> "" And 停車(chē)費(fèi).Value <> "" And 已收金額.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
??? Forms("停車(chē)費(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，停車(chē)費(fèi)，車(chē)位號(hào)，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Forms("停車(chē)費(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 車(chē)位號(hào).Value <> "" And 停車(chē)費(fèi).Value <> "" And 已收金額.Value <> "" Then
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "房屋編號(hào)，年份，月份，停車(chē)費(fèi)，車(chē)位號(hào)，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
?
?
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
物管費(fèi)查詢(xún)數(shù)據(jù)表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
物管費(fèi)查詢(xún)添加
Private Sub Command查詢(xún)_Click()
If Me.查詢(xún)類(lèi)型 <> "" And Me.查詢(xún)內(nèi)容 <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = Me.查詢(xún)類(lèi)型 & " like '*" & Me.查詢(xún)內(nèi)容 & "*'"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "物管費(fèi)報(bào)表", acViewReport
End Sub
?
Private Sub Command清空_Click()
房屋編號(hào).Value = ""
年份.Value = ""
月份.Value = ""
物管費(fèi).Value = ""
已收金額.Value = ""
支付人.Value = ""
收費(fèi)時(shí)間.Value = ""
備注.Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command添加_Click()
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 物管費(fèi).Value <> "" And 已收金額.Value <> "" Then
??? DoCmd.SetWarnings (False)
??? DoCmd.OpenQuery "物管費(fèi)添加查詢(xún)", acViewNormal
??? MsgBox "添加完成"
??? Me.數(shù)據(jù)表子窗體.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，物管費(fèi)，已收金額不能為空"
??? Exit Sub
End If
End Sub
?
?
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
物管費(fèi)更新刪除
Private Sub Command打印報(bào)表_Click()
DoCmd.OpenReport "物管費(fèi)報(bào)表", acViewReport, , "物管費(fèi)ID=" & Me.物管費(fèi)ID
End Sub
?
Private Sub Command更新_Click()
?
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 物管費(fèi).Value <> "" And 已收金額.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
??? Forms("物管費(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
??? MsgBox "房屋編號(hào)，年份，月份，物管費(fèi)，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Forms("物管費(fèi)查詢(xún)添加").數(shù)據(jù)表子窗體.Form.Requery
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 房屋編號(hào).Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 物管費(fèi).Value <> "" And 已收金額.Value <> "" Then
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對(duì)記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "房屋編號(hào)，年份，月份，物管費(fèi)，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據(jù)更新前提醒_Exit:
??? Exit Sub
?
數(shù)據(jù)更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據(jù)更新前提醒_Exit
End Sub
?
?
?
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
?
Private Sub 收費(fèi)時(shí)間_DblClick(Cancel As Integer)
Me.收費(fèi)時(shí)間.Value = Date
End Sub
