[求助]提示FindRecord操作不可用是怎么回事

philipsnow

程序是这样的，一个纵栏式窗体，我想在窗体上使用一个文本框输入编号按回车来快速定位某条记录，于是在该文本框的keydown事件中写了代码：
Private Sub txt_search_KeyDown(KeyCode As Integer, Shift As Integer)
Dim searchstr As String
   searchstr = Me.txt_search
     If KeyCode = 13 And Not IsNull(Me.txt_search) Then
     Msgbox seachstr
     DoCmd.FindRecord searchstr
     End If
End Sub

一运行可以显示消息框中的内容没问题，只想到docmd.findrecord那里就提示“命令或操作 Findrecord 不可用”

Henry D. Sy

先把焦点转移到对应的控件上

philipsnow

试了下，还是不行，
比如我要在记录里找合同号为20090402的记录，控件名是“txt_htbh”,查询文本框是“txt_search”，这个焦点是转移是这样用的吗：
Private Sub txt_search_KeyDown(KeyCode As Integer, Shift As Integer)
Dim searchstr As String
   searchstr = Me.txt_search
     If KeyCode = 13 And Not IsNull(Me.txt_search) Then
     Me!txt_htbh.setfocus
     DoCmd.FindRecord searchstr
     End If
End Sub

Henry D. Sy

更改为更新后事件试试

Henry D. Sy

KeyDown太早了

philipsnow

哦，是的，一keydown就跑其他控件上去了，谢谢

philipsnow

直接用回车按键来find好像不行，只有用按钮了