[难题]有没有办法让子窗体自动滚动

xinbao

有没有办法让子窗体自动滚动, 如,在主窗体按一个按钮,子窗体就滚动一行,子窗体是数据表或连续表.请高手帮忙

freemanager

按钮事件中代码：
Dim rs as recordset
Set rs = Me.子窗体.Form.Recordset
If Not rs.Eof then
rs.MoveNext
End if

HG

我有一個新想法，在您的窗體中加入一個滑動條（比如只有向上向下滑動的）
然后在窗體中加入一時間事件，在在一個默認的時間下，自動滑動，同時顯于新數據。
http://jobhunter.pop21.com/jiangmen/ 就是個好例子

binbow_z

以下是引用freemanager在2002-6-26 17:30:07的发言：
按钮事件中代码：
Dim rs as recordset
Set rs = Me.子窗体.Form.Recordset
If Not rs.Eof then
rs.MoveNext
End if

xinbao

高明，谢谢

yuab

我说以上是条不能再笨的办法了，各位别介意，其实微软早就搞出来了。我向各位介绍一个相当的简单办法，不但可以控制子窗体向前、向后、还可以删除子窗体记录，最重要的是主窗体和子窗体共用一个按钮呢？
请在向前按钮加入以下程序
    Screen.PreviousControl.SetFocus
    DoCmd.GoToRecord , , acPrevious
请在向后按钮加入以下程序
    Screen.PreviousControl.SetFocus
    DoCmd.GoToRecord , , acNext
请在删除按钮加入以下程序
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
所以看看上面三个例子其实一句程序是最重要的Screen.PreviousControl.SetFocus，当光标指向那里，程序就对那里产生作用，这个灵感是在查找按钮中找到的。
当你的光标留在主窗体时，按钮即可以操作主窗体，如果光标在子窗体，按钮即操作子窗体。试试啊。保证您百试百爽。

HG

呵呵，化繁為簡，我喜歡，搞定。