公司法
学习网站 网站地图
X
当前位置： 首页 法律大全

access数据库查询字段知识点（绑定记录多种类型查询和筛选功能讲解-条件查询）

时间：2023-05-30 作者： 小编 阅读量： 1 栏目名： 法律大全

导航窗体PrivateSubCommand打开_Click()DoCmd.OpenForm"单记录绑定窗体查询",acNormal,,"所在部门='"&Me.Text部门&"'"EndSubPrivateSubCommand打开列表_Click()DoCmd.OpenForm"员工列表",acNormal,,"所在部门='"&Me.所在部门&"'"EndSubPrivateSubCommand数据

导航窗体

Private Sub Command打开_Click()

DoCmd.OpenForm "单记录绑定窗体查询", acNormal, , "所在部门='" & Me.Text部门 & "'"

End Sub

Private Sub Command打开列表_Click()

DoCmd.OpenForm "员工列表", acNormal, , "所在部门='" & Me.所在部门 & "'"

End Sub

Private Sub Command数据表_Click()

DoCmd.OpenForm "员工数据表", acFormDS, , "所在部门='" & Me.所在部门 & "'"

End Sub

多条件筛选查询

Private Sub Command查询_Click()

DoCmd.OpenQuery "员工条件查询", acViewNormal

End Sub

Private Sub Command查询2_Click()

DoCmd.OpenForm "员工条件查询数据表", acFormDS

End Sub

多条件筛选查询2

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 所在部门 = '" & Me.所在部门 & "'"

Else

filter_text = "所在部门 = '" & Me.所在部门 & "'"

End If

End If

If Me.工龄 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 工龄 >=" & Me.工龄

Else

filter_text = "工龄 >=" & 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 filter_text <> "" Then

DoCmd.OpenForm "员工列表", acNormal, , filter_text

Else

DoCmd.OpenForm "员工列表", acNormal

End If

End Sub

列表框筛选

Private Sub Command部门_Click()

Me.员工查询列表.RowSource = "Select 员工号,姓名,性别,所在部门,职位,工龄 From 员工表 Where 所在部门 like '*" & InputBox("请输入所在部门", "按部门查询") & "*'"

End Sub

Private Sub Command姓名_Click()

Me.员工查询列表.RowSource = "Select 员工号,姓名,性别,所在部门,职位,工龄 From 员工表 Where 姓名 like '*" & InputBox("请输入姓名", "按姓名查询") & "*'"

End Sub

Private Sub Command员工号_Click()

Me.员工查询列表.RowSource = "Select 员工号,姓名,性别,所在部门,职位,工龄 From 员工表 Where 员工号 = '" & InputBox("请输入员工号", "按员工号查询") & "'"

End Sub

Private Sub Command职位_Click()

Me.员工查询列表.RowSource = "Select 员工号,姓名,性别,所在部门,职位,工龄 From 员工表 Where 职位 like '*" & InputBox("请输入现聘职务", "按现聘职务查询") & "*'"

End Sub

员工列表框多条件查询

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 所在部门 = '" & Me.所在部门查询 & "'"

Else

filter_text = "所在部门 = '" & Me.所在部门查询 & "'"

End If

End If

If Me.工龄查询 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 工龄 >=" & Me.工龄查询

Else

filter_text = "工龄 >=" & 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 filter_text <> "" Then

Me.Filter = filter_text

Me.FilterOn = True

Else

Me.FilterOn = False

End If

End Sub

Private Sub Command全部_Click()

Me.FilterOn = False

End Sub

员工筛选子窗体

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 所在部门 = '" & Me.所在部门查询 & "'"

Else

filter_text = "所在部门 = '" & Me.所在部门查询 & "'"

End If

End If

If Me.工龄查询 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 工龄 >=" & Me.工龄查询

Else

filter_text = "工龄 >=" & 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 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()

Me.员工数据表.Form.FilterOn = False

End Sub

    推荐阅读

  • lol新英雄技能介绍（LOL新英雄的易碎buff有多强）

    易碎，30%的控制延长艾希水晶箭易碎=4.5秒控制艾希的魔法水晶箭最远距离的眩晕控制时间在3.5秒，配合上奥恩的易碎加持增加30%，可以最多达到4.55秒的眩晕控制时间。不过大部分LOL英雄的控制技能都是可以配合的，减速，眩晕等等。新英雄奥恩不仅仅是能够帮助队友强化装备，破墙延长控制时间，这些对于团队来说都是非常重要的能力。而且这个易碎buff一级就带有10%的最大生命值伤害，相当夸张的能力。

  • 川崎忍者400有什么颜色的（白忍回归黑忍涨价）

    22款KRT版画相较于21款，主要在侧护板上的图案以及发动机下整流罩的颜色变化。21款KRT版的侧护板是黑色的，下导流罩采用白色涂装；而22款增加了绿色的比例。可能是因为版画上加入了川崎的绿色查克拉，22款金属火花黑涨了1000元。可能红色没有办法完美的搭配川崎绿色的版画，作为这次版画中的“异类”，价格最低，售价49800元。看来川崎现在也学到了版画王的精髓。

  • 文人画的特征是什么（文人画的三大特点）

    这样的人画出画来，不叫“文人画”也会文气十足。这和画家的人品有一定的关系，但不是全部，更重要的是画家接受的教育和所处的环境。

  • 谷歌gmail新版（Google新计划客制化）

    不过，Google已经证实了一项测试计划，未来将让Gmail用户可在域名规则的管制范围内，客制化自己的电子邮件地址。目前付费使用GoogleAppsforWork服务时，可参考公司名称来自订电子邮件地址。Google发言人向国外媒体ZDNet表示，用户对于电子邮件地址的首选通常不是如同yourname@gmail.com，这也就是为什么Google欲尝试其他的Gmail方案，给予用户更多的弹性。不过，这项计划目前仍在测试阶段，还没有作出任何长远规划。

  • 酸梅汤好处（酸梅汤的功效与作用）

    酸梅汤好处酸梅汤是夏季的时候很常见的一种饮品，它能够生津止渴，提神解暑。临床上常用酸梅汤来治疗由于暑热所导致的恶心、呕吐、头晕、头痛等一系列症状。除此之外，酸梅汤还能够有一定抗疲劳的作用，因为酸梅汤能够有效地抑制乳酸，并能够去除血管当中的有害物质，使肌肉和血管恢复活力。酸梅汤当中含有非常丰富的维生素，特别是维生素b2，具有很好的健脾、开胃的功能。另外，还有一定的平肝、降火、保肝、护肝的作用。

  • 谁都不要站在道德的高度指责别人（永远不要站在道德制高点指责他人）

    本以为会被公众所理解，却没想到连续遭到两个男生的拒绝，最后是两个女生为其换了座位。这并不是道德的维护者，而是道德的亵渎者。两人发生了争执，甚至踢倒了女生。虽然男子的出发点是好的，但也不该成为伤害他人的借口。道德是约束自己的真正的道德是用来约束自己，让其成为自己生活的一部分，而并非去管制他人的生活。道德是一个人与动物的最大区别，也是人类进入现代文明的最大象征。

  • 爱丽丝的花语（爱丽丝的花语含义）

    跟着小编一起来看一看吧!爱丽丝的花语爱丽丝就是鸢尾花，它的花语为好消息，优美，使者，易变的，想念你，爱的留言。它的花色为蓝紫色，花形类似起舞的蝴蝶，花开在春季，开花时就像蝴蝶在绿叶之间飞舞，感觉想把春的消息带到远方。它是谐音为爱死你，因此寓意爱情，深受情侣的喜爱。它还是法国的国花。

  • （九集中学开展保护环境）

    本次活动以“保护环境，爱护生物”为主题，由生物老师组织七八年级的学生积极参与。活动是在国庆长假时安排的，学生可以利用网络查找相关的保护环境的资料，可以和家长一起完成，也可以和同班同学合作完成。通过制作手抄报让学生带动家长成为环境保护的宣传者、实践者、推动者。10月9日，生物组对所有手抄报进行认真评选，其中熊思颖、谢咏仪等同学的作品让师生赞叹不已。

  • 香油煎鸡蛋怎么做（香油煎鸡蛋怎么操作？）

    跟着小编一起来看一看吧!香油煎鸡蛋怎么做准备好两个鸡蛋。把鸡蛋打到碗里，加入适量的葱花搅拌均匀。锅内加入少许芝麻油烧热，油不需太多只要刷到锅面有油即可。把搅拌好的鸡蛋液下锅煎至定型。如果喜欢吃溏心鸡蛋，可以只煎一面不翻面。出锅装盘，制作完成。

  • 工装裤搭配什么上衣（3种搭配总有一种适合你）

    我们一起去了解并探讨一下这个问题吧!如果不想把衬衫穿出太干练呆板的感觉，搭配工装裤可以凸显出一种文艺感，显得随性又自然。工装裤搭配立领夹克，夹克本身和工装裤就是同一个风格的单品，有着挺括硬朗的版型。穿在身上不仅可以修饰身材，显得整个人也会更加精神一点，选择立领版型更能增加造型感。工装裤搭配黑T恤，对于与颜色不太敏感又不想太复杂。那么简单且经典百搭的黑色T恤搭配工装裤，可以让整个人更加清爽通透。

热门推荐

甲片全贴和半贴的区别（甲片全贴和半贴的区别是什么） 鹦鹉保温灯晚上可以一直开吗（看看这里怎么说） 商丘高速公路路线图（商丘这条规划高速详细路线） 江苏医惠保1号怎么退参保的钱（江苏医惠保1号怎么退参保的钱呢） 老年手机怎么删除联系人（如何手机删除联系人？） 清远驾照考试地点（清远驾照考试时间） 沛县重点人群新冠疫苗接种点（沛县狂犬疫苗接种点） 黄精保质期是多久（黄精过保质期了还能食用吗） 历史上的乔映霁简介（乔映霁历史原型是谁） 创维电视自动开机是怎么回事（创维电视无缘无故自动开机）

热门推荐

艾尔登法环一共有多少种露滴 艾尔登法环 百科 吃什么最补脑增强记忆力（最补脑增强记忆力的食物） 梦到坐车（梦到坐车的解释） 虚拟机怎么用（如何使用虚拟机？） 长三角十三五规划全文（长三角又一重要规划印发） 凉拌五香花生米怎么做好吃（凉拌五香花生米） 暴走英雄坛如何快速成为大佬（暴走英雄坛这可能是一个） 蚊子突然变多的征兆（蚊子突然变多的征兆有哪些） dnf活动送的成长装备值得升吗（夏日礼包回血计算） 张恒发文说了什么两个孩子的妈妈是谁&lt;/title&gt; &lt;meta 关于端午节的诗句古诗（端午节的诗句分享） 埃菲尔铁塔建于哪一年（埃菲尔铁塔建于哪一年,设计者是谁） 天梭表拆解（这一刻创造下一刻） 推广普通话的意义（推广普通话的意义简述） 怎么提起学习数学的兴趣（怎么培养阅读兴趣） 参观红色教育基地感想总结（不忘初心） 雅诗兰黛小棕瓶对比科颜氏淡斑（公认好用的精华榜单） 关于不以物喜不以己悲句子（不以物喜不以己悲的相关句子推荐） 冬天室外除冰的有效方法（冬季除冰有什么好的方法吗） 考营养师证在哪里报考（一般人怎么考营养师证）