office交流網--QQ交流群號

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

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

Access常用代碼

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

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

  

分享
北京十一选五基本走势