穨ac3-3.PDF

Size: px

Start display at page:

Download "穨ac3-3.PDF"

加史
5 years ago
Views:

1 3-1 Access Event Click OnClick Click OnClick AfterUpdate BeforeUpdate On After Before << >> VBA( ) 3-1

2 3-1 Access Open Load Sub Funtion Sub Funtion Private

3 Me Me Forms Reports Form Report VisualBasic VBA Access 2000 Visual Basic Visual Basic Visaul Basic 3-2 Form_People People VBA

4 3-2 (Form) (Report) AfterDelConfirm AfterInsert AfterUpdate BeforeUpdate BeforeDelConfirm ACCESS ( Delete ) BeforeInsert OnActivate OnApplyFilter ( )

5 OnChange OnClick OnDblClick OnClose OnCurrent OnDeactivate OnError OnDirty OnEnter ( GotFocus ) OnExit ( LostFocus ) OnDelete OnFilter OnFormat

6 OnGotFocus OnLostFocus OnKeyDown OnKeyPress ANSI OnKeyUp OnLoad OnOpen OnResize OnTimer OnUnload OnUpdated OLE OnMouseDown OnMouseMove

7 OnMouseUp OnNoData OnNotInList OnPage OnPrint OnRetreat ( Page ) ACCESS 3-1 Access 2000 OnDirty

8 << >> VBA

$KeyCode 3-3 3-3 KeyCode 3-3 Ch3\3-2\Key.$

9 KeyPress KeyUp KeyDown KeyPress ASCII KeyDown KeyUp KeyCode KeyCode 3-3 Ch3\3-2\Key.mdb KeyDown KeyCode 3-3 KeyPreview

10 KeyCode Enter 13 A Z PageUp PageDown F1 F Tab 9 Del 46 Home End Esc 27 Insert KeyCode vbkey A vbkeyaf1 vbkeyf1 Enter vbkeyreturn vbkeyenter << >> KeyDown KeyUp KeyCode KeyCode KeyDown KeyUp KeyUp KeyDown KeyUp KeyDown KeyUp KeyDown KeyUp 3-4

$3-4 KeyUp 3-4 Ch3\3-2\Key.$

11 3-4 KeyUp 3-4 Ch3\3-2\Key.mdb KeyUp KeyUp KeyCode KeyDown KeyUp Shift Ctrl Shift Alt 3-5

$3-5 KeyDown Ctrl 3-6 Ch3\3-2\Key.$

12 3-5 KeyDown Ctrl 3-6 Ch3\3-2\Key.mdb KeyDown Ctrl+L (intctrldown) 1002 Shift acctrlmask 0 KeyCode << >> 3-5 Ctrl Shift Alt acctrlmask acshiftmask acaltmask KeyDown KeyUp KeyPress KeyDown KeyUp KeyPress KeyAscii

13 ASCII ASCII KeyCode KeyAscii MouseMove MouseDown MouseUp Click DbClick Click DbClick DoubleClick Ch3\3-2\Mouse.mdb 3-6

14 3-6 DblClick DblClick 3-7 DblClick Form_DblClick AfterUpdate

$MouseUp MouseMove Ch3\3-2\Mouse.$

15 MouseUp MouseMove Ch3\3-2\Mouse.mdb lastcontrol chcolor MouseMove lastcontrol lastcontrol MouseUp 3-9

16 3-9 MouseUp 3-9 Button 2( ) IsNull ShortcutMenu( ) << >> MouseUp MouseMove MouseDown Button( ) Shift( Ctrl Shift Alt ) X Y( ) Button 1( ) 2( ) Shift 3-5 X Y Twips Access BeforeUpdate 3-10

$3-10 BeforeUpdate BeforeUpdate Be foreupdate AfterUpdate BeforeUpdate 3-10 Ch3\3-2\Record.$

17 3-10 BeforeUpdate BeforeUpdate Be foreupdate AfterUpdate BeforeUpdate 3-10 Ch3\3-2\Record.mdb saveprompt True BeforeUpdate False << >> BeforeUpdate Cancel True(Cancel=True) BeforeInsert 3-11

$3-11 BeforeInsert 3-11 Ch3\3-2\Record.$

18 3-11 BeforeInsert 3-11 Ch3\3-2\Record.mdb BeforeUpdate saveprompt BeforeInsert ( ) 1010 BeforeUpdate 1

$1 << >> BeforeInsert Access = * VBA 3-12 3-12 3-12 Ch3\3-2\Record.$

19 1 << >> BeforeInsert Access = * VBA Ch3\3-2\Record.mdb AfterUpdate IsNull IsNumeric AfterUpdate Format Me![ ] = Format(Me![ ] * Me![ ], "###.00") Ch3\3-2\Record.mdb Format Format

$Load Load Open 3-13 3-13 Load 3-13 Ch3\3-2\Record.$

20 AfterUpdate << >> AfterUpdate Recordset Load Open Load Current Open Load Current Open (Cancel=True) Load Load Open Load 3-13 Ch3\3-2\Record.mdb 3-10 Load Dlookup Label70 Maximize Docmd << >> Dlookup

21 Recordset Docmd Docmd. DoCmd.Maximize Minimize ESC Access 2000 Dirty Cancel True DoCmd.RunCommand accmdundo 3-10 BeforeUpdate << >> VBA Dirty If Me.Dirty=True Then End If Dirty True False Access ( ) Ch3\3-2\Record.mdb

22 3-14 Click Click DoCmd.RunCommand accmddeleterecord RunCommand Access 2000 accmd On Error Resume Next Delete BeforeDelConfirm AfterDelConfirm 3-14 BeforeDelConfirm MsgBox vbno Cancel=True Response = acdataerrcontinue vbyes BeforeDelConfirm Cancel True AfterDelConfirm Status 3-14 AfterDelConfirm << >>

23 DeleteID BeforeDelConfirm _ DeleteID Execute 3-16 _

24 From * Where NotInList NotInList Ch3\3-2\Record.mdb Tab 3-17

25 3-17 NotInList 3-17 NotInList Me![ ].Text Requry << >> NotInList NotInList

$Access Timer TimerInterval 0 1000 Timer Ch3\3-2\Record.$

26 Access Timer TimerInterval Timer Ch3\3-2\Record.mdb TimerInterval 1000 Timer Timer 3-19 AfterUpdate Timer 1001 ShowD True Timer SendKeys ESC << >>

$Retreat Ch3\3-2\Rpt.$

27 Timer TimerInterval 0 Timer Timer Format Print Retreat Ch3\3-2\Rpt.mdb Format Print Format Print

$3-22 3-22 Ch3\3-2\Rpt.$

28 MOD ( ) twips 567 twips << >> 3-21 Format Ch3\3-2\Rpt.mdb 1 p 1001 Page Format _Page Access _Format Access e/mm/dd 89 3

$26 Ch3\3-2\Rpt.$ $convertdate Access Ch3\3-2\Rpt.$

29 26 Ch3\3-2\Rpt.mdb convertdate convertdate Access Ch3\3-2\Rpt.mdb Module convertdate converttotext

30 convertdate yy mm dd << >> Ch3\3-2\Rpt.mdb 3-24 Access Ch3\3-2\Rpt.mdb _ Open _ 3-25

31 Open 1002 _ _ << >> Open 3-25 Page

$Line B BF (ForeColor ) Access VBA 3-26 3-26 3-26 Ch3\3-2\Rpt.$

32 Line B BF (ForeColor ) Access VBA Ch3\3-2\Rpt.mdb 3-26 Print Print 3-22 << >> Format Print Print 3-22 Format Print Format Open

$3-2-5 3-27 3-27 3-27 Ch3\3-2\Record.$

33 Ch3\3-2\Record.mdb AfterUpdate AfterDelConfirm Status acdeleteok( ) AfterUpdate << >> 3-27 Private

34 AfterUpdate Form_.AfterUpdate Cancel True BeforeUpdate AfterUpdate BeforeUpdate Cancel True AfterUpdate Docmd.CancelEvent CancelEvent Cancel << >> Access 2000 Access 2000

穨文件1

穨文件1 2-1 Access 2000 Visual Basic Access 2000 97 Office Visual Basic Visual Basic Visual Basic VBA Visual Basic Visual Basic 2-1-1 Visual Basic Access Visual Basic ( ) 2-1 2-1 Visual Basic 2-1 Microsoft Access

穨ac3-3.PDF

穨ac3-3.PDF