窗体

系统主页

文本框，组合框，按钮，子窗体

Option Compare Database

Private Sub Command标签_Click()

If Me.数据表子窗体.Form.FilterOn = True Then

Dim reportfilter As String

reportfilter = Me.数据表子窗体.Form.Filter

DoCmd.OpenReport "任务标签", acViewReport, , reportfilter

Else

DoCmd.OpenReport "任务标签", acViewReport

End If

End Sub

Private Sub Command参数设置_Click()

DoCmd.OpenForm "参数设置", acNormal

End Sub

Private Sub Command负责人查询_Click()

If Me.任务负责人 <> "" Then

Me.数据表子窗体.Form.Filter = "任务负责人 like '*" & Me.任务负责人 & "*'"

Me.数据表子窗体.Form.FilterOn = True

Else

MsgBox "请输入任务负责人"

Exit Sub

End If

End Sub

Private Sub Command今日_Click()

Me.任务日期 = Date

Me.数据表子窗体.Form.Filter = "任务日期=#" & Date & "#"

Me.数据表子窗体.Form.FilterOn = True

End Sub

Private Sub Command类型查询_Click()

If Me.任务类型 <> "" Then

Me.数据表子窗体.Form.Filter = "任务类型 like '*" & Me.任务类型 & "*'"

Me.数据表子窗体.Form.FilterOn = True

Else

MsgBox "请输入任务类型"

Exit Sub

End If

End Sub

Private Sub Command名称查询_Click()

If Me.任务名称 <> "" Then

Me.数据表子窗体.Form.Filter = "任务名称 like '*" & Me.任务名称 & "*'"

Me.数据表子窗体.Form.FilterOn = True

Else

MsgBox "请输入任务名称"

Exit Sub

End If

End Sub

Private Sub Command全部_Click()

Me.数据表子窗体.Form.FilterOn = False

End Sub

Private Sub Command日期查询_Click()

If Me.任务日期 <> "" Then

Me.数据表子窗体.Form.Filter = "任务日期=#" & Me.任务日期 & "#"

Me.数据表子窗体.Form.FilterOn = True

Else

MsgBox "请输入任务日期"

Exit Sub

End If

End Sub

Private Sub Command生成报表_Click()

If Me.数据表子窗体.Form.FilterOn = True Then

Dim reportfilter As String

reportfilter = Me.数据表子窗体.Form.Filter

DoCmd.OpenReport "任务明细报表", acViewReport, , reportfilter

Else

DoCmd.OpenReport "任务明细报表", acViewReport

End If

End Sub

End Sub

Private Sub Command添加任务_Click()

DoCmd.OpenForm "任务添加", acNormal

End Sub

Private Sub Command退出系统_Click()

If MsgBox("是否退出该系统？", vbYesNo) = vbYes Then

Application.Quit acQuitSaveAll

End If

End Sub

Private Sub Command状态查询_Click()

If Me.任务状态 <> "" Then

Me.数据表子窗体.Form.Filter = "任务状态 like '*" & Me.任务状态 & "*'"

Me.数据表子窗体.Form.FilterOn = True

Else

MsgBox "请输入任务状态"

Exit Sub

End If

End Sub

Private Sub Form_Load()

Me.任务日期 = Date

Me.数据表子窗体.Form.Filter = "任务日期=#" & Date & "#"

Me.数据表子窗体.Form.FilterOn = True

End Sub

参数设置

子窗体

常见任务数据表

数据表形式窗体

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo 数据更新前提醒_Err

If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then

Beep

Else

DoCmd.RunCommand acCmdUndo

End If

数据更新前提醒_Exit:

Exit Sub

数据更新前提醒_Err:

MsgBox Error$

Resume 数据更新前提醒_Exit

End Sub

负责人数据表

数据表形式窗体

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo 数据更新前提醒_Err

If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then

Beep

Else

DoCmd.RunCommand acCmdUndo

End If

数据更新前提醒_Exit:

Exit Sub

数据更新前提醒_Err:

MsgBox Error$

Resume 数据更新前提醒_Exit

End Sub

明细数据表

数据表形式窗体

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo 数据更新前提醒_Err

If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then

Beep

Else

DoCmd.RunCommand acCmdUndo

End If

数据更新前提醒_Exit:

Exit Sub

数据更新前提醒_Err:

MsgBox Error$

Resume 数据更新前提醒_Exit

End Sub

Private Sub 明细ID_DblClick(Cancel As Integer)

If Me.明细ID > 0 Then

If MsgBox("是否删除该明细记录？明细ID：" & Me.明细ID, vbYesNo) = vbYes Then

DoCmd.SetWarnings (False)

Dim del_sql As String

del_sql = "Delete From 明细表 Where 明细ID = " & 明细ID

DoCmd.RunSQL del_sql

Me.Requery

End If

End If

End Sub

任务管理

子窗体，文本框，组合框，按钮，附件

Private Sub Command保存_Click()

If 任务名称.Value <> "" And 任务日期.Value <> "" Then

On Error Resume Next

DoCmd.RunCommand acCmdSaveRecord

Else

MsgBox "任务名称，任务日期不能为空"

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 任务名称.Value <> "" And 任务日期.Value <> "" And 任务ID.Value <> "" Then

On Error GoTo 数据更新前提醒_Err

If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then

Beep

Else

DoCmd.RunCommand acCmdUndo

End If

Else

MsgBox "任务名称，任务日期不能为空"

On Error Resume Next

DoCmd.RunCommand acCmdUndo

Exit Sub

End If

数据更新前提醒_Exit:

Exit Sub

数据更新前提醒_Err:

MsgBox Error$

Resume 数据更新前提醒_Exit

End Sub

Private Sub Form_Close()

On Error Resume Next

Forms("系统主页").数据表子窗体.Form.Requery

End Sub

任务类型数据表

数据表形式窗体

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo 数据更新前提醒_Err

If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then

Beep

Else

DoCmd.RunCommand acCmdUndo

End If

数据更新前提醒_Exit:

Exit Sub

数据更新前提醒_Err:

MsgBox Error$

Resume 数据更新前提醒_Exit

End Sub

任务添加

文本框，组合框，按钮

Private Sub Command清空_Click()

任务名称.Value = ""

任务日期.Value = ""

任务时间.Value = ""

任务描述.Value = ""

任务负责人.Value = ""

任务类型.Value = ""

任务状态.Value = ""

备注.Value = ""

End Sub

Private Sub Command添加_Click()

If Me.任务名称 <> "" And Me.任务日期 <> "" Then

DoCmd.SetWarnings (False)

DoCmd.OpenQuery "任务添加查询"

MsgBox "添加完成"

DoCmd.OpenForm "任务管理", acNormal, , "任务ID=" & Nz(DMax("任务ID", "任务表"), 0)

Else

MsgBox "任务名称，任务日期不能为空"

Exit Sub

End If

End Sub

Private Sub Form_Close()

On Error Resume Next

Forms("系统主页").数据表子窗体.Form.Requery

End Sub

Private Sub 任务日期_DblClick(Cancel As Integer)

Me.任务日期 = Date

End Sub

任务信息查询数据表

数据表形式窗体

Private Sub 任务ID_DblClick(Cancel As Integer)

DoCmd.OpenForm "任务管理", acNormal, , "任务ID=" & Me.任务ID

End Sub

任务状态数据表

数据表形式窗体

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo 数据更新前提醒_Err

If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then

Beep

Else

DoCmd.RunCommand acCmdUndo

End If

数据更新前提醒_Exit:

Exit Sub

数据更新前提醒_Err:

MsgBox Error$

Resume 数据更新前提醒_Exit

End Sub

报表

任务标签

任务明细报表

Private Sub Label24_DblClick(Cancel As Integer)

On Error GoTo 打印对象_Err

DoCmd.RunCommand acCmdPrint

打印对象_Exit:

Exit Sub

打印对象_Err:

Resume 打印对象_Exit

End Sub

宏

宏对象

自动运行宏（autoexec）