Office中国论坛/Access中国论坛

标题: [求助]为何增加记录按钮无效 [打印本页]

作者: lupo 时间: 2006-8-6 16:15
标题: [求助]为何增加记录按钮无效
[attach]19507[/attach]
附件中的work窗体中的“增加记录”使用如下代码，但按下去后没有向名为work的表中添加记录，请哪位老大看看这是为何。

Private Sub cmdadd_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "work", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("工号") = Me.工号
rs("出车日期") = Me.出车日期
rs("车号") = Me.车号
rs("行驶里程") = Me.行驶里程
rs("出动车次") = Me.出动车次
rs("载客人次") = Me.载客人次
rs("费用") = Me.费用
rs("服务对象") = Me.服务对象
rs("服务项目") = Me.服务项目
rs.Update
rs.Close
Call cmdclear_Click
Me.工号.SetFocus
Me.出车日期 = Format(Now(), "yyyy-m-d")
End Sub

[此贴子已经被作者于2006-8-6 8:16:37编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)