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、电脑重…

    2023年 3月 9日

  • 一体机和笔记本哪个寿命长，平板和笔记本哪个寿命长

    1、平板和笔记本哪个寿命长， 由于平时使用的是自来水而非蒸馏水，从配置上讲，不要忘了收藏本站哦。 2、但以目前的配置价格来说， 关于散热和清洁 大部分的嵌入式蒸烤一体机都是前置散热…

    电脑百科 2023年 10月 12日

  • 联想笔记本键盘驱动下载，联想笔记本键盘失灵一键修复

    大家好，感谢邀请，今天来为大家分享一下联想笔记本键盘驱动下载，联想笔记本键盘失灵一键修复的问题，以及和联想笔记本键盘驱动下载，联想笔记本键盘失灵一键修复的一些困惑，大家要是还不太明白的话，也没有关系，因为接下来将为大家分享，希望可以帮助到大家，解决大家的问题，下面就开始吧！「YOGA科普」新笔记本买回来要做哪些事？（上）新笔记

    电脑百科 2024年 3月 28日

  • 马斯克：特斯拉下代车售价或为Model 3一半，可自动驾驶

    “/>

    <script type="text/javascript

    电脑百科 2023年 3月 8日
  • 惠普和戴尔哪个更耐用(惠普耐用还是戴尔耐用) 电脑百科

    惠普和戴尔哪个更耐用(惠普耐用还是戴尔耐用)

    惠普和戴尔哪个更耐用(惠普耐用还是戴尔耐用) 老铁们好啊，今天小编给大家分享下我们在使用电脑过程中会遇到的一些问题故障该如何处理，热门电脑游戏需求配置，电脑使用的一些小技巧 AMD…

    2023年 8月 15日

  • 联想g460e配置，联想g460e配置参数

    大家好，感谢邀请，今天来为大家分享一下联想g460e配置，联想g460e配置参数的问题，以及和联想g460e配置，联想g460e配置参数的一些困惑，大家要是还不太明白的话，也没有关系，因为接下来将为大家分享，希望可以帮助到大家，解决大家的问题，下面就开始吧！如何让一台10年高龄的笔记本电脑重获新生？很难想象，一台10年前的笔记本电脑竟然还能正

    电脑百科 2024年 3月 28日
  • 华硕电脑售后维修服务(华硕电脑售后维修服务网点地址查询) 电脑百科

    华硕电脑售后维修服务(华硕电脑售后维修服务网点地址查询)

    华硕电脑售后维修服务(华硕电脑售后维修服务网点地址查询) 老铁们好啊，今天小编给大家分享下我们在使用电脑过程中会遇到的一些问题故障该如何处理，热门电脑游戏需求配置，电脑使用的一些小…

    2023年 8月 17日
  • 华硕s200e(华硕s200e如何关闭触摸屏) 电脑百科

    华硕s200e(华硕s200e如何关闭触摸屏)

    华硕s200e(华硕s200e如何关闭触摸屏) 老铁们好啊，今天小编给大家分享下我们在使用电脑过程中会遇到的一些问题故障该如何处理，热门游戏电脑需求配置，电脑使用的一些小技巧等内容…

    2023年 8月 12日
  • win10怎么换成旗舰版(win10怎么换系统版本) 电脑百科

    win10怎么换成旗舰版(win10怎么换系统版本)

    前沿拓展： win10怎么换成旗舰版 可通过以来自下步骤将windows 10**作系统中的系统语言更改为英文： 1、 在Windows桌面下，按键盘的WIN+X组合键，打开高级管…

    2023年 3月 4日

  • intel芯片组天梯图(intel天梯图2022)

    什么是Intel芯片组天梯图？ Intel芯片组天梯图是指一张以“产品层次-性能水平”为主线的表格，梯形状的排布方式使得同层次性能相似的产品可以明显被区分开来。这个表格是由Inte…

    电脑百科 2023年 5月 23日