欢迎来到得力文库 - 分享文档赚钱的网站! | 帮助中心 好文档才是您的得力助手!
得力文库 - 分享文档赚钱的网站
全部分类
  • 研究报告>
  • 管理文献>
  • 标准材料>
  • 技术资料>
  • 教育专区>
  • 应用文书>
  • 生活休闲>
  • 考试试题>
  • pptx模板>
  • 工商注册>
  • 期刊短文>
  • 图片设计>
  • ImageVerifierCode 换一换

    Access VBA程序设计.ppt

    • 资源ID:1694741       资源大小:125.50KB        全文页数:16页
    • 资源格式: PPT        下载积分:10金币
    快捷下载 游客一键下载
    会员登录下载
    微信登录下载
    三方登录下载: 微信开放平台登录   QQ登录  
    二维码
    微信扫一扫登录
    下载资源需要10金币
    邮箱/手机:
    温馨提示:
    快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
    如填写123,账号就是123,密码也是123。
    支付方式: 支付宝    微信支付   
    验证码:   换一换

     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    Access VBA程序设计.ppt

    Access VBA程序设计,本章重点Access Basic编程语言运算符、函数与表达式Access Basic语句模块的使用Access Basic的扩展性,VBA 程序的开发环境,VBA中的程序与函数共有种,分别是:一般程序(Sub)、事件程序(Event)、属性程序(Property)和函数(Function)VBA程序窗口有代码窗口、立即窗口、本地窗口、监视窗口、工程资源管理器和属性窗口等种窗口。,Access Basic编程语言,在进行Access的VBA编程之前,要了解Access Basic的基本编程语言一、数据类型二、变量定义三、变量的作用域,.对象型,Access中有种对象型,是在程序中操作数据库的途径,操作数据库都是通过操作各种数据库对象的属性和方法来实现的。分别为:Database,Workspace,Document,Container,User,Group,Report,Control,TableDef,QueryDef,Recordset,Field,Index,Relation,Parameter,Property.,二、变量定义,在Access中用来定义变量的关键词有:Dim,Static,Global,ReDim.1.Dim,这是使用最多的一个关键词,其语法定义如下:Dim 变量名 As 类型名Dim 数组名(下标范围)s 类型名Dim 动态数组名() s 类型名Dim 数组名(下标开始值 To 下标结束值) As 类型名,例如,Dim nNum(10,10) As IntegerDim nNum(-10 To 10,1To 5) As Integer2.Static,用来定义一个模块级的静态变量。语法格式为: Static 变量名 As 类型Static 数组名(下标)As 类型3.Global,用来定义一个全局变量。语法格式为:Global 变量名 As 类型名Global 数组名(下标范围) As 类型名Global 动态数组名()As 类型名,例如:Global nNumber As IntegerGlobal nNumber ()As IntegerGlobal nNum(10,10) As Integer,三、变量的作用域,程序中声明的每个变量都有作用域,超出它的作用域后,变量就失去作用,成为没有定义的字符。Access中变量的作用域有3类。(1)全局变量,这种变量在数据库应用系统中的所有地方都可以使用,定义一个全局变量只能在模块对象中进行,使用Global来定义。(2)对象级变量,可以在一个对象(窗体、报表、模块)中的任何地方使用,不能跨越所在的对象。在对象的General中进行定义,使用Dim关键词。(3)模块级变量,只能在一个模块中使用,不能跨出模块,这种变量即常用的局部变量。,10.4 Access Basic 语句,Access支持结构化语言中的顺序、分支、循环语句,另外还有一些特殊作用的功能语句。一、GOTO语句 VBA的GOTO Labal语句可以跳过一些代码块到Labal的位置,并从该点继续执行。Labal标号要从代码的最左边(第一列)开始写,这个位置通常会影响代码的缩进格式。一般情况下不要使用GOTO语句。在VBA程序中使用GOTO语句的唯一一个目的就是用On Error GoTo Labal语句来处理错误。,二、IF语句,If/Then/End if语句是典型的判断分支控制语句。语法格式为:If 条件=True Then 条件为真时执行的语句End if 另外还可以使用嵌套IF语句格式:If条件1=TrueThen条件为真时执行的语句Elself条件2=True Then条件1不成立但条件2成立时,执行的语句End if,例如,下面的IF语句用来判断一个字符是否是字母,而且判断它的大小写。If Asc(strChar)>63 And Asc(strChar96 And Asc(strChar<123) ThenstrCharType=“小写字母”End If,二、Select语句,当有多种选择时,使用If Else语句,这样的语句需要多重嵌套,使得程序十分复杂,不容易读,这时就可以使用Select语句,Select语句是一个多分支控制语句。语法格式为:Select Case表达式 Case值1 语句1 Case值2 语句2 Case Else 语句End select,例如:下面语句用来对字母进行判断,Select Case strChar Case “A”To “Z” strCharType=“大写字母” Case “a”To “z” strCharType=“小写字母” Case “0”To “9” strCharType=“数字字母” Case “!”,”?”,”.”,”,”;” strCharType=“标点符号” Case “” strCharType=“空格” Case <32 strCharType=“特殊字母” Case Else strCharType=“其它字母”End Select,四、For语句,For语句是最常用的循环控制语句。语法格式为:For 变量=开始值 To 结束值 Step 步长 循环执行语句Next 变量例如:下面使用For语句为数值赋初始值。For nLeter=1 To 26 strChar(nLeter)=Char(nLeter+63)Next nLeter 注意 当STEP不写时,默认的步长是1。,五、DO语句,Do语句是另外一种循环语句,有两种格式:Do WhileLoop和Do UntilLoop.1.Do while 条件= True 循环语句,含有“条件”的变更语句Loop2.Do Until 条件 True(或Not 条件) 循环语句Loop,六、功能语句,AppactivateBeepChDriveDataDelete ControlDelete Report ControlDoCmdEraseMsgBox 使用格式为:MsgBox(msg ,type,title)Set 使用格式为:Set ObjName=ObjectValue.Time,

    注意事项

    本文(Access VBA程序设计.ppt)为本站会员(创****公)主动上传,得力文库 - 分享文档赚钱的网站仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知得力文库 - 分享文档赚钱的网站(点击联系客服),我们立即给予删除!

    温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。




    关于得利文库 - 版权申诉 - 用户使用规则 - 积分规则 - 联系我们

    本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知得利文库网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

    工信部备案号:黑ICP备15003705号-8 |  经营许可证:黑B2-20190332号 |   黑公网安备:91230400333293403D

    © 2020-2023 www.deliwenku.com 得利文库. All Rights Reserved 黑龙江转换宝科技有限公司 

    黑龙江省互联网违法和不良信息举报
    举报电话:0468-3380021 邮箱:hgswwxb@163.com  

    收起
    展开