只需一步,快速开始
使用道具 举报
以下是引用wuaza在2005-11-23 8:53:00的发言: 参考这样的代码。 Private Sub Combo43_AfterUpdate() ' 查找与该控件匹配的记录。 Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Reference] = '" & Me![Combo43] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub
本版积分规则 发表回复 回帖后跳转到最后一页
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-11-15 01:20 , Processed in 0.114580 second(s), 28 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.