第8章VBA程序设计教学讲义.pptVIP

第8章 VBA程序设计;VBA;8.1 基 本 概 念;模块由过程组成，每一个过程都由一个函数或一个子程序所组成。 过程(Procedure)：是由VB代码组成的。包含一系列执行操作或计算数值的语句和调用对象方法的语句。 ;一个简单的Sub过程;事件驱动： 与宏一样，我们可以在窗体或报表的“事件”中编制事件驱动程序，当事件发生时，模块中相应的过程自动执行。;一、常用的VBA命令 ;1、变量声明： 在引用变量之前应首先定义变量的数据类型。;2、打开操作;3、关闭操作 ;4、输出操作;;5、记录操作;8.2 VBA的基本程序结构 ;1、顺序结构：;2、分支（选择）结构 ; IF 条件语句 ;【实例2】验证密码;事件驱动程序代码;【实例2】若登录时需要用户名和密码的情况;Dim a Text1.SetFocus IF Forms![登录]!Text1 = admin And Forms![登录]!Text2 = 123456 Then DoCmd.Close DoCmd.OpenForm “文物管理封面 Else a = MsgBox(密码错误，请重新输入！, 5 + 48 + 0, 验证) IF a 4 Then Quit Else Text1 = Text2 = Text1.SetFocus End If End If;; IF条件的应用举例 ;Private Sub Command14_Click() Dim strW As String ‘定义条件字符串变量strW 存放条件 strW = 设变量初始值为空字符串 Me.Combo0.SetFocus 焦点放在combo0上 IF Not IsNull(Me.Combo0) Then 判断【类别】条件是否有输入的值 strW = strW ([分类.名称] like Me.Combo0 ) AND 有输入值 End IF IF Not IsNull(Me.Combo2) Then 判断【年代】条件是否有输入的值 strW = strW ([年代] like Me.Combo2 ) AND 有输入值 End IF IF Len(strW) 0 Then 有输入条件 strW = Left(strW, Len(strW) - 5) 用LEFT函数截掉这 and 这5个字符 Else MsgBox 请选择查询条件！, , 提示 End IF Me.Filter = strW 在窗体中显示查询结果 Me.FilterOn = True IF Me.Recordset.RecordCount = 0 Then 用统计查询到满足条件的记录数来判断无符合条件的信息 MsgBox 暂无符合条件的信息!, , 提示 End IF End Sub