Office中国论坛/Access中国论坛

标题: 实例请教FindRecord 问题！ [打印本页]

作者: SecurID 时间: 2011-2-19 00:39
标题: 实例请教FindRecord 问题！
请高手指点！
窗体2包含子窗体，在文本框输入内容可找到子窗体中相应的数据：
Private Sub Text2_Change()
Dim strwhat As String
Me.Text2.Value = Me.Text2.Text
strwhat = Me.Text2.Value
If Not strwhat = "" Then
Me.子窗体.SetFocus
DoCmd.FindRecord strwhat, acAnywhere, , acDown, , acAll, False
Me.Text2.SetFocus
Me.Text2.SelStart = Len(strwhat)
End If
End Sub
窗体1不包含子窗体，如何实现同样的功能，红色的语句该如何改写？

作者: roych 时间: 2011-2-19 01:46
你这个是分割窗体吧，建议放在2007版交流里试试，2003版本不支持分割窗体。嗯，还有一点建议，就是上传附件之前，先压缩数据库（可不是用Winrar噢）。

作者: SecurID 时间: 2011-2-19 22:17
明白，谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)