Access常用代碼

Access常用代碼

1、   組合框的循環(huán)選擇

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

         Screen.ActiveControl.ListIndex =

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

2、   窗體單擊及移動(dòng)記錄時(shí)選定記錄（反黑顯示）

       在成為當(dāng)前事件中加入：

        DoCmd.RunCommand acCmdSelectRecord

3、   組合框獲得焦點(diǎn)后自動(dòng)張開

      在獲得焦點(diǎn)事件中加入：

        Combo0.Dropdown

4、   文本框獲得焦點(diǎn)后光標(biāo)自動(dòng)移動(dòng)到文本的末尾

      在獲得焦點(diǎn)事件（如有必要也在鼠標(biāo)釋放事件）中加入：

      Text0.SelStart = Len(Text0)

5、   隨機(jī)抽取指定數(shù)量記錄的查詢

     在查詢語(yǔ)句中Rnd([編號(hào)]) 的編號(hào)為表中的自動(dòng)編號(hào)字段名：

      Select TOP 10 * FROM 表1 orDER BY Rnd([編號(hào)]);

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

     報(bào)表的記錄源藥與窗體的相同，在窗體的打印按鈕單擊事件中：

      DoCmd.OpenReport "報(bào)表名", 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、   選定一個(gè)選項(xiàng)，自動(dòng)把與選項(xiàng)相關(guān)信息輔助錄入（即一拖幾）

    在選項(xiàng)的更改事件中，用Dlookup函數(shù)查找相關(guān)信息并輔值給當(dāng)前記錄：

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

Me![供貨商編號(hào)] & "'")

10、       設(shè)置字段的默認(rèn)值為當(dāng)前表的最后一條記錄的值（或序號(hào)加1）

    在窗體的成為當(dāng)前事件中，用Dlast函數(shù)查找最后記錄相關(guān)值并輔值給字段

的默認(rèn)值：

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

11、       刪除重復(fù)記錄（字段）

    表中要有自動(dòng)編號(hào)字段(ID)，可建立刪除查詢或執(zhí)行RunSql語(yǔ)句（其中[ ]

填寫對(duì)應(yīng)的表名、重復(fù)字段名、關(guān)鍵字段名）：

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

段] Is Null;

12、       班級(jí)成績(jī)排名查詢

    可根據(jù)年級(jí)、班級(jí)和不同科目替換查詢中的相應(yīng)字段名：

    Select *, [英語(yǔ)]+[數(shù)學(xué)]+[語(yǔ)文] AS 總分, DCount("*","成績(jī)表","[年

級(jí)]='" & [年級(jí)] & "' and ([英語(yǔ)]+[數(shù)學(xué)]+[語(yǔ)文])>" & [英語(yǔ)]+[數(shù)學(xué)]+[語(yǔ)

文])+1 AS 年級(jí)名次 FROM 成績(jī)表 orDER BY 成績(jī)表.年級(jí), [英語(yǔ)]+[數(shù)學(xué)]+[語(yǔ)

文] DESC;

13、       點(diǎn)擊“保存”時(shí)顯示“新增”、“修改”，隱藏“刪除”命令按鈕

Private Sub 保存_Click()  

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

OK Then

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

Me.刪除.Visible = False

Me.新增.SetFocus

Me.保存.Visible = False

End If

End Sub