百度360必应搜狗淘宝本站头条
HTML5 标签标签HTML5 标签 (已废弃)HTML 简介键盘快捷键
当前位置：网站首页 > 技术文章 > 正文

【每日任务计划管理系统】Access数据库管理系统 VBA代码分享

zhezhongyun 2025-03-26 19:06 72 浏览

窗体

系统主页

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


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）

相关推荐

Python入门学习记录之一:变量_python怎么用变量

写这个，主要是对自己学习python知识的一个总结，也是加深自己的印象。变量（英文：variable），也叫标识符。在python中，变量的命名规则有以下三点：>变量名只能包含字母、数字和下划线...

python变量命名规则——来自小白的总结

python是一个动态编译类编程语言，所以程序在运行前不需要如C语言的先行编译动作，因此也只有在程序运行过程中才能发现程序的问题。基于此，python的变量就有一定的命名规范。python作为当前热门...

Python入门学习教程:第 2 章 变量与数据类型

2.1什么是变量？在编程中，变量就像一个存放数据的容器，它可以存储各种信息，并且这些信息可以被读取和修改。想象一下，变量就如同我们生活中的盒子，你可以把东西放进去，也可以随时拿出来看看，甚至可以换成...

绘制学术论文中的“三线表”具体指导

在科研过程中，大家用到最多的可能就是“三线表”。“三线表”，一般主要由三条横线构成，当然在变量名栏里也可以拆分单元格，出现更多的线。更重要的是，“三线表”也是一种数据记录规范，以“三线表”形式记录的数...

Python基础语法知识--变量和数据类型

学习Python中的变量和数据类型至关重要，因为它们构成了Python编程的基石。以下是帮助您了解Python中的变量和数据类型的分步指南：1.变量：变量在Python中用于存储数据值。它们充...

一文搞懂 Python 中的所有标点符号

反引号`无任何作用。传说Python3中它被移除是因为和单引号字符'太相似。波浪号~（按位取反符号）~被称为取反或补码运算符。它放在我们想要取反的对象前面。如果放在一个整数n...

Python变量类型和运算符_python中变量的含义

别再被小名词坑哭了：Python新手常犯的那些隐蔽错误，我用同事的真实bug拆给你看我记得有一次和同事张姐一起追查一个看似随机崩溃的脚本，最后发现罪魁祸首竟然是她把变量命名成了list。说实话...

从零开始:深入剖析 Spring Boot3 中配置文件的加载顺序

在当今的互联网软件开发领域，SpringBoot无疑是最为热门和广泛应用的框架之一。它以其强大的功能、便捷的开发体验，极大地提升了开发效率，成为众多开发者构建Web应用程序的首选。而在Spr...

Python中下划线 ‘_’ 的用法，你知道几种

Python中下划线()是一个有特殊含义和用途的符号，它可以用来表示以下几种情况：1在解释器中，下划线(_)表示上一个表达式的值，可以用来进行快速计算或测试。例如：>>>2+...

解锁Shell编程:变量_shell $变量

引言：开启Shell编程大门Shell作为用户与Linux内核之间的桥梁，为我们提供了强大的命令行交互方式。它不仅能执行简单的文件操作、进程管理，还能通过编写脚本实现复杂的自动化任务。无论是...

一文学会Python的变量命名规则!_python的变量命名有哪些要求

目录1.变量的命名原则3.内置函数尽量不要做变量4.删除变量和垃圾回收机制5.结语1.变量的命名原则①由英文字母、_(下划线)、或中文开头②变量名称只能由英文字母、数字、下画线或中文字所组成。③英文字...

更可靠的Rust-语法篇-区分语句/表达式，略览if/loop/while/for

src/main.rs://函数定义fnadd(a:i32,b:i32)->i32{a+b//末尾表达式}fnmain(){leta:i3...

C++第五课:变量的命名规则_c++中变量的命名规则

变量的命名不是想怎么起就怎么起的，而是有一套固定的规则的。具体规则：1.名字要合法：变量名必须是由字母、数字或下划线组成。例如：a，a1，a_1。2.开头不能是数字。例如：可以a1，但不能起1a。3....

Rust编程-核心篇-不安全编程_rust安全性

Unsafe的必要性Rust的所有权系统和类型系统为我们提供了强大的安全保障，但在某些情况下，我们需要突破这些限制来：与C代码交互实现底层系统编程优化性能关键代码实现某些编译器无法验证的安全操作Rus...

探秘 Python 内存管理:背后的神奇机制

在编程的世界里，内存管理就如同幕后的精密操控者，确保程序的高效运行。Python作为一种广泛使用的编程语言，其内存管理机制既巧妙又复杂，为开发者们提供了便利的同时，也展现了强大的底层控制能力。一、P...

一周热门
最近发表
标签列表