如何按条件查询并在窗体上定位某一记录?

netguestcn

Private Sub 查找定位_Click()
    Dim lastID As Long
    lastID = DMax("编号", "示例表", "项目1<>项目2")
    DoCmd.GoToRecord , , acGoTo, lastID
End Sub