Microsoft Access 1
2
Private Sub After5days_Click( ) msg = Date + 5 MsgBox mag End Sub 3
Me.Filter = " =' " & Me! & "'" 4
5
Private Sub _Click() If IsNull(Me!) Then MsgBox " " Me!.SetFocus Me!.Dropdown Exit Sub Else End Sub 6
Private Sub _Click() Me.FilterOn = False = Null End Sub OpenReport(ReportName, View, FilterName, WhereCondition) 7
Private Sub _Click( ) DoCmd OpenReport "R",acViewPreview,, _ "ID = " & Forms!F!ID DoCmd.Maximize DoCmd.RunCommand accmdzoom100 End Sub 8
9
On Error Resume Next 10
SELECT T., T.TEL FROM T; 11
SELECT T.* FROM T; SELECT T., T.[select] WHERE (((T.)=" ")) 12
13
14
15
Private Sub OK_Click( ) If fname = "" Then MsgBox "" Exit Sub End If } DoCmd.TransferSpreadsheet acexport, acspreadsheettypeexcel9, _} Me!, fname & ".xls" MsgBox "" DoCmd.Close End Sub 16
17
18
19
Dim db As DAO.Database Set db = DBEngine.OpenDatabase(".mdb") Private Sub _Click( ) Set rs = Me.Form.RecordsetClone rs.movefirst Do Until rs.eof rs.edit End Sub 20
Private Sub _Click( ) Loop rs.movelast Me.Bookmark = rs.bookmark rs.close End Sub 21