Private Sub CPO_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[客戶訂單] = '" & Me![CPO] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
谢谢
!作者: tz-chf 时间: 2008-7-23 22:56
Dim rs As Object不好,应该是记录集类型作者: lingsum 时间: 2008-7-24 00:22
原帖由 tz-chf 于 2008-7-23 22:56 发表
Dim rs As Object不好,应该是记录集类型