Question

如何ACCESS窗体VBA修改记录

Private Sub 修改_Click()
Dim rs As DAO.Recordset
Dim str As String
Set rs = CurrentDb.OpenRecordset("select * from 人事管理 where [姓名] like '*" & Me.姓名 & "*'", dbOpenDynaset)
If rs.RecordCount = 0 Then
MsgBox "没有此人记录"
Else
[性别] = Me.性别
[出生日期] = Me.出生日期
[电话] = Me.电话
[住址] = Me.住址
End If
End Sub

Answer 1

在access中，修改记录有很种方法， 比较常用的有ADO、DAO 和 Docmd。即便使用docmd，也有3种方法来删除，下面看看docmd修改记录的几种写法
1.Docmd修改记录 DoMenuItem 方法：
Me.子窗体.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Me.子窗体.Form.Requery '修改后刷新子窗体 以反映新的数据变化

2.Docmd修改记录 RunCommand 方法：
Me.子窗体.Form.AllowDeletes=True '这句话很重要，如果是False，这个方法就不适用。后面有需要再自行修改回来
Me.子窗体.SetFocus
DoCmd.RunCommand acCmdDeleteRecord
Me.子窗体.Form.Requery '修改后刷新子窗体 以反映新的数据变化

3.Docmd修改记录 RunSQL 方法：
Dim strSQL As String
Me.子窗体.SetFocus
strSQL = "Delete from 表名 where 条件"
DoCmd.RunSQL strSQL
Me.子窗体.Form.Requery '修改后刷新子窗体 以反映新的数据变化

Answer 2

Dim rs As DAO.Recordset
Dim str As String
Set rs = CurrentDb.OpenRecordset("select * from 人事管理 where [姓名] like '*" & Me.姓名 & "*'", dbOpenDynaset)
If rs.RecordCount = 0 Then
MsgBox "没有此人记录"
Else
rs.性别 = Me.性别
rs.出生日期 = Me.出生日期
rs.电话 = Me.电话
rs.住址 = Me.住址
rst.update
rs.close
set rs=nothing
End If

Answer 3

xuexiexia