access數據庫查詢字段知識點-tft每日頭條

access數據庫查詢字段知識點

科技更新时间:2024-07-22 11:13:06

access數據庫查詢字段知識點（綁定記錄多種類型查詢和篩選功能講解-條件查詢）1

導航窗體

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

If Me.姓名 <> "" Then

If filter_text <> "" Then

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

Else

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

End If

If Me.所在部門 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 所在部門 = '" & Me.所在部門 & "'"

Else

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

End If

If Me.工齡 <> "" Then

If filter_text <> "" Then

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

Else

filter_text = "工齡 >=" & Me.工齡

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

'------------------------------篩選子窗體

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

If Me.姓名查詢 <> "" Then

If filter_text <> "" Then

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

Else

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

End If

If Me.所在部門查詢 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 所在部門 = '" & Me.所在部門查詢 & "'"

Else

filter_text = "所在部門 = '" & Me.所在部門查詢 & "'"

End If

If Me.工齡查詢 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 工齡 >=" & Me.工齡查詢

Else

filter_text = "工齡 >=" & Me.工齡查詢

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

'------------------------------篩選

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

If Me.姓名查詢 <> "" Then

If filter_text <> "" Then

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

Else

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

End If

If Me.所在部門查詢 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 所在部門 = '" & Me.所在部門查詢 & "'"

Else

filter_text = "所在部門 = '" & Me.所在部門查詢 & "'"

End If

If Me.工齡查詢 <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 工齡 >=" & Me.工齡查詢

Else

filter_text = "工齡 >=" & Me.工齡查詢

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

'------------------------------篩選子窗體

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

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部

网友关注

科技如何提升seo優化
如何提升seo優化?做網站SEO優化如何快速成功，快速出成果？其實你隻需要堅持做這件小事，我來為大家科普一下關于如何提升seo優化?下面希望有你要的答案，我們一起來看看吧!如何提升seo優化做網站SEO優化如何快速成功，快速出成果？其實你隻... 2022-11-01
科技 dota2 知識普及
去年底，曾有報道稱Valve在開發一款《半條命》前傳VR遊戲，該遊戲将會與一款疑似在研發中的VR頭顯配套推出。近期，在Dota2的軟件更新中，有網友發現了提及hlvr字樣的一串代碼，這更加印證了這款遊戲的存在，而且很可能在GDC亮相。據青亭... 2022-11-05
科技蘋果手機必須關閉的幾個危險功能
本文編輯今日頭條作者維權騎士簽約用戶：小俊技術分享獨家原創制作未經授權嚴禁轉載，發現抄襲者将進行全網維權投訴分享生活小妙招，享受科技新生活！大家好，歡迎來到今天的知識分享！我是你們的好朋友小俊！使用蘋果手機的朋友，切記一定要關閉以下4個設置... 2022-11-28
科技 vivofold折疊屏是否值得入手
從2019年首款折疊屏手機亮相至今，“折疊屏”這個全新的形态已經伴随了我們三年的時間。小屏與大屏之間自由切換，在一台設備上享受手機平闆的雙重體驗的确足夠吸引人，手持各大手機廠商推出的折疊屏手機，也會成為人們關注的焦點。vivoXFold“折... 2023-01-14
科技微信視頻太大不能發送怎麼辦
微信視頻太大不能發送怎麼辦?首先打開微信，找到一個很大的視頻，然後長按視頻，點擊收藏，點擊我，進入收藏，點擊剛剛收藏的視頻，點擊右上角的三個點，點擊發送給朋友即可，下面我們就來說一說關于微信視頻太大不能發送怎麼辦?我們一起去了解并探讨一下這... 2022-07-18
科技創造與魔法11月18日更新什麼
創造與魔法五一新版本“巨獸來襲”看到這張圖片，相信有的小夥伴這兩天已經有刷到過，但也有很多小夥伴可能還是一臉懵。首先瓶蓋兒在這裡解釋一下，這是創造與魔法五一新版本更新，4399遊戲盒子預約裡的一張截圖。原圖是這樣的。這裡，瓶蓋兒就跟小夥伴們... 2022-11-20
科技全面的績效管理系統
關注【本頭條号】更多關于制度、流程、體系、崗位、模闆、方案、工具、案例、故事、圖書、文案、報告、技能、職場等内容，弗布克15年積累免費與您分享！2．1．1績效管理系統的框架績效管理系統，是能夠有效管理組織和組織内部員工績效的系統。績效管理系... 2022-11-20
科技挖機各種型号介紹
挖機各種型号介紹?挖機型号、重量、鬥容量、油耗分别是多少嗎？，下面我們就來說一說關于挖機各種型号介紹?我們一起去了解并探讨一下這個問題吧!挖機各種型号介紹挖機型号、重量、鬥容量、油耗分别是多少嗎？220挖機是指機重22噸，鬥容量1.1方，它... 2023-02-06
科技網站建設需要考慮哪些内容
網站建設的成功離不開後期網站的維護，那麼我們平時應該做些什麼來維護自己的網站呢？小編今天就與大家分享一些網站維護的經驗~1:網站服務器維護，一般中小企業，如果網站流量不多，一般推薦使用阿裡雲獨立的虛拟主機，平均約600一年，如果服務器使用要... 2023-01-15
科技今年各家的旗艦手機
上半年，安卓手機廠商打得天昏地暗。該出的旗艦出了，該放的大招放了。半年過去，華為OV依然很強勢，請看大屏幕：國産手機，華為P10/P10Plus，OPPOR11/R11Plus和最近的vivoX9s系列在線下市場很強勢。國外部分，iPhon... 2022-12-07
科技蘋果小技巧大全
一、蘋果手機怎麼查看自己的手機是什麼型号号碼呢？1.桌面上點擊"設置"2.點擊"通用"3.點擊"關于本機"4.點擊型号号碼字符會跳變關于本機關于本機二、型号号碼代表什麼？有什麼含義？為什麼會點... 2023-02-08
科技 ar應用開發
來人人都是産品經理【起點學院】，BAT實戰派産品總監手把手系統帶你學産品、學運營。作者認為AR未來無論是在C端還是在B端都會存在廣泛的應用場景，并能夠在許多場景下颠覆用戶的使用習慣，解決一些目前無法有效解決的用戶需求！比如最近突然火起來的A... 2023-02-12
科技什麼是塑化劑
塑化劑是在工業生産上被廣泛使用的高分子材料助劑，又稱增塑劑。凡是添加到聚合物材料中能使聚合物塑性增加的物質都稱為塑化劑。塑化劑的使用可以改善高分子材料的性能，降低生産成本，提高生産效益。是一類重要的化工産品添加劑，作為助劑普遍應用于塑料制品... 2023-01-22
科技小米10pro怎麼加徕卡水印
咳咳，全員萊卡時代即将來臨[呲牙]安卓12MIUI13版本可以弄到徕卡水印, 2023-03-11
科技 2022年抖音潮流運動盤點來了
中國青年報客戶端訊（中青報·中青網記者範雪）剛剛過去的炎夏，在一家地産公司工作的陳志養成了一下班回家就要打開抖音，跟跳《本草綱目》毽子操的習慣。“我身邊很多朋友都喜歡上了跟着視頻運動，除了跳操，抖音上也有瑜伽直播等，可選擇的種類很多。”她說... 2023-03-11
科技子陽kpl表現
大家好我是指尖，職業輔助選手在路人局中是不是很難c？的确，賽場上的好輔助能統禦戰場，是很強的勝負手，但是在路人局中，沒有那麼強的配合，輔助的作用就會大幅度降低，任你有多強的意識依然無法掌握節奏，說白了就是心有餘力不足，輸出位才是左右勝負的關... 2023-04-02
科技一季度經濟總體好于預期
一季度經濟總體好于預期?新華社北京4月17日電題：一季度重要數據出爐怎麼看當前經濟形勢？，下面我們就來聊聊關于一季度經濟總體好于預期?接下來我們就一起去了解一下吧!一季度經濟總體好于預期新華社北京4月17日電題：一季度重要數據出爐怎麼看當前... 2022-11-14
科技手機導航不能用什麼原因
手機導航不能用什麼原因?地磁圖對導航非常重要，是現代導航的基礎GPS系統隻能提供位置信息，無法确定方向，方向是由磁場（即地磁圖）來确定的當手機導航出現問題的時候，我們可以通過...（點擊了解更多，查看全部），現在小編就來說說關于手機導航不能... 2022-11-25
科技華為音箱2支持鴻蒙系統嗎
随着智能家居的進一步深入，人們對于智能産品的需求也越來越多；智能音箱的出現給用戶極大的精神享受，雖然目前市面上的智能音箱種類很多，但對于兒童領域來說，智能音箱依舊是個很大的缺口，畢竟兒童的音色與成年人的有所區别。兒童的音色與常人是存在不同的... 2022-12-25
科技樓宇自控系統安裝圖
樓宇自控系統安裝圖?現在的樓宇自控系統是一種集散式控制系統DCS，DCS是一種管理控制的模式，其實質是集中管理分散控制而所謂的分散控制，就是在衆多設備的附近（現場），設置帶有微處理芯片的控制器，然後再把這許多稱為“直接數字控制器（DDC）”... 2023-03-23
科技對我國科技現狀的認識作文題目
表達方式是指人們在表述文章内容時所采用的具體手段，包括叙述、描寫、議論、抒情和說明等。在寫作科技文書時，使用頻率最高的是叙述、議論、說明這三種表達方式。1.叙述叙述是科技文書寫作中最基本、最常見，也是最主要的一種表達方式。科技文書中的叙述是... 2023-02-02
科技手機磁吸無線充電器
相信使用過無線充電器的朋友都會有這樣的體會，手機随手一放就可以充電，拿起就可以使用。減少手機插口與充電線材的頻繁接、撥，除了在使用上帶來的便捷外，還可以通過瑣碎的時間進行充電，實現“無意識充電”，提高辦公/生活效率。最近，放在公司裡的無線充... 2023-03-02
科技肖戰來電秀手機鈴聲
我敢播放光點我敢大聲唱出來光點我敢在孩子面前唱光點我敢在父母親戚朋友們面前唱光點我敢設置手機鈴聲光點請問“227”，“下墜”的主人你們敢在把下墜讀給你們父母，孩子，親戚朋友們聽一聽嗎？或者拿給你們的父母，孩子，親戚朋友炫耀一下？“下墜”你們... 2023-03-28
科技計算機科學與技術和軟件工程誰好
程序員作為當今社會的熱門職業，因為其薪資高與就業容易的兩個職業特點，導緻每年有特别多的考生選擇計算機專業，并且想要在畢業後成為程序員。目前與程序員最相關的專業是計算機科學與技術和軟件工程。這個兩個專業同屬于計算機類專業，它們在高考分數、學費... 2023-04-02
科技筆記本電腦win7怎麼開攝像頭
使用深度技術的電腦用戶有不少是做直播的，做直播肯定要使用到電腦攝像頭，但是有一位小夥伴使用win764旗艦版用到攝像頭的時候，卻不知道攝像頭在哪裡打開的問題，下面深度系統小編就來為大家分享打開攝像頭的方法。方法如下：1、首先用鼠标點擊開始菜... 2022-11-14
科技華為手機到底能不能用
現在使用華為手機的人越來越多，而且手機的功能也越來越多。但是華為手機中的這些常識你都知道嗎。本文總結了一些平時不被人注意的使用常識，希望可以幫助你更好的使用華為手機。1、相機照片選擇了“優先存儲在SD卡”，但是為什麼拍攝的照片還是在手機存儲... 2022-10-23
科技海德堡印刷機曲線講解
衆所周知，數碼印刷是當今以及未來整個印刷市場的發展方向。有數據顯示，2015年全球數字印刷産值已占印刷包裝産業總産值的13.9%，占市場總規模的2.5%。目前，通過多種印刷技術的整合來創造新的商業模式，正在成為印刷企業突破發展困境與構建核心... 2022-11-25
科技虹膜識别最嚴重的手機
如今的手機在各方面相對之前都有較大的提升，尤其是在硬件配置方面，而在手機的外觀設計上，也有了很大的變化。之前的手機大多數長得都比較相似，不過現在很多手機都有着自身的設計風格，比如說雙曲面屏、水墨屏、亮騷的配色等等，這些設計可以讓手機看着更為... 2022-10-28
科技手機我的世界墓地之門怎麼做
我的世界手機版墓碑怎麼做？我的世界墓地第一種做法，内容非常精彩哦，希望喜歡我的世界的小夥伴們都能夠喜歡。墓碑的種類與很多，這裡為大家帶來2個做法：方法一：挖一個2x2的坑：放置石磚樓梯：放置方塊：放置石磚樓梯：去掉方塊，放置倒立的石磚樓梯擺... 2023-04-03
科技看起來很高端但是很便宜的手機
蘋果正式發布iPhone14系列後，相信很多關注手機行業的網友和我一樣都在期待國産“iPhone14系列”的面世，華強北牛人們沒讓人失望，在14系列剛登陸國内市場不久，外觀達到精仿級别的國産14系列便被曝光出來，并且就在前段時間，已有這類産... 2023-01-04

tft每日頭條

> 科技

> access數據庫查詢字段知識點

access數據庫查詢字段知識點

相关科技资讯推荐

热门科技资讯推荐

网友关注