access数据库(access数据库导入excel表格)

九贤生活小编 • • 电脑百科

前沿拓展：

access数据库

数据库，顾名思义：数据的仓库。
当使用者需要保存的数据量不是很大时，我们可以直接将数据写到编辑完全可视化，且内置强大的Office编程环境VBA，无需第三方编程软件，即可迅速开发桌面数据库系统。

Public filter_text As String '定义为公共变量

Private Sub Command查询_Click()

filter_text = ""

If Me.员工编号 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 员工编号 like '*" & Me.员工编号 & "*'"

Else

filter_text = "员工编号 like '*" & Me.员工编号 & "*'"

End If

End If

If Me.部门 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 部门 like '*" & Me.部门 & "*'"

Else

filter_text = "部门 like '*" & Me.部门 & "*'"

End If

End If

If Me.职位 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 职位 like '*" & Me.职位 & "*'"

Else

filter_text = "职位 like '*" & Me.职位 & "*'"

End If

End If

If Me.姓名 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 姓名 like '*" & Me.姓名 & "*'"

Else

filter_text = "姓名 like '*" & Me.姓名 & "*'"

End If

End If

If Me.销售日期1 <> "" And Me.销售日期2 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 销售日期 between #" & Me.销售日期1 & "# and #" & Me.销售日期2 & "#"

Else

filter_text = "销售日期 between #" & Me.销售日期1 & "# and #" & Me.销售日期2 & "#"

End If

End If

If Me.销售额1 <> "" And Me.销售额2 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 销售额 >= " & Me.销售额1 & " and 销售额<=" & Me.销售额2

Else

filter_text = "销售额 >= " & Me.销售额1 & " and 销售额<=" & Me.销售额2

End If

End If

'——————————筛选子窗体

If filter_text <> "" Then

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

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

Else

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

End If

End Sub

Private Sub Command清空_Click()

员工编号.Value = ""

姓名.Value = ""

部门.Value = ""

职位.Value = ""

销售日期1.Value = ""

销售日期2.Value = ""

销售额1.Value = ""

销售额2.Value = ""

End Sub

Private Sub Command全部_Click()

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

End Sub

拓展知识：

前沿拓展：

access数据库

数据库，顾名思义：数据的仓库。
当使用者需要保存的数据量不是很大时，我们可以直接将数据写到编辑完全可视化，且内置强大的Office编程环境VBA，无需第三方编程软件，即可迅速开发桌面数据库系统。

Public filter_text As String '定义为公共变量

Private Sub Command查询_Click()

filter_text = ""

If Me.员工编号 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 员工编号 like '*" & Me.员工编号 & "*'"

Else

filter_text = "员工编号 like '*" & Me.员工编号 & "*'"

End If

End If

If Me.部门 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 部门 like '*" & Me.部门 & "*'"

Else

filter_text = "部门 like '*" & Me.部门 & "*'"

End If

End If

If Me.职位 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 职位 like '*" & Me.职位 & "*'"

Else

filter_text = "职位 like '*" & Me.职位 & "*'"

End If

End If

If Me.姓名 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 姓名 like '*" & Me.姓名 & "*'"

Else

filter_text = "姓名 like '*" & Me.姓名 & "*'"

End If

End If

If Me.销售日期1 <> "" And Me.销售日期2 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 销售日期 between #" & Me.销售日期1 & "# and #" & Me.销售日期2 & "#"

Else

filter_text = "销售日期 between #" & Me.销售日期1 & "# and #" & Me.销售日期2 & "#"

End If

End If

If Me.销售额1 <> "" And Me.销售额2 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 销售额 >= " & Me.销售额1 & " and 销售额<=" & Me.销售额2

Else

filter_text = "销售额 >= " & Me.销售额1 & " and 销售额<=" & Me.销售额2

End If

End If

'——————————筛选子窗体

If filter_text <> "" Then

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

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

Else

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

End If

End Sub

Private Sub Command清空_Click()

员工编号.Value = ""

姓名.Value = ""

部门.Value = ""

职位.Value = ""

销售日期1.Value = ""

销售日期2.Value = ""

销售额1.Value = ""

销售额2.Value = ""

End Sub

Private Sub Command全部_Click()

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

End Sub

拓展知识：

原创文章，作者：九贤生活小编，如若转载，请注明出处：http://www.wangguangwei.com/37974.html

赞 (0)
九贤生活小编九贤生活小编
0
上一篇 2023年 2月 13日 pm8:18
下一篇 2023年 2月 13日 pm8:24

相关推荐

  • win10 黑屏 修复 电脑百科

    win10 黑屏 修复

    前沿拓展： win10 黑屏 修复 win10自动修复后黑屏解决方法如下： 1、 长按电源按钮关机; 　　2、 按电源按钮开机; 　　3、 重复步骤1~2三次; 　　4、 “安全模…

    2023年 2月 25日
  • W7系统如何访问FTP服务器 电脑百科

    W7系统如何访问FTP服务器

    W7系统如何访问FTP服务器 FTP在人们日常生活中虽然不是很常见，但对于IT方面的人员来说，接触还是比较多的。FTP服务是很常用的文件传输协议，我们再做软件开发或网站建设时，都会…

    2023年 9月 18日

  • kb4032188(kb4022725)

    前沿拓展： （上接C92版） 2089 平安基金管理有限公司 平安行业先锋混合型证券投资基金 0899056346 320 2,175 144,246.00 2090 平安基金管理…

    电脑百科 2023年 2月 3日
  • 家庭用性价比高的笔记本电脑(家庭用台式电脑好还是笔记本电脑好) 电脑百科

    家庭用性价比高的笔记本电脑(家庭用台式电脑好还是笔记本电脑好)

    家庭用性价比高的笔记本电脑(家庭用台式电脑好还是笔记本电脑好) 老铁们好啊，今天小编给大家分享下我们在使用电脑过程中会遇到的一些问题故障该如何处理，热门电脑游戏需求配置，电脑使用的…

    2023年 9月 5日

  • 1155主板处理器兼容列表(兼容i5处理器的主板)

    什么是1155主板处理器兼容列表？ 1155主板处理器兼容列表是一份数据库，记录了能够与1155主板兼容的各种处理器型号。这一列表是非常重要的，因为不同处理器型号的兼容性是不同的，…

    电脑百科 2023年 7月 20日
  • 2017年i3主机多少钱(i3四代主机多少钱) 电脑百科

    2017年i3主机多少钱(i3四代主机多少钱)

    2017年i3主机多少钱(i3四代主机多少钱) 老铁们好啊，今天小编给大家分享下我们在使用电脑过程中会遇到的一些问题故障该如何处理，热门电脑游戏需求配置，电脑使用的一些小技巧 hp…

    2023年 8月 29日

  • i74790k核心显卡(英特尔I74790k的核心代号是)

    介绍i7 4790k核心显卡 i7 4790k是英特尔推出的一款高性能桌面处理器，其核心显卡为Intel HD Graphics 4600。该显卡集成于处理器内部，不需要额外的显卡…

    电脑百科 2023年 5月 26日
  • W7电脑系统CHM文件怎么打开？ 电脑百科

    W7电脑系统CHM文件怎么打开？

    W7电脑系统CHM文件怎么打开？ 在平时的工作中，我们常常会去下载一些资料，有些资料是.CHM格式的，因此有很多用户不知道CHM文件怎么打开，那么Windows7电脑系统CHM文件…

    2023年 9月 18日

  • 联想笔记本客户服务中心(联想笔记本官网查询真伪入口)

    大家好，今天小编来为大家解答联想笔记本客户服务中心(联想笔记本官网查询真伪入口)这个问题，联想笔记本客户服务中心(联想笔记本官网查询真伪入口)很多人还不知道，现在让我们一起来看看吧！2023联想官网周

    电脑百科 2024年 3月 28日

  • freebsd安装-麒麟系统怎么换win7

    本文目录1、麒麟系统怎么换win7？2、VMware Mac OS补丁怎么安装？3、ps4怎么装win系？4、中标麒麟系统怎样换win7？5、家庭PC不安装Windows操作系统的话，还有哪些系统可以备选安装？1、麒麟系统怎么换win7？不能，因为硬盘分区格式不适合win7，需要重新对硬盘进行分区。麒麟用的是FreeBSD内核软件却用的是linux的。所以麒麟没有类似Linux的安装包管理器。因此

    电脑百科 2022年 11月 18日