一、效果演示:
二、实现代码:
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
三、示例下载:
点击下载此附件