AfterUpdate 代码问题

Jack Wang　发表于：2011-06-16 14:07:14 　

点击下载此附件老师们，附加的AfterUpdate我编写了几次都不成功，下面是我所写，但还出了问题，请帮忙修改，谢谢！

Private Sub List10_BeforeUpdate(Cancel As Integer)
Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[料号] = " & Str(Nz(Me![List10], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Top

丘山发表于：2011-06-16 18:54:26

rs.FindFirst "[料号] = '" & Nz(Me![List10], 0) & "'"

Top

丘山发表于：2011-06-16 18:54:56

文本类型的值一定要加单引号

Top

Jack Wang 发表于：2011-06-17 07:10:45

还是不行，改完之后， If Not rs.EOF Then Me.Bookmark = rs.Bookmark这句出问题了，请帮忙再次指点，谢谢!

Top

殷小宝发表于：2013-04-05 17:24:02

Private Sub List10_AfterUpdate()
Me.料号 = Me.List10.Column(0)
Me.数量 = Me.List10.Column(1)
Me.类型 = Me.List10.Column(2)
Me.备注 = Me.List10.Column(3)
End Sub

Top

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

Access交流中心

AfterUpdate 代码问题