关于对应记录修改后保存的问题?

Question

这是查询窗体对应记录代码
     '对应列
      DataGrid1.Col = 1
      add_zhuangpeiIN.Text1 = DataGrid1.Text
      DataGrid1.Col = 2
      add_zhuangpeiIN.Text2 = DataGrid1.Text
      DataGrid1.Col = 3
      add_zhuangpeiIN.Text3 = DataGrid1.Text
      DataGrid1.Col = 4
      add_zhuangpeiIN.Text4 = DataGrid1.Text
      DataGrid1.Col = 5
      add_zhuangpeiIN.Text5 = DataGrid1.Text
      DataGrid1.Col = 6
      add_zhuangpeiIN.Text6 = DataGrid1.Text
      DataGrid1.Col = 7
      add_zhuangpeiIN.Text7 = DataGrid1.Text
      DataGrid1.Col = 8
      add_zhuangpeiIN.DTP1.Value = DataGrid1.Text
      DataGrid1.Col = 9
      add_zhuangpeiIN.Text9 = DataGrid1.Text
      DataGrid1.Col = 10
      add_zhuangpeiIN.Text10 = DataGrid1.Text
      DataGrid1.Col = 11
      add_zhuangpeiIN.Text11 = DataGrid1.Text
      add_zhuangpeiIN.Show这是录入窗体ADDNEW保存
    rs.AddNew
    rs.Fields(1).Value = Trim(Text1.Text)
    rs.Fields(2).Value = Trim(Text2.Text)
    rs.Fields(3).Value = Trim(Text3.Text)
    rs.Fields(4).Value = Trim(Text4.Text)
    rs.Fields(5).Value = Trim(Text5.Text)
    rs.Fields(6).Value = Trim(Text6.Text)
    rs.Fields(7).Value = Trim(Text7.Text)
    rs.Fields(8).Value = CDate(Trim(DTP1.Value))
    rs.Fields(9).Value = Trim(Text9.Text)
    rs.Fields(10).Value = Trim(Text10.Text)
    rs.Fields(11).Value = Trim(Text11.Text)
    rs.Update
    Set rs = Nothing
    MsgBox "数据已保存!"
    Unload Me  请问在录入窗体对应记录修改后保存按纽怎么写?

Answer 1

rs.Fields(1).Value = Trim(Text1.Text)
    rs.Fields(2).Value = Trim(Text2.Text)
    rs.Fields(3).Value = Trim(Text3.Text)
    rs.Fields(4).Value = Trim(Text4.Text)
    rs.Fields(5).Value = Trim(Text5.Text)
    rs.Fields(6).Value = Trim(Text6.Text)
    rs.Fields(7).Value = Trim(Text7.Text)
    rs.Fields(8).Value = CDate(Trim(DTP1.Value))
    rs.Fields(9).Value = Trim(Text9.Text)
    rs.Fields(10).Value = Trim(Text10.Text)
    rs.Fields(11).Value = Trim(Text11.Text)
    rs.Update
    Set rs = Nothing
    MsgBox "数据已保存!"
    Unload Me  

Answer 2

不要AddNew,还需要判断当前记录。
if rs.eof or rs.bof then exit sub

Answer 3

rs.Update
Set rs = Nothing
MsgBox "数据已保存!"
这些语句已经操作保存了...

Answer 4

不要AddNew显示
 错误提示"没有为命令对象设置命令"

Answer 5

对记录定位同时赋值，再使用rs.update或者rs.save就可以进行保存了！

Answer 6

关键修改记录后保存不要AddNew显示
 错误提示"没有为命令对象设置命令"

Answer 7

通过 ADDNEW  将文本值赋值到数据库字段中   为什么不要?     UPDATE  保存记录

Answer 8

找到 对应记录 修改后的保存
并非是ADDNEW添加新记录
    frm_zhuangpeiIN.DataGrid1.Col = 1
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text1.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 2
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text2.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 3
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text3.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 4
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text4.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 5
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text5.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 6
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text6.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 7
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text7.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 8
    frm_zhuangpeiIN.DataGrid1.Text = CDate(Trim(DTP1.Value))
        frm_zhuangpeiIN.DataGrid1.Col = 9
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text9.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 10
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text10.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 11
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text11.Text)
         rs.Update
修改之后rs.Update错误行
提示对象关闭，不允许操作