office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access常用代碼

2017-07-31 14:38:00
來自網絡
轉貼
12553

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

  

分享