如何实现数据更新

王小宝　发表于：2012-08-09 13:49:48 　

我在一个明细窗体A上双击记录，打开一个窗体B，在A里代码为：

Private Sub 编号_DblClick(Cancel As Integer)
DoCmd.OpenForm "3012验资发文簿详细查询", acNormal, , , , acFormReadOnly
Dim conn As ADODB.Connection         '定义连接字符？
Dim rs As ADODB.Recordset            '定义记录集？
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "301验资发文簿", conn, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
    If rs!编号 = Me![编号] Then
        Forms![3012验资发文簿详细查询]![txt_编号] = rs!编号
。。。。

打开窗体B后，想把修改后的值保存下来，如何保存，我用以下代码，但没有达到效果，也不知如何解决

Private Sub cmd_保存_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "301验资发文簿", conn, adOpenDynamic, adLockOptimistic
If IsNull(txt_编号.Value) Or IsNull(cbo_被审验单位名称.Value) Then
MsgBox "请把信息填写完整", 48
End If
rs!被审验单位名称 = Me![cbo_被审验单位名称]

Top

煮江品茶发表于：2012-08-09 13:56:50

Private Sub cmd_保存_Click()
If IsNull(txt_编号.Value) Or IsNull(cbo_被审验单位名称.Value) Then
MsgBox "请把信息填写完整", 48

else

docmd.runsql "update 301验资发文簿 set 被审验单位名称 ='" & Me![cbo_被审验单位名称] & "' where 编号=" & txt_编号.Value
End If

end sub

Top

王小宝发表于：2012-08-09 15:36:11

谢谢群友了，解决了，另还有问题

1、我原先还有很多需要更新的，要每句都加where,还是可以一下子很多一次性更新，如：

    rs!被审验单位名称 = Me![cbo_被审验单位名称]
    rs!是否本单位委托 = chk_是否本单位委托
    rs!委托单位名称 = txt_委托单位名称
    rs!承接人 = cbo_承接人
    rs!验资类别 = cbo_验资类别
    rs!变更前注册资本币别 = cbo_变更前注册资本币别
    rs!变更前注册资本金额 = txt_变更前注册资本金额
    rs!变更前实收资本 = txt_变更前实收资本
    rs!变更后注册资本币别 = cbo_变更后注册资本币别
    rs!变更后注册资本金额 = txt_变更后注册资本金额
    rs!变更后实收资本 = txt_变更后实收资本
    rs!本期实收资本 = txt_本期实收资本
    rs!出资方式 = cbo_出资方式
    rs!验资截止日 = txt_验资截止日

2、更新保存后，出来提示是否保存啊，什么的，能不能都不出现任何提示？？如何实现

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

如何实现数据更新