久久久精品网站,成人伊人网,色吧av色av,亚洲AV永久无码精品秋霞电影影院

access數(shù)據(jù)庫(kù)(access數(shù)據(jù)庫(kù)導(dǎo)入excel表格)

九賢生活小編 ? ? 電腦百科

前沿拓展：

access數(shù)據(jù)庫(kù)

數(shù)據(jù)庫(kù)，顧名思義：數(shù)據(jù)的倉(cāng)庫(kù)。
當(dāng)使用者需要保存的數(shù)據(jù)量不是很大時(shí)，我們可以直接將數(shù)據(jù)寫到編輯完全可視化，且內(nèi)置強(qiáng)大的Office編程環(huán)境VBA，無(wú)需第三方編程軟件，即可迅速開發(fā)桌面數(shù)據(jù)庫(kù)系統(tǒng)。

Public filter_text As String '定義為公共變量

Private Sub Command查詢_Click()

filter_text = ""

If Me.員工編號(hào) <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 員工編號(hào) like '*" & Me.員工編號(hào) & "*'"

Else

filter_text = "員工編號(hào) like '*" & Me.員工編號(hào) & "*'"

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.數(shù)據(jù)表子窗體.Form.Filter = filter_text

Me.數(shù)據(jù)表子窗體.Form.FilterOn = True

Else

Me.數(shù)據(jù)表子窗體.Form.FilterOn = False

End If

End Sub

Private Sub Command清空_Click()

員工編號(hào).Value = ""

姓名.Value = ""

部門.Value = ""

職位.Value = ""

銷售日期1.Value = ""

銷售日期2.Value = ""

銷售額1.Value = ""

銷售額2.Value = ""

End Sub

Private Sub Command全部_Click()

Me.數(shù)據(jù)表子窗體.Form.FilterOn = False

End Sub

拓展知識(shí)：

前沿拓展：

access數(shù)據(jù)庫(kù)

數(shù)據(jù)庫(kù)，顧名思義：數(shù)據(jù)的倉(cāng)庫(kù)。
當(dāng)使用者需要保存的數(shù)據(jù)量不是很大時(shí)，我們可以直接將數(shù)據(jù)寫到編輯完全可視化，且內(nèi)置強(qiáng)大的Office編程環(huán)境VBA，無(wú)需第三方編程軟件，即可迅速開發(fā)桌面數(shù)據(jù)庫(kù)系統(tǒng)。

Public filter_text As String '定義為公共變量

Private Sub Command查詢_Click()

filter_text = ""

If Me.員工編號(hào) <> "" Then

If filter_text <> "" Then

filter_text = filter_text & " and 員工編號(hào) like '*" & Me.員工編號(hào) & "*'"

Else

filter_text = "員工編號(hào) like '*" & Me.員工編號(hào) & "*'"

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.數(shù)據(jù)表子窗體.Form.Filter = filter_text

Me.數(shù)據(jù)表子窗體.Form.FilterOn = True

Else

Me.數(shù)據(jù)表子窗體.Form.FilterOn = False

End If

End Sub

Private Sub Command清空_Click()

員工編號(hào).Value = ""

姓名.Value = ""

部門.Value = ""

職位.Value = ""

銷售日期1.Value = ""

銷售日期2.Value = ""

銷售額1.Value = ""

銷售額2.Value = ""

End Sub

Private Sub Command全部_Click()

Me.數(shù)據(jù)表子窗體.Form.FilterOn = False

End Sub

拓展知識(shí)：

原創(chuàng)文章，作者：九賢生活小編，如若轉(zhuǎn)載，請(qǐng)注明出處：http://xiesong.cn/37974.html

贊 (0)
上一篇 2023年 2月 13日 pm8:18
下一篇 2023年 2月 13日 pm8:24

相關(guān)推薦

  • 硬件驅(qū)動(dòng)(怎么更新硬件驅(qū)動(dòng))

    前沿拓展： 硬件驅(qū)動(dòng) 驅(qū)動(dòng)程序是**作系統(tǒng)和硬件之間的媒介，就像架設(shè)在系統(tǒng)同硬件之間的橋梁，為**作系統(tǒng)支配硬件工作提供了可能。 如果不安裝驅(qū)動(dòng)程序，**作系統(tǒng)將無(wú)法向硬件下達(dá)指令…

    電腦百科 2023年 2月 15日

  • 酷冷散熱器怎么樣，關(guān)于酷冷散熱器的一些看法

    酷冷散熱器具有哪些優(yōu)點(diǎn)？ 酷冷散熱器采用高質(zhì)量的材料制造，具有良好的散熱效果和可靠性，能夠有效地降低設(shè)備溫度。 酷冷散熱器的適用范圍是什么？ 酷冷散熱器適用于各種類型的電腦設(shè)備，包…

    電腦百科 2023年 3月 30日

  • 2014最強(qiáng)顯卡(2014顯卡天梯)

    2014最強(qiáng)顯卡：英偉達(dá)GTX Titan Z 2014年，英偉達(dá)推出了他們旗艦級(jí)顯卡GTX Titan Z。這款顯卡是巨人級(jí)別的存在，內(nèi)含兩顆GTX Titan Black芯片，…

    電腦百科 2023年 7月 10日

  • msn主頁(yè)(msn主頁(yè)中廣告)

    前沿拓展： msn主頁(yè) 最近有win10用戶跟小編反映：在打開MSN主頁(yè)之后，會(huì)自動(dòng)跳轉(zhuǎn)到hao123.com首頁(yè)的情況，不知道該怎么解決才好，下面小編通過(guò)這篇文章給大家講講解決辦…

    電腦百科 2023年 2月 3日

  • 1155主板淘汰了嗎(1155針主板有哪些型號(hào))

    1155主板淘汰了嗎？——了解1155主板 1155主板是英特爾第二代酷睿處理器主板標(biāo)準(zhǔn)規(guī)范，推出于2011年。它被廣泛運(yùn)用在電腦辦公、游戲、娛樂(lè)等方面，是英特爾最為流行的主板類型…

    電腦百科 2023年 7月 20日

  • windows7 小工具

    前沿拓展： windows7 小工具 　　計(jì)算機(jī)俗稱電腦，是現(xiàn)代一種用于高速計(jì)算的電子計(jì)算機(jī)器，可以進(jìn)行數(shù)值計(jì)算，又可以進(jìn)行邏輯計(jì)算，還具有存儲(chǔ)記憶功媽精氧因務(wù)影溶提責(zé)費(fèi)生能。下面…

    2023年 2月 7日

  • 惠普筆記本售后服務(wù)電話(惠普筆記本售后服務(wù)電話24小時(shí))

    惠普筆記本售后服務(wù)電話 面對(duì)不同價(jià)位的同類產(chǎn)品，大家在選購(gòu)時(shí)的心理預(yù)期是有所不同的。對(duì)于3000元平價(jià)入門級(jí)筆記本來(lái)說(shuō)，大部分用戶秉承著實(shí)用的原則，不會(huì)有過(guò)多的要求，只要性能滿足日…

    電腦百科 2023年 7月 29日

  • 沒(méi)有找到mfc42.dll(沒(méi)有找到iertutil.dll,因此這個(gè)程序未能啟動(dòng))

    前沿拓展： 沒(méi)有找到mfc42.dll 一般在編程序時(shí)擊靜往顯，都是生成了調(diào)試版的程序，就是在那個(gè)Debug目錄下的可執(zhí)行文件。運(yùn)行這調(diào)試版的exe文件，都會(huì)動(dòng)態(tài)連接MFC42D….

    2023年 2月 13日

  • 2019最新游戲主機(jī)配置(游戲主機(jī)配置推薦2022)

    新時(shí)代的游戲主機(jī) 2019年已經(jīng)到來(lái)，新一批游戲主機(jī)也隨之推出。這些新游戲主機(jī)都采用了最新的科技，性能也得到了大幅提升，讓玩家們能夠體驗(yàn)更為流暢的游戲畫面、更高的游戲幀率以及更多的…

    電腦百科 2023年 6月 12日

  • win10裝cc(win10裝CCS3.3)

    前沿拓展： win10裝cc ps cc其實(shí)不需要很高的配置，以現(xiàn)在所賣的筆記本來(lái)看，不管是amd的還是in來(lái)自tel的cpu都可以，存都是8g起步，足夠用，硬盤一般都是固態(tài)，比以…

    2023年 3月 9日
爱色欧美| 国产日韩欧美视频在线观看| 欧美综合之| 欧美色欲网| 色www性张柏芝国产| 欧av一区| 一级毛片成人免费视频| 日本h在线| 一级黄片免费激情| 成人免费视频一区二区三区| 色天堂成人AV电影| a亚洲成人女子| 亚欧在线视频| 国产精品伦视频| 色图 日韩 在线| 4hu影视| 精品久久第一区亚洲| 亚洲热妇无码Av在线播放| 黄色一级免费录像片| 日本免费| gay一区二区三区| 日本久久国产精品| 色欲AV无码精品一区二区久久| 欧日韩无码免费| 欧美国产日本在线观看| 亚洲精品丝袜久久久| av另类| 日韩有码试频| 在线精品福利| 精品精品视频| 永久免费AV站| 亚洲激情综合一区| 在线观看亚洲| 97激情网址| 国产精品美女久久久久久久网站| 亚洲国产qv| 日韩色网| 东京热下载aa| 91视频日本| 噜噜色天天干| 亚洲综合激情久久久久|