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 Visual Basic 2-1 Visual Basic Visual Basic 2-1 Form_ 2-1-2 Visual Basic 2-2 Visual Basic Visual Basic
2-2 2-3 2-3 2-3 12 Visual Basic 2-3 2-4
2-4 2-4 VBA Access Access Access 2-5 2-5
2-5 Visual Basic 2-1-3 Visual Basic bas cls bas cls Visual Basic 2-6 2-6 Visual Basic Visual Basic cls Visual Basic cls Visual Basic Visual Basic Access 2-6 frm Visual Basic bas Access Visual Basic 2-1-4 1-10
Access Outlook Outlook Access Basic Outlook Visual Basic Access Visual Basic ActiveX 2-1-5 db1 2-7 2-7 2-7
Visual Basic F1 ( ) #If...Then...#Else #Const condebug = 1 Sub TEST() End Sub #If condebug = 1 Then #Else. #End If condebug = 1 #If #Else If Else End If 2-7 condebug 2-7 condebug=1 #Const condebug = 1 2-7 2-8
2-8 2-8 Visual Basic Visual Basic 2-8 2-8 Access Access 2000 Visual Basic
2-2 Access VBA 2-2-1 2-1 Sub test() Enter test AfterUpdate
2-2-2 VBA x=me![ ] * Me![ ] Me * x VBA VBA x=format(me![ ] * Me![ ], ##.00 ) Format Date() Time()
Date=InputBox( ) Date InputBox MsgBox " ", vbokonly, " " MsgBox MsgBox VBA Date Date MsgBox MsgBox VBA x=format(me![ ] * Me![ ], ##.00 ) Me![ ]= Format(Me![ ] * Me![ ], ##.00 ) AfterUpdate
00 Then If IsNumeric(Me![ ])=True And IsNumeric(Me![ ])=True Else End If Me![ ]= Format(Me![ ] * Me![ ], ##.00 ) MsgBox IsNumeric True False
2-3 VBA 2-3-1 Access VBA Visual Basic Dim Public 2-9 2-9 Public 2-9 1 totalc uid
2-3-2 Sub Test() End Sub Sub Test End Sub Sub Function 2-9 Start Property Property Let Property Set Property Get VBA Sub Function 2-3-3 Visual Basic 2-10
2-10 2-10 2-10 2-10 2-11 2-11 2-11 2-10 Public Public Function After45() Private Function After45() 2-10 Public Static Sub Test() Static
VBA 2-10 Sub Test() Enter Public Private 2-3-4 Sub Sub. 2-12 2-12 2-12 AfterDelConfirm AfterUpdate AfterDelConfirm Form_AfterUpdate AfterUpdate Prvate Function 2-13
2-13 2-13 Access 2000 2-13 2-14 2-14 2-14 Autoexec
RunCode =Stsrt() Stsrt ( ) 2-15 2-15 2-15 Tax Access Tax dpath 1 2-15 2-13 2-15 2-13 2-15 ( )
Ba sic
2-4 2-4-1 VBA VBA Ch2\2-4\Var.mdb Module1 Start 2-16 2-16 2-16 2-16 1001
oform String( ) 1002 oform 1003 oform 1004 1005 oform Access 2-16 oform oform 1003 1004 1004 oform 2-16 1004 1004 OpenForm Docmd.OpenForm VBA VBA
VBA VBA Ch2\2-4\Var.mdb 2-17 2-17 2-17 Filter Filter Like Click 2-18 2-18 2-17 1002 1004 For Each
Me![ ].ItemData(varItm) 2-18 1003 D D 2-17 1002 1004 D 2-19 2-19 2-19 D Access D or like " or like '" & Me![ ].ItemData(varItm) & "'" & " or like '" VBA Me![ ].ItemData(varItm) VBA or like VBA
VBA & & Me.Caption= Caption Me.Caption=InputBox( ) InputBox Me.Caption=Forms( ).Caption VBA ( ) SQL VBA 2-19 1003 2-4-2 VBA Enter 2-20
2-20 2-20 If b.recordcount = 0 Then recordcount VBA Enter RecordCount VBA 2-20 b VBA 2-21 2-21 MsgBox 2-21 If MsgBox( MsgBox MsgBox prompt 2-22
2-22 VBA 2-22 MsgBox 2-22 vbyesno 2-23 2-23 2-23 = VBA MsgBox 2-23 vbyes VBA 1-14 2-23 2-2
VBA Basic VBA F1 2-24 2-24 Access 2000 2-24 CurrentDB F1 Access Visual Basic Access F1 2-24 2-24 2-25
2-25 2-25 Basic Visual Basic Visual Basic ADO DAO Access 2000 Jet SQL Jet SQL Office 2000 2-25 Office 2-25 2-25 F1 VBA Visual Basic
2-26 2-26 2-26 VBA VBA 2-26 Recordset Enter Recordset 2-26 2-26 Basic ( ) 2-22 2-23 MsgBox vbyes vbyesno
If MsgBox(,4)=6 Then 4 vbyesno 7 vbyes 2-22 2-23 2-27 2-27 2-27 MsgBox VbMsgBoxStyle vbyesno Const vbyesno=4 4 vbyesno VBA 2-4-3 VBA
2-28 2-28 2-28 Enter 2-28 Public Dim Option Compare Database( ) Text( ) Binary( ) Option Compare Database Option Base 0 1 Option Base 1 1 Option Explicit Basic VBA Option Explicit
Option Private Module Option 2-2 Option Compare Database Option Explicit 2-29 2-29 & _ _ & Dlookup & Basic 2-28 For Next
If End If Basic If End 2-30 2-30 2-30 If End If End Sub End If End Sub Basic If If 2-31
2-31 2-31 If End If Do Loop 2-31 Do Loop b.edit b.movenext Do Loop Do If Else End If 2-31 Enter
Tab Tab 2-2 4 Tab VBA 2-32 2-32 2-32 ( ) Basic Basic 2-33
2-33 2-33 1001 1010 VBA Word
2-5 Word Excel Access 2-5-1 F5 2-34 2-34 2-34 Start F5 Sub UserForm F8 F8 AfterUpdate
2-5-2 2-35 2-35 2-35 ( ) 2-35 F9
F9 2-35 Stop 2-36 Stop 2-36 Stop Ctrl+Break Stop Stop 2-37
2-37 2-37 m.recordcount <> 0 m Recordset m 0 2-38 2-38 2-38
2-39 2-39 2-39 F5 F8 Cancel 0(False) BeforeUpdate Me Me 2-40
2-40 2-40?me.Caption Cancel=True me.caption? Cancel False True Enter 2-40 cancel=true e Enter F8 F5 F5 F8 2-41 2-41 2-41 1008 1006 ( )
<< >>