欧美第十页,AA视频aa,肏比视频网站,老鸭窝在线观看免费视频

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

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

前沿拓展：

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

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

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.數(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()

員工編號.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

拓展知識：

前沿拓展：

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

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

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.數(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()

員工編號.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

拓展知識：

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

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

相關(guān)推薦

  • 微星筆記本怎么重裝系統(tǒng)(微星筆記本重裝系統(tǒng)按f幾)

    微星筆記本怎么重裝系統(tǒng)(微星筆記本重裝系統(tǒng)按f幾) 各位老鐵們，大家好，今天由我來為大家分享微星筆記本怎么重裝系統(tǒng)(微星筆記本重裝系統(tǒng)按f幾)，以及微星筆記本怎么重裝系統(tǒng)(微星筆記…

    2023年 9月 12日

  • 聯(lián)想筆記本電腦性價比排名(宏碁筆記本電腦性價比排名)

    聯(lián)想筆記本電腦性價比排名(宏碁筆記本電腦性價比排名) 老鐵們好啊，今天小編給大家分享下我們在使用電腦過程中會遇到的一些問題故障該如何處理，熱門電腦游戲需求配置，電腦使用的一些小技巧…

    2023年 8月 16日

  • 電腦主機噪音大(電腦主機噪音大怎么解決)

    電腦主機噪音大的原因 電腦主機噪音大是很多人使用電腦時不得不面對的問題。其主要原因有以下幾個方面。 第一，電腦配件自身的噪音是主機噪音的重要來源。電腦內(nèi)部硬件，如CPU、顯卡、風(fēng)扇…

    電腦百科 2023年 6月 27日

  • 電腦裝機游戲(電腦裝機游戲怎么安裝硬盤)

    1.準備工作 裝機之前必須先了解一些基礎(chǔ)知識，包括各組件的作用、性能優(yōu)劣、相互搭配的原理等等。同時，也需要準備一些必要的工具，如螺絲刀、吸塵器、清潔劑等。如果是初次裝機，最好還要找…

    電腦百科 2023年 6月 16日

  • 8核游戲機(游戲機代碼)

    小標題1：什么是8核游戲機？ 8核游戲機是指裝備有8核心的處理器的游戲主機，它可以在運行多項任務(wù)時確保穩(wěn)定的性能，從而提供更快速、更出色的游戲體驗。首個裝備8核心處理器的游戲主機是…

    電腦百科 2023年 5月 26日

  • 電腦維修行業(yè)會淘汰嗎(電腦維修行業(yè)還有前景嗎)

    電腦維修行業(yè)會淘汰嗎 出品｜虎嗅汽車組 作者｜李文博 編輯｜周到 頭圖｜Lenco 熱刀切黃油般的絲滑**，除了在熱刀切黃油時體驗，還能在什么場景下復(fù)現(xiàn)？ **是：開一臺手動擋汽車…

    電腦百科 2023年 7月 29日

  • 休眠睡眠(休眠睡眠哪個不耗電)

    前沿拓展： 休眠睡眠 休眠和睡眠區(qū)別有：對電量的消耗不同、保存數(shù)據(jù)不同、恢復(fù)的時間不同。 1、對電量消耗不同 睡眠是關(guān)閉除內(nèi)存外的絕大部分硬件設(shè)備的供電，進入低功耗運行狀態(tài)。休眠是…

    2023年 2月 12日

  • amdx4860k上什么主板(amdx4860k相當于什么級別)

    amdx4860k上什么主板(amdx4860k相當于什么級別) 老鐵們好啊，今天小編給大家分享下我們在使用電腦過程中會遇到的一些問題故障該如何處理，熱門電腦游戲需求配置，電腦使用…

    2023年 8月 15日

  • a87650k用什么主板(a87650k升級不換主板)

    a87650k用什么主板(a87650k升級不換主板) 老鐵們好啊，今天小編給大家分享下我們在使用電腦過程中會遇到的一些問題故障該如何處理，熱門電腦游戲需求配置，電腦使用的一些小技…

    2023年 8月 26日

  • 聯(lián)想筆記本2013(聯(lián)想筆記本2013年款橘色)

    老鐵們，大家好，相信還有很多朋友對于聯(lián)想筆記本2013(聯(lián)想筆記本2013年款橘色)和聯(lián)想筆記本2013(聯(lián)想筆記本2013年款橘色)的相關(guān)問題不太懂，沒關(guān)系，今天就由我來為大家分享分享聯(lián)想筆記本2013(聯(lián)想筆記本2013年款橘色)以及聯(lián)想筆記本2013(聯(lián)想筆記本2013年款橘色)的問題，文章篇幅可能偏長，希望可以幫助到大家，下面一起來看

    電腦百科 2024年 3月 28日
5久久| 国产AV无码专区影视| 强暴人妻中文字幕| 日本久久精品视频| 精品久久无码一区| 亚洲国产三级在线观看| Sm免费观看啊啊| 亚洲欧美高清黄| 超碰跳舞| 国产精品三级片大全| 最新 国产 拍在线| 国产精品久久久久的| 国产精品乱码| av成人片在线管类| 偷偷人人精品女女久久| 精品无码A V专区| 日韩人妻一区二区三区| 亚洲综合露脸| 亚洲视频一区久久| 黄YY影视免费啪啪| 成人综合区另类小说色区| 2022精品国偷自产免费观看| 亚洲国产精品白丝在线观看| 亚洲欧洲日韩国产| 日本欧美操屄视频?| 人妻精品网| 2021无码国产在线专区| 精品国产一| 丁香婷婷婷中文字幕在线| 86精品人人人人| 99国产精品无码| 一区二区中文蜜桃视频| 久久亚洲精品国产精品小说| 久久综合欧美| 少妇系列AⅤ| 国产精品久久久久久一区二区 | 国产精品操逼一区二区| 丝袜熟女中文字幕| 日韩AV无码久久一区二区商场| 青青在线视频人视频在线| 国产视频一区在线观看|