求助子窗体实现键盘上的翻页功能的代码

付谦

子窗体上记录多,想在主窗体建2命令按钮(上一页,下一页),实现如按键盘上的PAGEUP\PAGEDOWN两键的翻页功能,曾试写几次均不行,论坛上也没查到合适的代码,请高手帮助,谢!

todaynew

付谦 发表于 2011-6-19 19:51
子窗体上记录多,想在主窗体建2命令按钮(上一页,下一页),实现如按键盘上的PAGEUP\PAGEDOWN两键的翻页功能,曾 ...

http://www.office-cn.net/forum-v ... t-%B7%AD%D2%B3.html

付谦

回复 todaynew 的帖子

谢谢!此例我看过,因子窗体数据源未绑定,是动态的数据源,没有设ID字段,我按键盘翻页键翻页很快捷,因此想用代码实现按键盘翻页键功能,但不知如何写

roych

回复 付谦 的帖子

好像不用写什么吧？直接选中子窗体，按下这两个键就会翻页了呀。

付谦

回复 roych 的帖子

直接选中子窗体，按下这两个键会翻页,太麻烦,想设一按钮,用鼠标点击翻页方便些

t小宝

参考代码：
Private Sub Command1_Click()
    Me.子窗体控件名.SetFocus
    SendKeys "{PGUP}"          '上一页
End Sub

Private Sub Command2_Click()
    Me.子窗体控件名.SetFocus
    SendKeys "{PGDN}"          '下一页
End Sub