update更新问题，求各位大侠帮帮忙！

pet29

窗体中“送检日期”的值没有更新到“到货入库”表中相应记录的“送检日期”字段中，系统也没有报错！求各位大侠帮帮忙，看看那里出了问题！

Private Sub 确认送检_Click()
Dim rs As DAO.Recordset
Dim a As String
  Set rs = CurrentDb.OpenRecordset("select *  from 到货入库 where 到货入库.批次 ='" & Me.批次 & "'", dbOpenDynaset)
  rs.OpenRecordset
  If rs.RecordCount = 0 Then
     MsgBox "没有此记录"
  Else
  rs.Edit
  送检日期 = Me.送检日期
    rs.Update
    rs.Close
    Set rs = Nothing
End If
End Sub

咱家是猫

Rs("送检日期") = Me.送检日期

pet29

咱家是猫 发表于 2012-10-28 14:54
Rs("送检日期") = Me.送检日期

谢谢，回题解决了，能讲一下原理吗？

咱家是猫

没什么原理呀,就是你要指定是要给什么对象的字段赋值,Rs("送检日期") 也行,Rs!送检日期 也行,两种写法都可以,总之要告诉是对Rs对象的这个字段赋值,如同你的Me.送检日期 是指的本窗体的 送检日期 一样.

pet29

咱家是猫 发表于 2012-10-29 14:55
没什么原理呀,就是你要指定是要给什么对象的字段赋值,Rs("送检日期") 也行,Rs!送检日期 也行,两种写法都可以 ...

现在知道了，谢谢你！