在数据库Access中,我们是可以使用VBA的,和其它地方一样,VBA能修改字段或记录中的数据,下面就给大家介绍一个简单例子,让大家明白VBA如何修改ACCESS的记录数据。
本篇文字适合有一定基础的学者,否则会有一定的难度。
如下图一样,这是ACCESS中的一个数据结构及记录。
下面我们要做的就是,通过VBA修改ID为2的姓名,通过观看我们不难发现,ID为2的姓名,其实就是姓名为大众三七网的这条记录中的姓名,将其改为其它的。实现方法如下:
首先,我们插入一个窗体,然后如下图一样,在窗体中再添加一个按钮,记得把按钮的Caption属性改为“更新姓名”。
到这里,就该给按钮添加VBA代码了。如下图一样,右键点击该按钮,在弹出的菜单中选择“事件生成器”。
弹出如下图,下图的对话框,我们选择“代码生成器”这一项进入。
现在,就来到按钮代码输入窗口了,请注意,按钮代码事件,我们选择的是Click事件,代表鼠标点击就触发的意思。
最后,输入如上的代码即可,代码很简单,就三行而已,为方便大家的学习,本站长将代码粘贴如下:
Private Sub Command1_Click()
Dim MyCurrentDb As Database
Set MyCurrentDb = CurrentDb
MyCurrentDb.Execute ("Update 信息表 SET 姓名 = '" & InputBox("请输入姓名") & "' where ID=2")
End Sub
到这里,就该验证代码及功能的时候了。先退出如上图的代码输入界面,回到Access界面。
然后,使用右键点击刚才建立的窗体,在弹出的菜单中,选择“打开”,这样就运行窗体了。
窗体运行之后,只要我们点击“更新姓名”按钮,就会弹出如上图的输入框,提示我们输入要修改的姓名,输入一个姓名后点击“确定”,那么,信息表中的ID号为2的姓名,就被修改成为上图中输入的姓名了。
实现修改姓名功能的是这样的一行代码:MyCurrentDb.Execute ("Update 信息表 SET 姓名 = '" & InputBox("请输入姓名") & "' where ID=2")。