Dzwebs.Net

撰写电脑技术杂文十余年

access使用vba修改记录数据

Admin | 2013-8-14 10:05:09 | 被阅次数 | 18861

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  在数据库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")。


该杂文来自: 数据库Sql,VFP,Access

上一篇:access字段输入掩码之字符篇

下一篇:C#确认数据库是否存在

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计