【每日任務(wù)計劃管理系統(tǒng)】Access數(shù)據(jù)庫管理系統(tǒng) VBA代碼分享
窗體
系統(tǒng)主頁
文本框，組合框，按鈕，子窗體
Option Compare Database
?
Private Sub Command標(biāo)簽_Click()
If Me.數(shù)據(jù)表子窗體.Form.FilterOn = True Then
Dim reportfilter As String
reportfilter = Me.數(shù)據(jù)表子窗體.Form.Filter
DoCmd.OpenReport "任務(wù)標(biāo)簽", acViewReport, , reportfilter
Else
DoCmd.OpenReport "任務(wù)標(biāo)簽", acViewReport
End If
End Sub
?
Private Sub Command參數(shù)設(shè)置_Click()
DoCmd.OpenForm "參數(shù)設(shè)置", acNormal
End Sub
?
Private Sub Command負(fù)責(zé)人查詢_Click()
If Me.任務(wù)負(fù)責(zé)人 <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = "任務(wù)負(fù)責(zé)人 like '*" & Me.任務(wù)負(fù)責(zé)人 & "*'"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
MsgBox "請輸入任務(wù)負(fù)責(zé)人"
Exit Sub
End If
End Sub
?
Private Sub Command今日_Click()
Me.任務(wù)日期 = Date
Me.數(shù)據(jù)表子窗體.Form.Filter = "任務(wù)日期=#" & Date & "#"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
End Sub
?
Private Sub Command類型查詢_Click()
If Me.任務(wù)類型 <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = "任務(wù)類型 like '*" & Me.任務(wù)類型 & "*'"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
MsgBox "請輸入任務(wù)類型"
Exit Sub
End If
End Sub
?
Private Sub Command名稱查詢_Click()
If Me.任務(wù)名稱 <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = "任務(wù)名稱 like '*" & Me.任務(wù)名稱 & "*'"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
MsgBox "請輸入任務(wù)名稱"
Exit Sub
End If
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據(jù)表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command日期查詢_Click()
If Me.任務(wù)日期 <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = "任務(wù)日期=#" & Me.任務(wù)日期 & "#"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
MsgBox "請輸入任務(wù)日期"
Exit Sub
End If
End Sub
?
Private Sub Command生成報表_Click()
If Me.數(shù)據(jù)表子窗體.Form.FilterOn = True Then
Dim reportfilter As String
reportfilter = Me.數(shù)據(jù)表子窗體.Form.Filter
DoCmd.OpenReport "任務(wù)明細(xì)報表", acViewReport, , reportfilter
Else
DoCmd.OpenReport "任務(wù)明細(xì)報表", acViewReport
End If
End Sub
End Sub
?
Private Sub Command添加任務(wù)_Click()
DoCmd.OpenForm "任務(wù)添加", 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狀態(tài)查詢_Click()
If Me.任務(wù)狀態(tài) <> "" Then
Me.數(shù)據(jù)表子窗體.Form.Filter = "任務(wù)狀態(tài) like '*" & Me.任務(wù)狀態(tài) & "*'"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
Else
MsgBox "請輸入任務(wù)狀態(tài)"
Exit Sub
End If
End Sub
?
Private Sub Form_Load()
Me.任務(wù)日期 = Date
Me.數(shù)據(jù)表子窗體.Form.Filter = "任務(wù)日期=#" & Date & "#"
Me.數(shù)據(jù)表子窗體.Form.FilterOn = True
End Sub
?
參數(shù)設(shè)置
子窗體
常見任務(wù)數(shù)據(jù)表
數(shù)據(jù)表形式窗體
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 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ù)責(zé)人數(shù)據(jù)表
數(shù)據(jù)表形式窗體
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 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ì)數(shù)據(jù)表
數(shù)據(jù)表形式窗體
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 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 明細(xì)ID_DblClick(Cancel As Integer)
If Me.明細(xì)ID > 0 Then
??? If MsgBox("是否刪除該明細(xì)記錄？明細(xì)ID：" & Me.明細(xì)ID, vbYesNo) = vbYes Then
??? DoCmd.SetWarnings (False)
??? Dim del_sql As String
??? del_sql = "Delete From 明細(xì)表 Where 明細(xì)ID = " & 明細(xì)ID
??? DoCmd.RunSQL del_sql
??? Me.Requery
??? End If
End If
End Sub
?
任務(wù)管理
子窗體，文本框，組合框，按鈕，附件
Private Sub Command保存_Click()
If 任務(wù)名稱.Value <> "" And 任務(wù)日期.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
Else
??? MsgBox "任務(wù)名稱，任務(wù)日期不能為空"
??? 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
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 任務(wù)名稱.Value <> "" And 任務(wù)日期.Value <> "" And 任務(wù)ID.Value <> "" Then
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "任務(wù)名稱，任務(wù)日期不能為空"
??? 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_Close()
On Error Resume Next
Forms("系統(tǒng)主頁").數(shù)據(jù)表子窗體.Form.Requery
End Sub
?
任務(wù)類型數(shù)據(jù)表
數(shù)據(jù)表形式窗體
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 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
?
任務(wù)添加
文本框，組合框，按鈕
Private Sub Command清空_Click()
任務(wù)名稱.Value = ""
任務(wù)日期.Value = ""
任務(wù)時間.Value = ""
任務(wù)描述.Value = ""
任務(wù)負(fù)責(zé)人.Value = ""
任務(wù)類型.Value = ""
任務(wù)狀態(tài).Value = ""
備注.Value = ""
End Sub
?
Private Sub Command添加_Click()
If Me.任務(wù)名稱 <> "" And Me.任務(wù)日期 <> "" Then
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "任務(wù)添加查詢"
MsgBox "添加完成"
DoCmd.OpenForm "任務(wù)管理", acNormal, , "任務(wù)ID=" & Nz(DMax("任務(wù)ID", "任務(wù)表"), 0)
Else
MsgBox "任務(wù)名稱，任務(wù)日期不能為空"
Exit Sub
End If
End Sub
?
Private Sub Form_Close()
On Error Resume Next
Forms("系統(tǒng)主頁").數(shù)據(jù)表子窗體.Form.Requery
End Sub
?
Private Sub 任務(wù)日期_DblClick(Cancel As Integer)
Me.任務(wù)日期 = Date
End Sub
?
任務(wù)信息查詢數(shù)據(jù)表
數(shù)據(jù)表形式窗體
Private Sub 任務(wù)ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "任務(wù)管理", acNormal, , "任務(wù)ID=" & Me.任務(wù)ID
End Sub
?
任務(wù)狀態(tài)數(shù)據(jù)表
數(shù)據(jù)表形式窗體
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據(jù)更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 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
?
報表
任務(wù)標(biāo)簽
任務(wù)明細(xì)報表
Private Sub Label24_DblClick(Cancel As Integer)
On Error GoTo 打印對象_Err
?
??? DoCmd.RunCommand acCmdPrint
?
?
打印對象_Exit:
??? Exit Sub
?
打印對象_Err:
??? Resume 打印對象_Exit
End Sub
?
宏
宏對象
自動運行宏（autoexec）
?
