Office中国论坛/Access中国论坛

标题: 弹出式窗体中预览报表 [打印本页]

作者: 周运良 时间: 2004-11-13 20:09
标题: 弹出式窗体中预览报表
yuab上次提到了怎样在弹出式窗体中预览报表，采用的方法确实好，但预览完后弹出的窗体经常不是用户需要的窗体，即使用setfoucs设置也不行，后来我分析，把代码稍改一下就行了。修改如下：

Public Function Opclose(i As Integer) '报表预览用

Dim frm As Form, intI As Integer

If i = 1 Then

fSetAccessWindow (SW_SHOWMAXIMIZED)

Else

fSetAccessWindow (SW_SHOWNORMAL)

End If

Dim intForms As Integer

intForms = Forms.Count       ' 打开窗体的数目。

If intForms > 0 Then

      For intI = intForms - 1  to 0 step -1 '原来为For intI = 0 to intForms - 1

      Set frm = Forms(intI)

         If i = 1 Then

            frm.Visible = False

         Else

            frm.Visible = True

         End If

      Next intI

Else

   ' MsgBox "No open forms.", vbExclamation, "Form Controls"

End If

End Function

作者: ljg_19969698 时间: 2004-11-20 00:10
编写代码太复杂，安装access2003,自动实现在弹出式使窗体上打开预览报表，不信你装一个。

作者: wangxuefeng 时间: 2004-11-20 00:32
我用的是ACCESS 2003 在弹出式窗体中预览报表一切很正常，不需要写任何代码只要把报表也设置成弹出式就行了。一切就这么简单。。

作者: 真主 时间: 2004-11-20 00:42
弹出式窗体中预览报表是什么意思

作者: zuiyue 时间: 2008-8-4 09:42
看不懂了

作者: shentao 时间: 2010-1-4 14:35
没有实例

作者: shentao 时间: 2010-1-4 14:36
应该可以用,谢谢

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