窗口的快速查询栏VBA

WANGDUYU

这两天在攻坚Access，想简化操作。
我正在研究新课题，如何将查询条件在窗口输入之后，在同一个窗口中实时更新记录。
只是在编译器里，总是报错："无法使用FindRecord"。

各位高手，我是从2007Access宝典里样例程序里纯抄下来放进去，在样例程序里挺好用。
界面见附件，事件过程的VBA如下。
Private Sub cboQuickSearch_AfterUpdate()
        txtContactID.SetFocus
        If Not IsNull(cboQuickSearch) Then
        DoCmd.FindRecord cboQuickSearch
    End If
End Sub

而我的基本相同，只是改写了变量的名字，如下：
Private Sub cboQuickSearch_AfterUpdate()
Dim TempID As Integer
    TxtID.SetFocus
    If Not IsNull(CboQuickSearch) Then
        TempID = Me.CboQuickSearch
       DoCmd.FindRecord TempID
    End If
End Sub
当我在运行时，在DoCMD.Findrecord处会报错，说“当前无法使用查找替换命令”。我认为是宏的运行限制，但是我已经把文件所有位置设为安全位置，同时，也在信任中心中更改了安全级别。不知道有没有别的原因，请赐教。

[ 本帖最后由 WANGDUYU 于 2008-11-15 06:23 编辑 ]

ui

DoCmd.FindRecord TempID
应该是数据表窗体获得焦点才能用吧？

WANGDUYU

可是这段代码本身就这个窗体自己的Private的代码，
TxtID.SetFocus，已经把焦点选在数据框里了。

ui

查找命令最好在宏或菜单中执行,这样按钮就不会得到焦点
否则好象会提示无法使用这命令

WANGDUYU

谢谢元老级UI的指点，继续攻关。有问题再来讨论。

WANGDUYU

最终实验成功了，原来是自己摆了一个乌龙。

在一楼提到的窗体，是建立在一个查询上的，而不是表。后来改成数据表为控件来源，就一切正常了。

基本概念不清晰，就有这么严重的后果。