函數(shù)庫學(xué)習(xí)筆記

學(xué)習(xí)筆記

天津園林建設(shè)管理部(TJLAPM)

2017-2

目錄

通用函數(shù)庫......................................................................................5

1.PinYin()拼音碼函數(shù)..........................................................................12

2.OpenADORecordset函數(shù)..................................................................12

3.CheckRequired函數(shù).......................................................................12

4.HasPermission權(quán)限功能......................................................................13

5.窗體加載事件給組合框賦上行來源并實現(xiàn)智能篩選..............................................14

6.商品編碼發(fā)生重復(fù)時提醒并自動跳轉(zhuǎn)到重復(fù)項.................................................14

7.ApplyThemeMe'應(yīng)用主題顏色............................................................15

8.SQLText函數(shù)...............................................................................15

9.刷新子窗體代碼示例'RefreshDataList刷新窗體應(yīng)用...........................................16

lO.ExportToExcel函數(shù)........................................................................17

11.行號能自動顯示序號GetLineNumber([Form])....................................................................................................18

12.刪除數(shù)據(jù)..................................................................................18

13.添加新商品”命令按鈕......................................................................19

14.經(jīng)辦人和制單人改為組合框后，賦上默認(rèn)值..................................................19

15.GetAutoNumber函數(shù).....................................................................19

16.根據(jù)單據(jù)類型顯示相關(guān)的訂單號(級聯(lián)篩選)...................................................20

17.日期選擇...................................................................................20

18.根據(jù)條件改變子窗體數(shù)據(jù)源..................................................................21

19.DatePickerFor函數(shù).......................................................................22

204雌件.......................................................................................22

21.ClearControlValues函數(shù)..................................................................24

22.禁止修改"最近采購日期"的相關(guān)設(shè)置......................................................24

23.Dcount.......................................................................................................................................................24

24.子窗體數(shù)據(jù)源改變..........................................................................25

25.窗體打開模式、OpenArgs傳遞.............................................................25

26.vba代碼太長，換行........................................................................26

27.數(shù)據(jù)刷新...................................................................................26

28.快速書寫SQL語句........................................................................26

29.CurrentDb.Execute執(zhí)行sql語句...........................................................27

3O.Enabled屬性與Locked屬性的區(qū)別..........................................................28

31.SelectAIIListBoxItems函數(shù)................................................................29

32,LTrim,RTrim,及Trim函數(shù)示例.............................................................29

33.在窗體上顯示當(dāng)前記錄和總記錄數(shù)............................................................29

34.ForEachin...next詳解用法................................................................30

35.DAO使用書簽進(jìn)行搜索并同步窗體的方法.....................................................31

36.SelectAIIListBoxItems函數(shù).................................................................32

37.Dirty屬性.................................................................................32

38.主子窗體計算...............................................................................33

39.VBA文件對話框(Application.FileDialog屬性)的常用屬性與方法的解釋......................33

40.LoadRecord新平臺........................................................................36

41.表關(guān)系.....................................................................................36

42.選擇并添加商品.............................................................................37

43.審核按鈕...................................................................................41

44.完成按鈕...................................................................................43

45.錯誤2448,：您不能將數(shù)值指定給這個對象...................................................44

46.附件改進(jìn)型.................................................................................45

47.輸入框焦點變色...........................................................................45

48.撤消審核..................................................................................46

49.三種來源的區(qū)別............................................................................46

50.打開窗體圖標(biāo)顯示錯誤.....................................................................47

51.打印后標(biāo)記為已打印.......................................................................47

52.窗體打開后不加載數(shù)據(jù).....................................................................47

53.批量更新拼音碼.............................................................................47

54.數(shù)據(jù)直詢模塊..............................................................................48

55.通用查詢?nèi)绾螌崿F(xiàn)默認(rèn)當(dāng)天或當(dāng)月/本月或默認(rèn)其它指定值....................................52

56.指定列表框或組合框中默認(rèn)值的所在行......................................................54

57.智能篩選條件使用變量.....................................................................55

58.通用附件模塊使用..........................................................................55

59.樹控件報錯................................................................................56

通用函數(shù)庫

分類#函數(shù)名用途說明

1GetObjDesc取得數(shù)據(jù)庫對象（表、查詢、窗體、報表、宏、模塊）的說明。

取得表中的唯一標(biāo)識字段名，優(yōu)先取設(shè)為主鍵的字段，如果沒有主鍵，則取第1個存在的設(shè)為

2GetUniqueFieldName

無重復(fù)索引的字段。主鍵和索引僅限于單字段的情況下。

根據(jù)表名、查詢名，取得一個無標(biāo)記名稱，主要用于去掉應(yīng)用了命名約定時的一些額外的內(nèi)容，

3GetUnsignedObjectName

Access對象如tbICustomers,返回Customer。

信息獲取將指定表對象、查詢對象、或DAO記錄集對象中的字段信息，加載到一個AD。記錄集中，并

4LoadFieldList

將記錄集綁定到指定對象。

加載表、臨時表、查詢、窗體、報表幾種類型的對象名稱到一個支持Recordset的對象中（列

5LoadRDPObjectList表框、組合框、窗體）。對象可以是多種，用十號連接，rotTable+rotForm,傳入的參數(shù)中

對象只有1種時，加載的記錄集只有Name字段，否則會包含Name、Type字段。

6ExpandRibbon最大化/最小化功能區(qū)。

7IsChildForm判斷指定窗體是否以子窗體形式打開。

判斷窗體是否已打開。

Access對象8IsLoaded

狀態(tài)判斷及9NavPannelVisible判斷導(dǎo)航窗格的可見性。

控制

10ObjectExists判斷表、查詢、窗體等數(shù)據(jù)庫對象是否存在。

11ShowRibbon顯示/隱藏功能區(qū)。

12ShowNavPannel顯示/隱藏導(dǎo)航窗格。

13AAvgDAvg的ADO實現(xiàn)，默認(rèn)使用到后臺數(shù)據(jù)庫的連接實現(xiàn)。

14ACountDCount的ADO實現(xiàn)，默認(rèn)使用到后臺數(shù)據(jù)庫的連接實現(xiàn)。

15ADORunSQL用ADO方式一次運行一個或多個SQL操作查詢語句，默認(rèn)使用到后臺數(shù)據(jù)庫的連接。

ADO封裝，數(shù)

16ALookup□Lookup的ADO實現(xiàn)，默認(rèn)使用到后臺數(shù)據(jù)庫的連接實現(xiàn)。

據(jù)庫連接

17AMaxDMax的ADO實現(xiàn)，默認(rèn)使用到后臺數(shù)據(jù)庫的連接實現(xiàn)。

18AMinDMin的ADO實現(xiàn)，默認(rèn)使用到后臺數(shù)據(jù)庫的連接實現(xiàn)。

19GetADOConnection返回后臺數(shù)據(jù)庫的AD。連接。

20GetODBCConnectionString取得后臺數(shù)據(jù)庫的。DBC連接字串。

21OpenADORecordset打開一個ADO記錄集，默認(rèn)使用到后臺數(shù)據(jù)庫的連接。

22SQLDate將一個日期格式化為符合SQL語法的格式。

SQL格式化

23SQLText將一個字符串格式化為符合SQL語法的格式。

24DeleteRegKey刪除注冊表鍵值。

Windows注

25GetRegKey取得注冊表鍵值。

冊表讀寫

26SaveRegKey保存注冊表鍵值。

27GetDbSetting取得自定義數(shù)據(jù)庫屬性。

28GetFormProperty取得自定義窗體屬性。

29GetParameter取得本地或全局系統(tǒng)參數(shù)的值。

參數(shù)讀寫

30SaveDbSetting保存自定義數(shù)據(jù)庫屬性。

31SaveFormProperty保存自定義窗體屬性。

32SetParameter設(shè)置本地或全局系統(tǒng)參數(shù)。

33GetKeyState獲取指定按鍵的狀態(tài)。

34LockWindowUpdate鎖定窗口，禁止更新。

窗口控制

35MoveWindow移動指定窗口（以像素為單位）。

36UpdateWindow立即更新窗口。

37DatePickerFor在指定控件（一般為文本框）下方顯示日歷，并返回在日歷中點擊選擇的日期作為控件值。

38GetSaveAsFileName顯示一個另存為對話框，并返回用戶通過對話框選擇的另存為文件路徑名。

VBA內(nèi)置的MsgBox函數(shù)的擴展，增加了根據(jù)不同的圖標(biāo)自動顯示不同的標(biāo)題，以及指定時間

對話框39MsgBoxEx

內(nèi)自動關(guān)閉的功能。

40PickColor顯示一個顏色對話框，并返回用戶通過對話框選擇的顏色值。

41PickFile顯示一個文件選擇對話框，并返回用戶通過對話框選擇的一個或多個文件的路徑名?

42PickFolder顯示一個樹形結(jié)構(gòu)的目錄選擇對話框，并返回用戶在對話框中選擇的文件夾的路徑.

43MessageBeep根據(jù)不同的消息類型發(fā)出聲音。

多媒體

44PlaySound播放指定的聲音。

45DES3DES對稱加密。

加密/解密

46MD5MD5文本摘要計算。

47FirstDayOfMonth返回指定日期所在月份的第一天。

48LastDayOfMonth返回指定日期所在月份的最后一天。

日期處理

49FirstDayOfWeek返回指定日期所在周的第一天。

50LastDayOfWeek返回指定日期所在周的最后一天。

51GetLunarDate將日期轉(zhuǎn)換為中國農(nóng)歷（中文格式或數(shù)字格式）。

52LunarToChrist將農(nóng)歷日期轉(zhuǎn)換為公歷日期。

上傳下載53URLDownloadToFile根據(jù)URL路徑從網(wǎng)絡(luò)下載文件到本地。

54CheckAIITreeNodes將整個TreeView（或指定節(jié)點下）所有節(jié)點前面的復(fù)選框勾選/取消勾選。

樹控件55ExpandAIITreeNodes將整個TreeView（或指定節(jié)點下）所有節(jié)點展開或折疊。

(TreeView)

56GetTreeNodeLevel取得TreeView中指定節(jié)點的層級數(shù)。

57TreeNodeExists判斷TreeView中指定索引或鍵對應(yīng)的節(jié)點是否存在。

58ExportToExcel將當(dāng)前數(shù)據(jù)表視圖中的數(shù)據(jù)導(dǎo)出到Excelo

數(shù)據(jù)導(dǎo)入導(dǎo)

出59ImportFromExcel從Excel導(dǎo)入數(shù)據(jù)。

60CheckRequired根據(jù)Tag屬性中的標(biāo)記，驗證數(shù)據(jù)編輯窗體中的必填項是否為空，并自動提示。

數(shù)據(jù)錄入輔檢查窗體上的所有設(shè)置了標(biāo)記的輸入控件，驗證其文本長度是否超過了允許的最大長度，如果

61CheckTextLength

助有則顯示提示消息。

62ClearControlValues清空所有控件的值。

63GetLineNumber取得窗體記錄集中的動態(tài)行號。

64RequeryDataObject刷新數(shù)據(jù)，并自動定位到刷新之前的行。

65SelectAIIListBoxItems全選/取消全選列表框中的項（列表框需要允許全選）。

66RoundDown向下取整，只舍不入。

數(shù)值處理67Roundoff四舍五入。

68RoundUp向上取整，只入不舍。

數(shù)組69GetArrayltemlndex取得指定數(shù)組項的索引值。

70CreateMultiDir創(chuàng)建多級目錄，不需要像MkDir那樣必須一級一級的創(chuàng)建。

71PathFileExists判斷文件夾或文件是否存在。

文件、目錄操

72PathFileOperation移動、刪除、復(fù)制、重命名整個文件夾，或者多個文件，主要用于文件的批量操作。

作

73CAB將指定文件進(jìn)行壓縮打包生成CAB格式壓縮文件。

74UnCAB將CAB格式壓縮文件解壓出來另存為指定文件路徑名?

75GeBaseBoardld取得主板序列號。

76GetDiskDriveld取得硬盤序列號。

硬件信息獲77GetlPV4Address取得本機的IPV4地址。

取78GetlPV6Address取得本機的IPV6地址。

79GetMACAddress取得網(wǎng)卡的物理地址。

80GetProcessorld取得CPU序列號。

指針形狀控81SetCursor設(shè)置鼠標(biāo)指針為指定的內(nèi)置樣式。

制82SetHandCursor設(shè)置鼠標(biāo)指針為手形。

83CnDate將日期轉(zhuǎn)換為中文大寫日期。

中文格式轉(zhuǎn)

84CnMoney將一個貨幣類型的數(shù)字轉(zhuǎn)換為中文大寫金額。

換

85CnNumber將阿拉伯?dāng)?shù)字轉(zhuǎn)換為中文大寫數(shù)字。

86LoadLocalLanguage加載本地語言。

資源加載

87LoadPictureTolmageList加載lmages\lcons文件夾中的所有圖標(biāo)到指定ImageList控件。

88Loadstring根據(jù)Key加載本地化字符串。

89RandomPicture取得一個存在的隨機圖片的路徑名。

90ComputerlD根據(jù)CPU、主板、硬盤信息生成一個唯一標(biāo)識碼。

自動編號91GetAutoNumber根據(jù)預(yù)定義的規(guī)則，生成一個自動文本型編號。

92GetGUID生成一個全球唯一標(biāo)識碼。

93CountStr查詢一個字符串在另一個字符串中出現(xiàn)的次數(shù)。

字符串處理

94RepeatStr將指定字符串進(jìn)行多次重復(fù)。

95CompressFile將壓縮為CAB文件，或從CAB文件中解壓出來。使用Windows自帶功能，減少依賴性。

96CopyToLocalTable將表對象復(fù)制為一個本地表對象。

創(chuàng)建一個UMVSupportLibrary.ucl支持庫文件中類模塊的新實例，僅包括：PopupProgressBar,

97Createlnstance

GeneralQuery,FileSearch,FTPServer。

其它98HideAIITables隱藏/顯示所有表。

99IsInternetConnected判斷是否連接到互聯(lián)網(wǎng)。

100Reportsheet在打印報表時自動畫表格。

101ShellExecute打開程序、文件、超鏈接，運行命令行等。

102Sleep讓程序暫停指定毫秒數(shù)。

103WriteOperationLog寫入操作日志。

新增一一保存-單擊

DimrstAsObject

DimstrSQLAsString

DimMaxIDAsString

DimcurrentIDAsString

DimstrFrmAsString

IfIsNull(Me.txtygxm)Then

MsgBox”請輸入員工姓名!，vbCritical,"提示”

Me.txtygxm.SetFocus

ExitSub

EndIf

MaxID=DMaxf'tyglD]","tbICodeyg")

currentID="Y"&Format(Val(Right$(MaxlD/2)+1),"00")

strSQL="select*fromtbICodeyg"

Setrst=CurrentDb.OpenRecordset(strSQLzdbOpenDynaset)

rst.AddNew

rst!yglD=currentID

rstlygxm=Me.txtygxm

rst.Update

rst.Close

Setrst=Nothing

Me.txtygxm=Null

strFrm=Form_frmYg_sg_Main!frmChild.Sourceobject

Form__frmYg_sg_Main!frmChild.SourceObject=strFrm

MsgBox”您錄入的數(shù)據(jù)保存已成功！，vblnformation,“消息”

修改----加載

DimrstAsObject

DimstrSQLAsString

DimcurrentIDAsString

currentID=Form_frmyg_sgJist.Form.yglD

strSQL="select*fromtbICodeygwhereygID="'¤tID&

Setrst=CurrentDb.OpenRecordset(strSQL,dbOpenDynaset)

rst.MoveFirst

Me.txtygxm=rstlygxm

rst.Close

Setrst=Nothing

修改---保存-單擊

DimrstAsObject

DimstrSQLAsString

DimcurrentIDAsString

DimstrFrmAsstring

IfIsNull(Me.txtygxm)Then

MsgBox”員工姓名不允許空缺，請錄入相關(guān)數(shù)據(jù)！:vbCritical,”提示“

Me.txtygxm.SetFocus

ExitSub

EndIf

currentID=Form_frmYg_sg_List.Form.yglD

strSQL="select*fromtbICodeygwhereygID='"¤tID&

Setrst=CurrentDb.OpenRecordset(strSQL,dbOpenDynaset)

rst.MoveFirst

rst.Edit

rst!ygxm=Me.txtygxm

rst.Update

rst.Close

Setrst=Nothing

DoEvents

strFrm=Form_frmYg_sg_Main!frmChild.SourceObject

Form_frmYg_sg_Main!frmChild.SourceObject=strFrm

MsgBox”您提交的數(shù)據(jù)更新已完成！，vblnformation,“消息”

DoCmd.CloseacForm,"frmYg_sg_Edit"

刖除-單i

DimstrSQLAsString

DimcurrentIDAsString

currentID=Form_frmYg_sg_List.Form.yglD

strSQL="DELETEtbICodeyg.*FROMtbICodeygWHEREyglD='"¤tID&

IfMsgBox("您確認(rèn)要刪除當(dāng)前已選擇的記錄么？",vbOKCancel,"提示")=vbOKThen

DoCmd.SetWarningsFalse

DoCmd.RunSQLstrSQL

DoCmd.SetWarningsTrue

DoEvents

Form_frmYg_sg_Main!frmChild.SourceObject=Form_frmYg_sg_Main!frmChild.SourceObject

MsgBox"您所選擇的記錄已被刪除!",vblnformation,"消息"

EndIf

1.PinYin()拼音碼函數(shù)

Me!拼音碼=PinYin(Me!供應(yīng)商名稱)

2.OpenADORecordset函數(shù)

打開并返回一個ADO記錄集。

語法

OpenADORecordset(RecordSource[,LockType][,Connection])

必需/

參數(shù)名稱數(shù)據(jù)類型說明

可選

記錄集數(shù)據(jù)源。一般是一個SQL語句，注意該語句需要符合對應(yīng)的

RecordSource必需String

后臺數(shù)據(jù)庫的SQL語法，而不能完全使用Access的SQL語法。

記錄集鎖定類型。如果省略此參數(shù)，將默認(rèn)使用adLockReadOnly,

LockType可選ADOLockTypeEnum

即返回一個只讀記錄集。

ADO連接對象(ADODB.Connection)或連接字符串。只有當(dāng)需要打

Connection可選Variant開至其它數(shù)據(jù)庫的連接的時候才用到該參數(shù)。如果省略此參數(shù)，將

默認(rèn)使用GetADOConnection函數(shù)的返回值連接至后臺數(shù)據(jù)庫。

返回值

記錄集正確打開時返回對應(yīng)的ADO記錄集(ADODB.Recordset),打開失敗時返回Nothing。

說明

對ADO記錄集的打開所做的二次簡化封裝，只需要一行代碼即可實現(xiàn)ADO記錄集的打開，從而更加簡單易用。

原型

PublicFunctionOpenADORecordset(RecordsourceAsString,_

OptionalLockTypeAsADOLockTypeEnum=adLockReadOnly,_

OptionalConnectionAsVariant_

)AsObject

相關(guān)引用

OpenADORecordset函數(shù)

示例

'打開客戶信息表對應(yīng)的只讀記錄集

Setrst=OpenADORecordset("SELECT*FROM客戶信息表")

'打開客戶信息表對應(yīng)的只讀記錄集并將其綁定到組合框

SetMe.cboCustomer.Recordset=OpenADORecordset("SELECT*FROM客戶信息表”)

3.CheckRequired函數(shù)

檢查窗體上的所有設(shè)置了標(biāo)記的輸入控件的值是否為空，如果有為空的輸入控件則顯示提示消息并自動將焦點移

到該控件。

示例

PrivateSubbtnSave_Click()

IfCheckRequired(Me)ThenExitSub'如果有必填項為空，則退出過程不再繼續(xù)保存操作

IfCheckTextLength(Me)ThenExitSub'如果有文本字段的長度超過最大長度，則退出過程不再繼續(xù)保存操作

'其它保存數(shù)據(jù)相關(guān)的代碼

EndSub

4.HasPermission權(quán)限功能

PrivatemdctPermissionListAsCollection

PrivateSubForm_Open(CancelAsInteger)

'其它代碼省略

'btn添加分類、btn修改分類、btn刪除分類這3個按鈕均通過〃商品分類樹維護(hù)〃這一個權(quán)限項來控制

Me.btn添加商品分類.Enabled=mdctPermissionList("商品分類樹維護(hù)”)

Me.btn修改商品分類.Enabled=mdctPermissionList("商品分類樹維護(hù)”)

Me.btn刪除商品分類.Enabled=mdctPermissionList("商品分類樹維護(hù)")

EndSub

PrivateSubForm_Open(CancelAsInteger)

SetmdctPermissionList=LoadPermissions(“庫存查詢，Me)

IfNotmdctPermissionList("<AccessModule>")Then

ExitSub

EndIf

ApplyThemeMe'應(yīng)用主題顏色

EndSub

序號”模塊名稱關(guān)聯(lián)菜單允

1供應(yīng)商信息供應(yīng)商信息

02客戶信息客戶信息

93商品信.商品信息

許

序T功能名稱0

新增\0

2CopyToNew0

編輯0

刪除0

5導(dǎo)入0

6導(dǎo)出0

7Refresh0

8關(guān)閉^

9商品分類樹維護(hù)

EnableButtonMe.btn添加商品分類,HasPermission（"商尾棺息"，"商品分類樹維護(hù)"）

EnableButtonMe.btn修改商品分類,HasPermission（"商品信息"商品分類樹維護(hù)"》

EnableButtonMe.btn刪除商品分類,HasPermission（"商品信息"，嘀品分類樹維護(hù)"）

使用方法：HasPermission（"模塊名稱"，"權(quán)限名稱"）返回：True或者False

應(yīng)用：Me.btnAudit.Enabled=HasPermission（"采購訂單管理"，"審核"）

5.窗體加載事件給組合框賦上行來源并實現(xiàn)智能篩選

PrivatemclsSC商品IDAsNewSearchComboBox'聲明一個組合框動態(tài)篩選類并將其實例化

PrivateSubForm_Load()

mclsSC商品ID.InitCombo:=Me.商品ID,_

SearchField:="商品編碼&品名規(guī)格&拼音碼",_

SQLSELECT:="商品ID,商品編碼，品名規(guī)格，單位，最新進(jìn)價AS單價",

SQLFROM:="商品信息表"，一

SQLWHERE:="已停用=0",_

SQLORDERBY:="品名規(guī)格，商品編碼"

EndSub

PrivateSubForm_Close()

mclsSC單位名稱:Nothing，對象清空

EndSub

說明：

SearchField:指要搜索的字段有哪些

SQLSELECT:指SQL代碼

SQLWHERE:指條件

SQLORDERBY：指排序方式

PrivateSub商品ID_AfterUpdate。

Me.品名規(guī)格二Me.商品ID.Column(2),2代表第3歹！J,下同

Me.單位=Me.商品ID.Column(3)

Me.庫存數(shù)量二Me!商品ID.Column⑷

Me.成本價=Me!商品ID.Column(5)

Me.售價二Me!商品ID.Column⑹

Me.單價二Nz(Me.售價,Me.單價)

Me.數(shù)量=Nz(Me.數(shù)量,1)

Me.已出庫數(shù)量=0

Me.Dirty=False

EndSub

6.商品編碼發(fā)生重復(fù)時提醒并自動四煉專到重復(fù)項

將字段〃商品ID〃設(shè)置為主鍵

PrivateSubForm_Error(DataErrAsInteger;ResponseAsInteger)

ConstconDuplicateKey=3022

DimstrMsgAsString

Debug.PrintDataErr

IfDataErr=conDuplicateKeyThen

Response=acDataErrContinue

strMsg二”商品編碼不允許重復(fù)，請重新選擇！”

Me.商品ID.SetFocus

MsgBoxstrMsg,vbCritical,"提示"

Me.商品ID=Null

Me.undo'可使用Undo方法清除對某個包含無效輸入的記錄的更改

EndIf

EndSub

自動跳轉(zhuǎn)方法：

PrivateSub商品ID_AfterUpdate()

OnErrorGoToErrorHandler

DimstrlDAsString

Me!商品編碼二Me.商品ID.Column(l)

Me.品名規(guī)格二Me.商品ID.Column(2)

Me.單位二Me.商品ID.Column(3)

Me.單價=Me.商品ID.Column⑷

Me.數(shù)量=Nz(Me!數(shù)量,1)

Me.己入庫數(shù)量=0

Me.Dirty=False

ExitHere:

ExitSub

ErrorHandler:

SelectCaseErr

Case3022

MsgBoxEx"同樣的商品不能重復(fù)添加，請直接修改數(shù)量。vbExclamation,"提示”

3trlD=Me.商品ID

Me.Undo

Me.Recordset.MoveFirst

Me.Recordset.FindFirst”商品ID="&stride，&SQLText(strlD)

Me.數(shù)量.SetFocus

CaseElse

MsgBoxExErr.Description,vbCritical

EndSelect

ResumeExitHere

EndSub

7.ApplyThemeMe'應(yīng)用主題顏色

8.SQLText函數(shù)

返回經(jīng)過SQL語法格式化處理的字符串。

strSQL="DELETEFROMCustomersWHERECustomerName=""&Me.txtCustomerName&"*"，常規(guī)寫法，含有單引

號時會出錯

strSQL="DELETEFROMCustomersWHERECustomerName="&SQLText(Me.txtCustomerName)'使用SQLText函數(shù)的

寫法，不會出錯

9.刷新子窗體代碼示例\RefreshDataList刷新窗體應(yīng)用

用示例中子窗體frm到站來舉例：

第一步.在編輯窗體《保存按鈕單擊事件里》加上

Form_frm到站.RefreshDataList'調(diào)用子窗體里自定義刷新函數(shù)。如下圖

XIISL.EU1'

國Form_Tempiate_Forrst.AddNew

圖Formfrm至l|站_____EndIf

至］站rst!［到耕］=Me!倒因

Form￡rmlEditrst!［車重］=Me!［車看］

國Form_￡rm到站_Listrst.Update

圖Form_SysFrmAboutMe!［ID］=rst!［ID］

rst.Close

國Form_SysFrmkctivat

國Form_SysFrmAutoNuir三￡ortn_丘m到蟹Refr此州ataidst'調(diào)用子窗體(￡rm到站)里自定義刷新函數(shù)

國Form_SysFrmChangeFMsgBoxKx"保存成功！”,一vblntormation

匡］Form_SysFrmDataMoc

IfMe.DataEntryThen

圖Form__SysFrmDbServeClearControlValuesMe

圖Form_SysFrmDeveloiElse

FZHIFAvmSTJURVERTPSOVT.DoCmd.CloseacForm?Me.Name,acSaveNo

第二步.在子窗體frm到站里加上自定義刷新函數(shù)及觸發(fā)事件就OK了

PublicSubRefreshDataList()'自定義函數(shù)，供編輯窗體調(diào)用

Me.Timerlnterval=200’0.2秒后執(zhí)行觸發(fā)事件Form_Timer()來刷新子窗體

EndSub

PrivateSubForm_Timer()

RequeryDataObjectMe.sfrList涮新綁定窗體中的數(shù)據(jù)

Me.Timerlnterval=0

EndSub

如下圖

FslForm_Tempiate_ForResumeExitHere

Form￡rm到站EndSub

l：§］Formfrm^l|?t5Edit

圖Form_￡rm到站JListPublicSubRefreshDataList0自定義的數(shù)上供強輯窗體調(diào)用

圖Form_SysFrmAboutMe.TimerInterval=200，0.2秒后嵐行觸發(fā)事件丁orm_Timer()來刷新子窗體

EndSub

圖Form_SysFrmActivat

圖Form_SysFrmAutoNwrFrlVR?queryD^bjectrMe.sfrLisi用輸?shù)念~據(jù)，并重新定位到原來記錄行或滿足指定條件的行上。

RslForm_SysFrmChangeF

EndSub_______________________________________________________________________________________________________________

國Form_SysFrmDataMoc

Q新墻巖編輯X刪除⑥打印預(yù)覽哥打印畛導(dǎo)入咤導(dǎo)出

—H包含團|11朝]

查占條件-------------------------------------------------------------------------------

ID到站一；車矍這是平臺通用查詢

1蘭州165.68

c—士r1-7C匚c

另外:假如子窗體還帶上平臺通用查詢，那還要加上一段代碼

IfmclsQueryIsNothingThen'若用到平臺通用查詢，就要加上這段，否則查詢會出錯

CallForm_Load

Else

mclsQuery.DataForm=Me.sfrList.Form

EndIf

如下圖：

PrivateSubForm_Timer()，計時器觸發(fā)事件

RequeryDataObjectMe.sfrList'輸薪奔走窗體中的數(shù)據(jù)，并重新定位到原來記錄行或薪足指定條件的行上。

IfmclsQueryIsNothingThen'若用到斗臺通用查詢，就要加上這段，否則查詢會出錯

CallFormLoad

Else

mclsQuery.DataForm=Me.sfrList.Form

EndIf

Me.Timerinterval=0

EndSub

總結(jié)：

此文自定義RefreshDataList函數(shù)作用是調(diào)用RequeryDataObject刷新函數(shù)

RequeryDataObject才是快速平臺刷新窗體真正函數(shù)，它定義在代碼庫里。

意思是刷新綁定窗體中的數(shù)據(jù)，并重新定位到原來記錄行或滿足指定條件的行上。

相關(guān)示例

SubTest()

RequeryDataObjectMe，刷新當(dāng)前窗體中的數(shù)據(jù)

RequeryDataObjectMe.sfrOrderDetail，刷新sfrOrderDetail子窗體中的數(shù)據(jù)

RequeryDataObjectMe.sfrOrderDetail,"OrderlD=144"，刷新sfrOrderDetail子窗體中的數(shù)據(jù)，并重新定位到

OrderlD等于144的記錄行

EndSub

PrivateSubForm_Timer0

RequeryDataObjectMe.sfrList

IfmclsQueryIsNothingThen一一

'CallForm_Load

SetmclsQuery=NewGeneralQuery