|
一句話代碼：
1,、組合框的循環(huán)選擇 在雙擊事件中加入,，也可用在鍵盤按上下箭頭事件中： Screen.ActiveControl.ListIndex = (Screen.ActiveControl.ListIndex + 1) Mod Screen.ActiveControl.ListCount 2、窗體單擊及移動記錄時選定記錄（反黑顯示） 在成為當前事件中加入： DoCmd.RunCommand acCmdSelectRecord 3,、組合框獲得焦點后自動張開 在獲得焦點事件中加入： Combo0.Dropdown 4,、文本框獲得焦點后光標自動移動到文本的末尾 在獲得焦點事件（如有必要也在鼠標釋放事件）中加入： Text0.SelStart = Len(Text0) 5、隨機抽取指定數(shù)量記錄的查詢 在查詢語句中Rnd([編號]) 的編號為表中的自動編號字段名： Select TOP 10 * FROM 表1 orDER BY Rnd([編號]); 6,、打印窗體中篩選顯示的記錄 報表的記錄源藥與窗體的相同,，在窗體的打印按鈕單擊事件中： DoCmd.OpenReport "報表名", acViewPreview, , Me.Filter 7、去除窗體及子窗體的篩選及排序 跟“記錄”菜單中的“取消篩選/排序”作用相同： DoCmd.ShowAllRecords 8,、數(shù)據(jù)更改后提醒是否保存 在窗體的更新后事件中（Form_BeforeUpdate）： If Not (Cancel = (MsgBox("數(shù)據(jù)已更改,，是否保存？", vbOKCancel + vbQuestion) = vbCancel)) Then DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 9,、選定一個選項,，自動把與選項相關(guān)信息輔助錄入（即一拖幾） 在選項的更改事件中，用Dlookup函數(shù)查找相關(guān)信息并輔值給當前記錄： 供貨商=DLookup("公司名稱", "供貨商資料", "[供貨商編號]= '" & Me![供貨商編號] & "'") 10,、設置字段的默認值為當前表的最后一條記錄的值（或序號加1） 在窗體的成為當前事件中,，用Dlast函數(shù)查找最后記錄相關(guān)值并輔值給字段的默認值： 成績.DefaultValue = "'" & DLast("成績", Me.RecordSource) & "'" 11、刪除重復記錄（字段） 表中要有自動編號字段(ID),，可建立刪除查詢或執(zhí)行RunSql語句（其中[ ]填寫對應的表名,、重復字段名、關(guān)鍵字段名）： Delete * FROM [表] Where DCount("[字段]","[表]","[字段]='" & [字段] & "'")>1 AND [ID]>DLookUp("[ID]","[表]","[字段]='" & [字段] & "'") or [字段] Is Null; 12,、班級成績排名查詢 可根據(jù)年級,、班級和不同科目替換查詢中的相應字段名： Select *, [英語]+[數(shù)學]+[語文] AS 總分, DCount("*","成績表","[年級]='" & [年級] & "' and ([英語]+[數(shù)學]+[語文])>" & [英語]+[數(shù)學]+[語文])+1 AS 年級名次 FROM 成績表 orDER BY 成績表.年級, [英語]+[數(shù)學]+[語文] DESC; 13、防止公式文本框引起窗體抖動 如果窗體中使用了計算公式作為文本框的數(shù)據(jù)源,，這可能會導致窗體一打開或者移動鼠標等引起窗體刷新時,，窗體不停的抖動，這可在窗體的加載事件中加入： Me.Recalc 14,、查找與該控件匹配的記錄 如何使窗體轉(zhuǎn)到組合框或文本框中輸入的指定記錄,，用組合框的向?qū)е锌梢宰詣由烧Z句，也可在控件的更新后事件中使用下面一句語句： Me.Recordset.FindFirst "[ID] = " & Str(Nz(Me![Combo1], 0)) |
|
|
