关于主窗口隐藏的问题

小白

小弟前些日子在access交流中心看到一个隐藏主窗口的帖子，我照着作了，果然可以，非常得帅，不过遗憾的是它连其它的窗体及表都一块儿隐藏了，各位都是高手，请帮我看看有没有办法让其它的窗体和表能够打开!以下是 huang59 写的原文：

建立一个模块，代码如下：
Option Compare Database

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hwnd As Long, _
          ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
Dim loX  As Long
Dim loForm As Form
    On Error Resume Next
    loX = apiShowWindow(hWndAccessApp, nCmdShow)
    Err.Clear
    fSetAccessWindow = (loX <> 0)
End Function


在启动窗体中加入如下代码：
Private Sub Form_Load()
    fSetAccessWindow (SW_HIDE)
    DoCmd.Restore
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DoCmd.Quit acQuitSaveNone
End Sub

注意：启动窗体属性--其他--弹出方式--设成是

zhengjialon

这里你搜索一下，很早就有例子了。

CIC_Access

[em03]

一点通

可以看下这个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=36185&replyID=&skin=1

wzjwu

我也来看看

wzjwu

没有权限查看!!!

wzjwu

再回一次看看

hrgx8888

打不开