Access VBA活用范例大辭典

Chapter 01 Access基礎(chǔ)操作技巧 1
◎VBA編輯器 2
001 顯示VBA編輯器 2
002 調(diào)用編輯工具欄 4
003 設(shè)置代碼的顯示效果 5
004 通過視圖菜單打開窗口 6
005 設(shè)置強制性聲明變量 7

◎過程、模塊與語句 9
006 創(chuàng)建Sub過程 9
007 創(chuàng)建Function程序 10
008 定義有作用域的過程 13
009 創(chuàng)建標準模塊和類模塊 13
010 導入與導出模塊 14
011 直接刪除指定模塊 15
012 快速定位到某個過程 16
013 拆分代碼窗口 17
014 調(diào)用Sub過程 17
015 遞歸調(diào)用中的參數(shù)傳遞 19

◎內(nèi)置函數(shù) 21
016 顯示消息對話框（1） 21
017 顯示消息對話框（2） 22
018 顯示輸入對話框 24
019 根據(jù)條件表達式的結(jié)果返回不同值 25
020 判斷是否為空值 27
021 判斷變量是否被初始化 29
022 取得字符串長度 30
023 使用RGB()函數(shù)設(shè)置顏色 32

◎VBA中的定義 33
024 VBA中的命名規(guī)則 33
025 讓變量名更有意義 34
026 定義常量 34
027 定義變量 35
028 定義數(shù)組 35
029 定義動態(tài)數(shù)組 36
030 自定義數(shù)據(jù)類型 36
031 定義具有作用域的變量 38
032 定義靜態(tài)變量 41
033 使用定義的常量 42
034 使用內(nèi)置常量 44

◎流程語句 45
035 直線流程結(jié)構(gòu) 45
036 簡單條件分支結(jié)構(gòu) 47
037 多條件分支結(jié)構(gòu)（1） 48
038 多條件分支結(jié)構(gòu)（2） 51
039 具有包含關(guān)系的條件分支結(jié)構(gòu) 53
040 進行循環(huán)判斷 55
041 進行判斷循環(huán)（1） 57
042 進行判斷循環(huán)（2） 59
043 進行計次循環(huán) 61
044 強制跳出循環(huán) 62

◎錯誤處理及工程安全 64
045 使用On Error GoTo處理錯誤 64
046 獲取程序的具體錯誤信息（1） 66
047 獲取程序的具體錯誤信息（2） 67
048 如何提示是否執(zhí)行宏操作 69
049 創(chuàng)建數(shù)字證書 70
050 為數(shù)據(jù)庫應用數(shù)字證書 71
051 保護VBA代碼 71

Chapter 02 控件和對象的使用技巧 72
◎在窗體上操作控件 73
052 向窗體添加控件 73
053 第一次為控件添加代碼 73
054 在代碼中對窗體控件的引用 75
055 使用ME關(guān)鍵字快速引用當前窗體上的控件 76
056 快速獲取表、查詢、窗體或報表的名稱列表 78
057 設(shè)置控件的可見性 80
058 指定控件是否可以接受焦點 83
059 指定一個控件能否被編輯 84
060 定位控件 86
061 設(shè)置控件大小 87
062 設(shè)置控件邊框 91
063 指定控件是否透明 92
064 設(shè)置控件中的字體的屬性 94
065 使標簽具有閃爍效果 95
066 獲得焦點及失去焦點時字段變更顏色 97

◎獲取控件的數(shù)據(jù) 99
067 獲取文本框中的數(shù)據(jù) 99
068 獲取組合框中的數(shù)據(jù) 100
069 獲取列表框中的數(shù)據(jù) 102
070 獲取多列列表框某列中的數(shù)據(jù)（1） 103
071 獲取多列列表框某列中的數(shù)據(jù)（2） 104
072 獲取選項控件中的數(shù)據(jù) 106

◎數(shù)據(jù)庫對象的引用 108
073 引用當前數(shù)據(jù)庫 108
074 引用指定路徑的數(shù)據(jù)庫 110
075 引用數(shù)據(jù)庫中的表 112
076 通過編寫SQL來引用指定記錄集 113
077 引用窗體或報表中的記錄集 116
078 連接到當前數(shù)據(jù)庫 118
079 獲取已連接數(shù)據(jù)庫指定表的記集 120

◎數(shù)據(jù)庫對象的創(chuàng)建與編輯 122
080 創(chuàng)建數(shù)據(jù)庫 122
081 創(chuàng)建數(shù)據(jù)表并新增字段 124
082 刪除指定數(shù)據(jù)表 126
083 在數(shù)據(jù)表中刪除指定字段 128
084 創(chuàng)建自動編號字段 129
085 創(chuàng)建與刪除索引 131
086 在數(shù)據(jù)表中設(shè)置主鍵 134
087 創(chuàng)建與刪除關(guān)系 136
088 創(chuàng)建與刪除查詢 140

Chapter 03 掌握Access中的對象操作技巧 143
◎應用程序的操作技巧 144
089 啟動與退出Access 144
090 Access界面操作 145
091 打開指定對象 147
092 對象界面大小操作 148

◎窗體的操作 150
093 判斷窗體是否已加載 150
094 設(shè)置窗體的標題 152
095 設(shè)置窗體的高度和寬度 153
096 導航按鈕的顯示和隱藏 155
097 記錄選擇器的顯示和隱藏 156
098 設(shè)置窗體的數(shù)據(jù)源 158
099 設(shè)置窗體中控件的數(shù)據(jù)源（1） 160
100 設(shè)置窗體中控件的數(shù)據(jù)源（2） 161
101 窗體記錄的雙擊事件 164
102 創(chuàng)建以及刪除窗體 166
103 關(guān)閉所有打開的窗體 168
104 調(diào)整窗體的可編輯狀態(tài) 170
105 引用窗體中的控件 172

Chapter 04 數(shù)據(jù)格式處理技巧 174
◎文本的外觀格式 175
106 設(shè)置對象文本的前景顏色 175
107 設(shè)置對象中文本的字號 177
108 將文本加粗顯示 180
109 將文本傾斜顯示 181
110 為文本設(shè)置下劃線 183
111 更改文本的字體 184
112 設(shè)置文本的對齊方式 186
113 設(shè)置文本的排列方式 187
114 控制文本框中的輸入值 189

◎字符串數(shù)據(jù)處理 191
115 英文字母的大小寫轉(zhuǎn)換 191
116 將字符串換行顯示 193
117 獲取指定字符串的長度 194
118 從字符串的左側(cè)截取字符 196
119 實現(xiàn)字符串的任意位置的字符截取 197
120 判斷字符是否在另一個字符串中出現(xiàn) 199
121 快速對某個數(shù)據(jù)進行替換 201

◎數(shù)值數(shù)據(jù)處理 202
122 將數(shù)值轉(zhuǎn)化為貨幣型 202
123 將數(shù)值四舍五入到整數(shù) 204
124 將數(shù)值四舍五入到指定位數(shù) 205
125 對數(shù)值進行取整 207
126 將數(shù)值轉(zhuǎn)換為百分數(shù) 208
127 獲取指定范圍內(nèi)的隨機數(shù) 210
128 獲取指定范圍內(nèi)的隨機整數(shù) 211

◎日期數(shù)據(jù)處理 212
129 獲取系統(tǒng)當前的時間 212
130 獲取系統(tǒng)當前的日期 214
131 獲取系統(tǒng)當前的日期和時間 215
132 將字符串日期轉(zhuǎn)換為標準格式的日期 217
133 將日期格式化 218
134 獲取日期的年月日 220
135 獲取時間的時分秒 221
136 判斷日期對應的星期 222
137 計算兩個日期之間的時間間隔 224
138 計算經(jīng)過X天數(shù)后的日期 226

Chapter 05 數(shù)據(jù)排序技巧序 228
◎通過窗體或報表對記錄排序 229
139 對當前窗體中的數(shù)據(jù)記錄進行排序 229
140 恢復窗體中的數(shù)據(jù)信息排序 230
141 在加載窗體時排序數(shù)據(jù)記錄 232
142 在當前窗體中對數(shù)據(jù)進行多條件排序 234
143 打開其他窗體并進行多條件排序 235
144 加載報表時排序數(shù)據(jù)記錄 237
145 獲取文本框中設(shè)置的字段靈活排序 239
146 通過下拉列表選擇排序條件排序 241
147 自定義多條件來排序數(shù)據(jù) 243
148 通過對話框設(shè)置排序關(guān)鍵字 244
149 在子窗體中排序數(shù)據(jù) 246
150 通過選項按鈕指定排序依據(jù) 248

◎通過查詢排序數(shù)據(jù) 250
151 將查詢中的字段設(shè)置為排序依據(jù)（1） 250
152 將查詢中的字段設(shè)置為排序依據(jù)（2） 252
153 恢復根據(jù)查詢字段排序的順序（1） 254
154 恢復根據(jù)查詢字段排序的順序（2） 257
155 在加載窗體時指定查詢字段排序數(shù)據(jù)（1） 258
156 在加載窗體時指定查詢字段排序數(shù)據(jù)（2） 261
157 通過下拉列表選擇查詢字段作為排序依據(jù)（1） 263
158 通過下拉列表選擇查詢字段作為排序依據(jù)（2） 265
159 指定多個查詢字段對數(shù)據(jù)進行排序（1） 267
160 指定多個查詢字段對數(shù)據(jù)進行排序（2） 269
161 通過下拉列表靈活指定多個查詢字段排序數(shù)據(jù)（1） 272
162 通過下拉列表靈活指定多個查詢字段排序數(shù)據(jù)（2） 274

◎通過編寫SQL語句排序數(shù)據(jù) 276
163 在打開的窗體中顯示排序結(jié)果 276
164 在打開的報表中顯示排序結(jié)果 277
165 在窗體中手動指定排序依據(jù) 279
166 使用多個關(guān)鍵字排序 281
167 通過下拉列表指定多個關(guān)鍵字排序 283
168 自定義序列排序數(shù)據(jù) 284

Chapter 06 數(shù)據(jù)查詢技巧 287
◎逐條查詢技巧 288
169 跳轉(zhuǎn)到下一條記錄 288
170 跳轉(zhuǎn)到第一條記錄 289
171 跳轉(zhuǎn)到最后一條記錄 290
172 跳轉(zhuǎn)到上一條記錄 292
173 定位到指定記錄 293
174 查詢指定數(shù)據(jù)的記錄 295
175 通過在文本框中輸入數(shù)據(jù)來查詢 296
176 繼續(xù)搜尋滿足條件的記錄 298
177 通過在下拉列表框中選擇選項來查詢 299
178 查詢以指定數(shù)據(jù)打頭的記錄 301
179 查詢以指定數(shù)據(jù)結(jié)尾的記錄 302
180 查詢包含某個數(shù)據(jù)的記錄 304
181 在子窗體中查詢記錄 305
182 實現(xiàn)繼續(xù)查詢操作 307
183 不使用通配符查詢包含某個數(shù)據(jù)的記錄 308
184 靈活設(shè)置查詢字段查詢記錄 310
185 使用Like進行模糊查詢 312
186 在立即窗口中顯示查詢結(jié)果（1） 314
187 在立即窗口中顯示查詢結(jié)果（2） 316
188 查詢指定日期的數(shù)據(jù)記錄（1） 317
189 查詢指定日期的數(shù)據(jù)記錄（2） 319
190 使用比較運算符來查詢數(shù)據(jù)記錄 321
191 查詢指定日期范圍內(nèi)的數(shù)據(jù)記錄 323
192 在指定的數(shù)值范圍內(nèi)查詢數(shù)據(jù) 325
193 使用AND關(guān)鍵字如何查詢數(shù)據(jù) 327
194 使用OR關(guān)鍵字如何查詢數(shù)據(jù) 329
195 使用AND關(guān)鍵字和OR關(guān)鍵字如何實現(xiàn)多條件查詢 331
196 處理多條件查詢中沒有指定條件的情況 333

◎同時顯示所有查詢記錄技巧 335
197 快速篩選指定條件的所有數(shù)據(jù)記錄 335
198 恢復篩選之前的效果 336
199 在加載窗體時篩選指定條件的所有記錄 338
200 在文本框中自定義篩選條件篩選數(shù)據(jù) 339
201 模糊篩選包含指定字符的所有數(shù)據(jù)記錄（1） 340
202 模糊篩選包含指定字符的所有數(shù)據(jù)記錄（2） 342
203 打開報表時顯示所有的篩選記錄 344
204 打開報表時指定查詢條件篩選符合的所有數(shù)據(jù)記錄 345
205 在子窗體中篩選指定數(shù)據(jù)范圍內(nèi)的所有數(shù)據(jù)記錄 347
206 將窗體中篩選的所有數(shù)據(jù)記錄顯示在報表中 348
207 查詢指定截止日期之間數(shù)據(jù)記錄（1） 350
208 查詢指定截至日期之間數(shù)據(jù)記錄（2） 352
209 查詢指定日期范圍內(nèi)的所有數(shù)據(jù)記錄（1） 354
210 查詢指定日期范圍內(nèi)的所有數(shù)據(jù)記錄（2） 356
211 顯示指定的數(shù)值范圍內(nèi)的所有數(shù)據(jù)記錄（1） 358
212 顯示指定的數(shù)值范圍內(nèi)的所有數(shù)據(jù)記錄（2） 360
213 使用AND關(guān)鍵字查詢符合條件的所有記錄 362
214 使用OR關(guān)鍵字查詢符合條件的所有記錄 364
215 使用AND關(guān)鍵字和OR關(guān)鍵字查詢符合條件的所有記錄 367
216 將篩選的所有數(shù)據(jù)按照指定順序排序 369

◎通過編寫SQL語句查詢數(shù)據(jù) 371
217 在打開的窗體中顯示所有查詢記錄 371
218 在下拉列表中設(shè)置篩選條件查詢所有記錄 373
219 在文本框中設(shè)置篩選條件查詢所有記錄 374
220 快速恢復篩選結(jié)果 376
221 使用Where語句實現(xiàn)多條件篩選 378
222 使用Where語句在打開的窗體顯示查詢結(jié)果 381

Chapter 07 數(shù)據(jù)記錄的追加、刪除和更新技巧 385
◎追加數(shù)據(jù)技巧 386
223 在數(shù)據(jù)表追加記錄 386
224 判斷新增記錄是否已經(jīng)成功 388
225 在追加記錄時自動添加主鍵 390
226 確認是否需要追加記錄 391
227 在非綁定窗體追加記錄（1） 394
228 在非綁定窗體追加記錄（2） 396

◎刪改數(shù)據(jù)技巧 398
229 刪除第一條數(shù)據(jù)記錄 398
230 刪除最后一條數(shù)據(jù)記錄 400
231 刪除指定位置的數(shù)據(jù)記錄 402
232 逐條刪除符合條件的記錄 404
233 刪除所有符合指定條件的記錄 406
234 刪除指定數(shù)值范圍內(nèi)的所有數(shù)據(jù)記錄 409
235 刪除指定日期范圍內(nèi)的所有數(shù)據(jù)記錄 412
236 修改指定位置的數(shù)據(jù) 415

◎通過編寫SQL語句編輯記錄 417
237 使用SQL語句取得新增主鍵新增記錄 417
238 使用Update語句更新數(shù)據(jù)（1） 420
239 使用Update語句更新數(shù)據(jù)（2） 422
240 在數(shù)據(jù)表中追加查詢記錄 424
241 在數(shù)據(jù)表中刪除記錄 425
242 在數(shù)據(jù)表中新增字段 427
243 在數(shù)據(jù)表中刪除字段 428
244 在數(shù)據(jù)表中修改字段類型 430

Chapter 08 數(shù)據(jù)記錄的統(tǒng)計和打印技巧 432
◎統(tǒng)計數(shù)據(jù)記錄技巧 433
245 統(tǒng)計數(shù)據(jù)表中有多少條數(shù)據(jù)記錄 433
246 統(tǒng)計符合指定條件的數(shù)據(jù)記錄 434
247 統(tǒng)計符合多條件的數(shù)據(jù)記錄 436
248 通過下拉列表設(shè)置統(tǒng)計條件 438
249 通過文本框設(shè)置統(tǒng)計條件 439

◎打印數(shù)據(jù)記錄技巧 441
250 打開“打印”對話框 441
251 打印窗體當前的顯示頁 443
252 打印數(shù)據(jù)表中的數(shù)據(jù) 444
253 將報表內(nèi)容打印成彩色 446
254 設(shè)置打印頁面的大小 447
255 設(shè)置報表打印的頁邊距 449
256 在報表頁腳設(shè)置打印頁碼 451
257 在報表頁面打印水印效果 453
258 將指定數(shù)據(jù)圈釋出來打印 455

Chapter 09 與Office之間的數(shù)據(jù)交換技巧 458
◎Access與Word之間的數(shù)據(jù)讀寫 459
259 通過Access創(chuàng)建空白Word文檔（1） 459
260 通過Access創(chuàng)建空白Word文檔（2） 461
261 通過Access創(chuàng)建空白Word文檔（3） 462
262 創(chuàng)建基于模板的Word文檔 464
263 打開指定的Word文檔 466
264 通過TypeText方法向Word寫入數(shù)據(jù) 468
265 在Word中插入表格 471
266 將Access的數(shù)據(jù)導入Word文檔 473
267 通過文檔屬性將Access數(shù)據(jù)合并到Word 476
268 通過Word書簽將Access數(shù)據(jù)合并到Word 479

◎Access與Excel之間的數(shù)據(jù)讀寫 482
269 使用通用方法啟動Exce1應用程序 482
270 啟動Excel應用程序并新建工作簿 484
271 打開已經(jīng)存在的工作簿 485
272 激活指定工作表 487
273 向單元格輸入數(shù)據(jù) 489
274 將Access的數(shù)據(jù)導入Excel表格 491
275 將窗體中的數(shù)據(jù)寫入工作表編輯區(qū) 493
276 在工作表頂部插入空行 497
277 為數(shù)據(jù)表添加邊框效果 498
278 對表格數(shù)據(jù)設(shè)置字體格式 501
279 設(shè)置工作表的列寬 503
280 獲取單元格中的數(shù)據(jù) 505

Chapter 10 其他的操作技巧 507
◎文件的操作 208
281 從文本文件讀取數(shù)據(jù) 508
282 將文本文件中的數(shù)據(jù)導入數(shù)據(jù)表中 509
283 將窗體中的數(shù)據(jù)保存至文本文檔中 511
284 使用對話框選擇文件 513
285 通過對話框打開文件 515
286 修改指定位置的文件的名稱 517
287 復制指定位置的文件 520
288 刪除指定位置的文件 522
289 新建文件夾 524

◎Web與XML的應用 256
290 啟動郵件管理軟件 526
291 通過郵件將數(shù)據(jù)庫對象寄出去 527
292 將表或者查詢導出為HTML 529
293 將HTML文件導入到Access數(shù)據(jù)庫 531
294 將數(shù)據(jù)庫中的對象導出為XML 533
295 將XML文件導入到Access數(shù)據(jù)庫 535

◎超鏈接的應用 536
296 通過超鏈接打開指定的網(wǎng)頁 536
297 顯示超鏈接連接的位置 538
298 通過超鏈接打開本地文件 540

◎其他常用技巧 542
299 強制展開下拉列表 542
300 拖過代碼創(chuàng)建新的窗體 543
301 組合框的聯(lián)動 545
302 組合框的多級聯(lián)動 547
303 獲取外部數(shù)據(jù)表數(shù)據(jù) 553