根据编号返回对应记录

一、效果演示

二、实现代码

Private Sub Command253_Click()

    With Me.RecordsetClone

        .FindFirst '[ProductID]=' & Me!txtwhere

        If .NoMatch Then

            MsgBox '没有查到记录。'

        Else

            If Me.Dirty Then

                Me.Dirty = False

            End If

            Me.Bookmark = .Bookmark

        End If

    End With

End Sub

三、示例下载：（在屏幕左下角的“阅读原文”里下载）

推荐阅读

Access答题王 是一款答题小程序，题库随机出题，空闲时通过答题来掌握Access知识，可查看自已的全国排名。【详情>>】

 

Access专家课堂 是Access数据库爱好者提升技能的专业课堂，由微软最有价值专家张志创办，课堂有不少的免费课程，可通过电脑或微信学习。【详情>>】

 

Access软件作品 十二位Access学员对自已开发的软件进行了介绍并分享开发心得，一起来了解Access开发的软件。【详情>>】

 

砍价超值购 是通过邀请亲友、同事帮忙砍价，收费课程可以砍到低价甚至免费，本文介绍如何使用砍价功能来节约费用学习课程。【详情>>】

 

Access每天3分钟 视频课程共50集，Access的基础知识并结合示例详细讲解，每集视频只有短短几分钟，学员可以利用碎片化的时间，每天进步一点点【详情>>】

 

张志，Access数据库培训讲师，『Access软件网』创始人，服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。