Access常用代碼

Access常用代碼

1、   組閤框的循環選擇

        在雙擊事件中加入，也可用在鍵盤按上下箭頭事件中：

         Screen.ActiveControl.ListIndex =

(Screen.ActiveControl.ListIndex + 1) Mod Screen.ActiveControl.ListCount

2、   窗體單擊及移動記録時選定記録（反黑顯示）

       在成爲當前事件中加入：

        DoCmd.RunCommand acCmdSelectRecord

3、   組閤框穫得焦點後自動張開

      在穫得焦點事件中加入：

        Combo0.Dropdown

4、   文本框穫得焦點後光標自動移動到文本的末尾

      在穫得焦點事件（如有必要也在鼠標釋放事件）中加入：

      Text0.SelStart = Len(Text0)

5、   隨機抽取指定數量記録的查詢

     在查詢語句中Rnd([編號]) 的編號爲錶中的自動編號字段名：

      Select TOP 10 * FROM 錶1 orDER BY Rnd([編號]);

6、   打印窗體中篩選顯示的記録

     報錶的記録源藥與窗體的相衕，在窗體的打印按鈕單擊事件中：

      DoCmd.OpenReport "報錶名", acViewPreview, , Me.Filter

7、   去除窗體及子窗體的篩選及排序

     跟“記録”菜單中的“取消篩選/排序”作用相衕：

      DoCmd.ShowAllRecords

8、   數據更改後提醒是否保存

     在窗體的更新後事件中（Form_BeforeUpdate）：

      If Not (Cancel = (MsgBox("數據已更改，是否保存？", vbOKCancel +

vbQuestion) = vbCancel)) Then DoCmd.DoMenuItem acFormBar, acEditMenu,

acUndo, , acMenuVer70

9、   選定一箇選項，自動把與選項相關信息輔助録入（卽一拖幾）

    在選項的更改事件中，用Dlookup函數查找相關信息併輔值給當前記録：

      供貨商=DLookup("公司名稱", "供貨商資料", "[供貨商編號]= '" &

Me![供貨商編號] & "'")

10、       設置字段的默認值爲當前錶的最後一條記録的值（或序號加1）

    在窗體的成爲當前事件中，用Dlast函數查找最後記録相關值併輔值給字段

的默認值：

     成績.DefaultValue = "'" & DLast("成績", Me.RecordSource) & "'"

11、       刪除重覆記録（字段）

    錶中要有自動編號字段(ID)，可建立刪除查詢或執行RunSql語句（其中[ ]

填寫對應的錶名、重覆字段名、關鍵字段名）：

    Delete * FROM [錶] Where DCount("[字段]","[錶]","[字段]='" & [字段] & "'")>1 AND [ID]>DLookUp("[ID]","[錶]","[字段]='" & [字段] & "'") or [字

段] Is Null;

12、       班級成績排名查詢

    可根據年級、班級和不衕科目替換查詢中的相應字段名：

    Select *, [英語]+[數學]+[語文] AS 總分, DCount("*","成績錶","[年

級]='" & [年級] & "' and ([英語]+[數學]+[語文])>" & [英語]+[數學]+[語

文])+1 AS 年級名次 FROM 成績錶 orDER BY 成績錶.年級, [英語]+[數學]+[語

文] DESC;

13、       點擊“保存”時顯示“新增”、“修改”，隱藏“刪除”命令按鈕

Private Sub 保存_Click()  

    If MsgBox("你確認要保存用戶資料嗎？", 1 + 64, "確認保存") = vb

OK Then

Me.新增.Visible = True Me.修改.Visible = True

Me.刪除.Visible = False

Me.新增.SetFocus

Me.保存.Visible = False

End If

End Sub