access窗体中自动翻页功能分页符的应用

时　间:2008-09-25 00:05:38
作　者:chenlugen   ID：2399  城市：东莞
摘　要:ACCESS窗体中自动翻页功能分页符的应用/?
正　文:

 在此谨以文字举例说明:

如在一个主窗体中有一个用于输入结果的子窗体,,,此子窗本中有三十个文本框分别为结果一到结果三十,,,而窗体大小,,,在正常情况下,,,只能看到前面十个文本框,,,为什么这样设置,,,聪明的你一定知道,,,,(即只有在滚动垂直滚动条的时候才能看到其它的文本框),,,所以当你用TAB键使光标由结果十转移到结果十一时,,,因滚动条并不随着一起滚动,,,,结果十一,,,就看不到,,,此时就必须用鼠标点击滚动条使之滚动才能看到,,,,否则输起结果来,,,甚是不便,,,于是就想,,,能不能当焦点由结果十转移到结果十一,,,,由结果二十转移到结果二十一时,,,滚动条自动滚动/?

回答是肯定的,,,于是分页符控件此时就发挥其作用,,,

具体步骤如下:

首先:因开始能够显示十个文本框,,,而又刚好是三十个文本框,,,所以就把它分为三页,,,此时要设置使用两个分页符控件,,,分别放置在结果十与结果十一之间,,,结果二十与结果二十一之间,,,

其次:分页符(个数,位置)设置好了以后,,,就在子窗体中定义以下过程:

===========================================================

Public Function gotopage1()

DoCmd.GoToPage 1

End Function

Public Function gotopage2()

DoCmd.GoToPage 2

End Function

Public Function gotopage3()

DoCmd.GoToPage 3

End Function

===========================================================

 最后:过程定义好了后,,,就在子窗体每个文本框控件的获得焦点事件中写入相应的调用代码,,,形如:

==============

Call gotopage1

Call gotopage2

Call gotopage3

==============

至此,,,应该就OK,,,