美国伦理电影排行

Logo 全站主图
access使用vba修改记录数据

Admin | 2013-8-14 10:05:09 | TrackRecord: 587 Times | Tag标签:数据库Sql,VFP,Access 打印本页

您当前所处的位置是:〖美女AV 〗→【文章页】

本站提供经典的Excel公式函数实例,Word排版技巧,PPT教程;同时更兼有Flash,PowerPoint,数据库等技术文章。

  在数据库Access中,我们是可以使用VBA的,和其它地方一样,VBA能修改字段或记录中的数据,下面就给大家介绍一个简单例子,让大家明白VBA如何修改ACCESS的记录数据

  本篇文字适合有一定基础的学者,否则会有一定的难度。

  如下图一样,这是ACCESS中的一个数据结构及记录。

Access2013-8-14-1

  下面我们要做的就是,通过VBA修改ID为2的姓名,通过观看我们不难发现,ID为2的姓名,其实就是姓名为大众三七网的这条记录中的姓名,将其改为其它的。实现方法如下:

  首先,我们插入一个窗体,然后如下图一样,在窗体中再添加一个按钮,记得把按钮的Caption属性改为“更新姓名”。

Access2013-8-14-2

  到这里,就该给按钮添加VBA代码了。如下图一样,右键点击该按钮,在弹出的菜单中选择“事件生成器”。

Access2013-8-14-3

  弹出如下图,下图的对话框,我们选择“代码生成器”这一项进入。

Access2013-8-14-4

  现在,就来到按钮代码输入窗口了,请注意,按钮代码事件,我们选择的是Click事件,代表鼠标点击就触发的意思。

Access2013-8-14-5

  最后,输入如上的代码即可,代码很简单,就三行而已,为方便大家的学习,本站长将代码粘贴如下:

  Private Sub Command1_Click()
   Dim MyCurrentDb As Database
   Set MyCurrentDb = CurrentDb
   MyCurrentDb.Execute ("Update 信息表 SET 姓名 = '" & InputBox("请输入姓名") & "' where ID=2")
  End Sub

  到这里,就该验证代码及功能的时候了。先退出如上图的代码输入界面,回到Access界面。

  然后,使用右键点击刚才建立的窗体,在弹出的菜单中,选择“打开”,这样就运行窗体了。

Access2013-8-14-6

  窗体运行之后,只要我们点击“更新姓名”按钮,就会弹出如上图的输入框,提示我们输入要修改的姓名,输入一个姓名后点击“确定”,那么,信息表中的ID号为2的姓名,就被修改成为上图中输入的姓名了。

  实现修改姓名功能的是这样的一行代码:MyCurrentDb.Execute ("Update 信息表 SET 姓名 = '" & InputBox("请输入姓名") & "' where ID=2")。


EmailNumber

本站仅与内容具备一定的实用价值的原创网站交换友情链接,力争为大众做出更优质的服务!
All Rights Reserved版权所有 本站备案信息:滇ICP备11001339号-2 站长AV视频 方式 Email:

美国伦理电影排行