(全国二级ACCESS教程第9章VBA数据库编程.pptVIP

下载本文档

2
0
约 27页
2017-01-29 发布于北京
举报
版权申诉

(全国二级ACCESS教程第9章VBA数据库编程.ppt

1、本文档共27页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

(全国二级ACCESS教程第9章VBA数据库编程

Company Logo 第9章 VBA数据库编程 Access数据库程序设计授课教师：邓广彪联系电话电子邮箱：342039882@ Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 9.1.1 VBA常见操作 1、打开和关闭操作 (1) 打开窗体：DoCmd.OpenForm 窗体名 (2) 打开报表：DoCmd.OpenReport 报表名 (3) 关闭操作：DoCmd.Close 对象类型,对象名 2、输入框格式：inputbox(显示文字,标题文字,默认文字) 说明：显示文字必须有，其他可以省略。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 3、消息框格式：msgbox(提示文字,按钮类型,标题文字) 说明：提示文字必须有，其他可以省略。 4、VBA验证函数在控件中的数据被改变之前或记录数据被更新之前会发生BeforeUpdate事件。要记得表10-6的验证函数名及说明。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 5、计时事件（Timer） Timer事件表示每隔指定的一段时间自动执行的代码。VBA中没有提供计时控件，一般是给窗体的Timer事件添加计时的时候执行的代码，然后通过设置TimerInterval属性的值确定多久执行一次(以毫秒为单位)Timer事件代码并马上开始按间隔执行Timer事件代码，如果设置TimerInterval的值为0则停止执行Timer事件。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 例如：制作好下图所示的窗体，要求：按每隔100毫秒进行计时，开始时暂停按钮不能使用，正在计时过程计时按钮不能使用，暂停时暂停按钮不能使用。其中文本框的名称为t，计时按钮的名称为play，暂停按钮的名称为pause，给窗体、计时按钮、暂停按钮、Timer事件添加的代码如下页所示。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. Private Sub play_Click() 计时按钮单击代码 Me!pause.Enabled = True 设置暂停按钮可用 pause.SetFocus 将光标设置到暂停按钮 Me!play.Enabled = False 将计时按钮设为不可用 TimerInterval = 100 设置每隔100毫秒执行一次Timer事件 End Sub Private Sub Form_Load() 窗体load事件代码 Me!pause.Enabled = False End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. Private Sub Form_Timer() 窗体timer事件代码 Static count As Double 定义为静态的使其能保留上一次计时的结果 count = count + 0.1 t = count End Sub Private Sub pause_Click() 暂停按钮单击事件代码 Me!play.Enabled = True play.SetFocus Me!pause.Enabled = False TimerInterval = 0 End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client