标题: [求助]提示FindRecord操作不可用是怎么回事 [打印本页] 作者: philipsnow 时间: 2009-5-21 09:51 标题: [求助]提示FindRecord操作不可用是怎么回事 程序是这样的，一个纵栏式窗体，我想在窗体上使用一个文本框输入编号按回车来快速定位某条记录，于是在该文本框的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 时间: 2009-5-21 11:37
先把焦点转移到对应的控件上作者: philipsnow 时间: 2009-5-21 13:12
试了下，还是不行，
比如我要在记录里找合同号为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 时间: 2009-5-21 13:36
更改为更新后事件试试作者: Henry D. Sy 时间: 2009-5-21 13:39
KeyDown太早了作者: philipsnow 时间: 2009-5-21 14:16
哦，是的，一keydown就跑其他控件上去了，谢谢作者: philipsnow 时间: 2009-5-21 14:19
直接用回车按键来find好像不行，只有用按钮了