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

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

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

窗体

系统主页

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


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）

相关推荐

JavaScript做个贪吃蛇小游戏(过关-加速)，无需网络直接玩。

JavaScript做个贪吃蛇小游戏（过关-则加速）在浏览器打开文件，无需网络直接玩。<!DOCTYPEhtml><htmllang="en"><...

大模型部署加速方法简单总结（大模型 ai）

以下对大模型部署、压缩、加速的方法做一个简单总结，为后续需要备查。llama.cppGithub:https://github.com/ggerganov/llama.cppLLaMA.cpp项...

安徽医大第一医院应用VitaFlow Liberty(R)Flex为患者焕然一“心”

近日，在安徽医科大学第一附属医院心血管内科负责人暨北京安贞医院安徽医院业务副院长喻荣辉教授的鼎力支持和卓越带领下，凭借着先进的VitaFlowLiberty(R)Flex经导管主动脉瓣可回收可...

300 多行代码搞定微信 8.0 的「炸」「裂」特效!

微信8.0更新的一大特色就是支持动画表情，如果发送的消息只有一个内置的表情图标，这个表情会有一段简单的动画，一些特殊的表情还有全屏特效，例如烟花表情有全屏放烟花的特效，炸弹表情有爆炸动画并且消息和...

让div填充屏幕剩余高度的方法（div填充20px）

技术背景在前端开发中，经常会遇到需要让某个div元素填充屏幕剩余高度的需求，比如创建具有固定头部和底部，中间内容区域自适应填充剩余空间的布局。随着CSS技术的发展，有多种方法可以实现这一需求。实现步骤...

css之div内容居中（css中div怎么居中）

div中的内容居中显示，包括水平和垂直2个方向。<html><head><styletype="text/css">...

使用uniapp开发小程序遇到的一些问题及解决方法

1、swiper组件自定义知识点swiper组件的指示点默认是圆圈，想要自己设置指示点，需要获得当前索引，然后赋给当前索引不同的样式，然后在做个动画就可以了。*关键点用change方法，然后通过e.d...

微信小程序主页面排版（怎样设置小程序的排版）

开发小程序的话首先要了解里面的每个文件的作用小程序没有DOM对象，一切基于组件化小程序的四个重要的文件*.js*.wxml--->view结构---->html*.wxss--...

Vue动态组件的实践与原理探究（vue动态组件component原理）

我司有一个工作台搭建产品，允许通过拖拽小部件的方式来搭建一个工作台页面，平台内置了一些常用小部件，另外也允许自行开发小部件上传使用，本文会从实践的角度来介绍其实现原理。ps.本文项目使用VueCLI...

【HarmonyOS Next之旅】兼容JS的类Web开发(四) -＞ tabs

目录1->创建Tabs2->设置Tabs方向3->设置样式4->显示页签索引5->场景示例编辑1->创建Tabs在pages/index目录...

CSS:前端必会的flex布局，我把布局代码全部展示出来了

进入我的主页，查看更多CSS的分享！首先呢，先去看文档，了解flex是什么，这里不做赘述。当然，可以看下面的代码示例，辅助你理解。一、row将子元素在水平方向进行布局：1.垂直方向靠顶部，水平方向靠...

【HarmonyOS Next之旅】兼容JS的类Web开发(四) -＞ swiper

目录1->创建Swiper组件2->添加属性3->设置样式4->绑定事件5->场景示例编辑1->创建Swiper组件在pages/index...

CSS:Flex布局，网页排版神器!（css3 flex布局）

还在为网页排版抓狂？别担心，CSS的flex布局来了，让你轻松玩转各种页面布局，实现网页设计自由！什么是Flex布局？Flex布局，也称为弹性布局，是CSS中的一种强大布局方式，它能够让你...

移动WEB开发之flex布局，附携程网首页案例制作

一、flex布局体验传统布局兼容性好布局繁琐局限性，不能再移动端很好的布局1.1flex弹性布局：操作方便，布局极为简单，移动端应用很广泛PC端浏览器支持情况较差IE11或更低版本，不支持或仅部...

2024最新升级–前端内功修炼 5大主流布局系统进阶(mk分享)

2024最新升级–前端内功修炼5大主流布局系统进阶(mk分享)获课》789it.top/14658/前端布局是网页设计中至关重要的一环，它决定了网页的结构和元素的排列方式。随着前端技术的不断发展，现...

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