北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
如例，点击修改时间--输入时间--OK，窗体里的时间变成了要更改的时间。想问下如何点击1个命令按钮，能将这个窗体里的新修改的数据全部添加到原表中，而原表中的数据不变
简单来说，就是怎样将修改了的数据添加到原表中，而原表的数据不变
如原表：一 一 一，修改了时间，原表变为：一 一 二，然后点击命令按钮添加，表变为：一 一 一
三 三 三 三 三 三 一 一 二
三 三 三
麻烦老师帮我看下，谢谢了，例件送上：
点击下载此附件
相关事件代码如下：
Private Sub Command2_Click()
Me.加入时间.Locked = False
Me.加入时间.SetFocus
End Sub
Private Sub Command3_Click()
Dim str As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
str = "select * from Table1"
rs.Open str, CurrentProject.Connection, 3, 3
rs("加入时间") = Me.加入时间
rs.Update ' 更新到表
MsgBox Me.员工姓名 & " 的加入时间已更改为：" & Me.加入时间
Me.加入时间.Locked = True
rs.Close
Set rs = Nothing
End Sub
Private Sub Form_Load()
Me.Command2.Caption = "修改时间"
End Sub
Private Sub Query1subform_Enter()
Me.加入时间.Locked = True
End Sub
'----子窗体成为当前事件
Private Sub Form_Current()
Forms![时间修改窗体]![员工编号] = Me.员工编号
Forms![时间修改窗体]![员工姓名] = Me.员工姓名
Forms![时间修改窗体]![性别] = Me.性别
Forms![时间修改窗体]![加入时间] = Me.加入时间
End Sub
请查看示例
点击下载此附件当然如果你觉得数据来源是同一个表，做控件比较麻烦，也可以把查看数据和添加数据在一个窗体上实现，但是需要你用代码来更改窗体的一些属性，具体如下：
在窗体上做一些控件与表里的字段绑定，然后设两个按钮“查看数据”、“添加数据”，在查看数据按钮的单击事件里添加代码DoCmd.GoToRecord , , acFirst
使其显示表里的第一条记录，在添加数据按钮的单击事件里添加代码DoCmd.GoToRecord , , acNewRec使其进入添加记录状态。附件里是一个简单的示例，供参考。
点击下载此附件