access超管用的VBA一句話代碼

超管用的VBA一句話代碼發(fā)表時間：2008-10-249:36:31評論（13）瀏覽（4420）評論|加入收藏|復制摘要:一些常見又經(jīng)常有人問到的問題，一兩句代碼而已，但有時就會讓你撓耳抓腮……正文：有時候，一些看似很難的問題或應用，竟然用一句代碼就可以搞定！下面是我舉的一些例子，也希望大家參與討論，把你平常所用的一句代碼共享出來，我加以整理，放到這里大家共享。一句話代碼：1、 組合框的循環(huán)選擇在雙擊事件中加入，也可用在鍵盤按上下箭頭事件中：Screen.ActiveControl.ListIndex=（Screen.ActiveControl.ListIndex+1）ModScreen.ActiveControl.ListCount2、 窗體單擊及移動記錄時選定記錄（反黑顯示）在成為當前事件中加入：DoCmd.RunCommandacCmdSelectRecord3、 組合框獲得焦點后自動張開在獲得焦點事件中加入：Combo0.Dropdown4、 文本框獲得焦點后光標自動移動到文本的末尾在獲得焦點事件（如有必要也在鼠標釋放事件）中加入：Text0.SelStart=Len（Text0）5、 隨機抽取指定數(shù)量記錄的查詢在查詢語句中Rnd（［編號］）的編號為表中的自動編號字段名：SelectTOP10*FROM表1orDERBYRnd（［編號］）;6、 打印窗體中篩選顯示的記錄報表的記錄源要與窗體的記錄源相同，在窗體的打印按鈕單擊事件中：DoCmd.OpenReport”報表名"，acViewPreview,,Me.Filter7、同時去除窗體及所有子窗體的篩選及排序跟單擊“記錄”菜單中的“取消篩選用E序”作用相同：DoCmd.ShowAllRecords8、 數(shù)據(jù)更改后提醒是否保存在窗體的更新后事件中（Form_BeforeUpdate）：IfNot（Cancel=（MsgBox（‘數(shù)據(jù)已更改，是否保存？",vbOKCancel+vbQuestion）=vbCancel））ThenDoCmd.DoMenuItemacFormBar,acEditMenu,acUndo,,acMenuVer709、 選定一個選項或輸入編碼，在其他字段自動把與選項相關信息輔助錄入（即一拖幾，由編碼自動輸入名稱等）在文本框或組合框的更新后事件中，用Dlookup函數(shù)查找相關信息并輔值給當前記錄其他字段：供貨商=DLookup（"公司名稱”，”供貨商資料”,”［供貨商編號］='"&Me!［供貨商編號］&"”'）10、 設置字段的默認值為當前表的最后一條記錄的值（或序號、最大值加1:用Dmax代替Dlast）在窗體的成為當前事件中，用Dlast函數(shù)查找最后記錄相關值并輔值給字段的默認值：成績.DefaultValue=""'&DLast（"成績”，Me.RecordSource）&""'11、 刪除重復記錄（字段）表中要有自動編號字段（ID），可建立刪除查詢或執(zhí)行RunSql語句（其中［］填寫對應的表名、重復字段名、關鍵字段名）：Delete*FROM［表］WhereDCount（"序段］”,”［表］”,"［字段］='"&［字段］&"'"）＞1AND［ID］＞DLookUp（"［ID］”,"表］”,"［字段］='"&［字段］&"'"）or［字段］IsNull;12、 班級成績排名查詢、生成名次或臨時序號可根據(jù)年級、班級和不同科目替換查詢中的相應字段名：Select*,［英語］+［數(shù)學］+［語文］AS總分,DCount（"*”,”成績表”,”［年級］='"&［年級］&"'and（［英語］+［數(shù)學］+［語文］）＞"&［英語］+［數(shù)學］+［語文］）+1AS年級名次FROM成績表orDERBY成績表.年級,［英語］+［數(shù)學］+［語文］DESC;13、 防止公式文本框引起窗體抖動如果窗體中使用了計算公式作為文本框的數(shù)據(jù)源，這可能會導致窗體一打開或者移動鼠標等引起窗體刷新時，窗體不停的抖動，這可在窗體的加載事件或激活時間中加入：Me.Recalc14、查找與該控件匹配的記錄(用組合框查找記錄)如何使窗體轉到組合框或文本框中輸入的指定記錄，用組