访问报告不显示

Question

我的访问表单有问题。我用此代码向用户隐藏Access数据库。

Const SW_HIDE = 0
 Const SW_NORMAL = 1

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

 In der Öffnen-Sub deines Übersichtsformulares:

Dim hWindow As Long
 Dim nResult As Long
 Dim nCmdShow As Long
 hWindow = Application.hWndAccessApp
 nCmdShow = SW_HIDE
 nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
 Call ShowWindow(Me.hWnd, SW_NORMAL)  

但是随后，我尝试通过未打开的表单打开报告。我不知道为什么

Answer 1

我从未使用过该代码，但似乎在第1.11章中描述了您的问题的原因：http://www.donkarl.com/FAQ/FAQ1Grundlagen.htm

（在文章中也有指向Microsoft文章的链接，但不幸的是，它也不是英文的）

  

    

Alle Formulare deiner Anwendungmüssenauf Pop-Up eingestellt sein，Weil sie sonst im nicht mehr sichtbaren Access-Fenster dargestellt werden und daher selber nicht mehr sichtbar sind。 BeimÖffnenvon Berichten in Seitenansicht muss man die（PopUP-）Formulare alle auf unsichtbar setzen oderschließen。

  

英语：

  

    

必须将应用程序的所有表单设置为弹出窗口，否则它们将显示在“访问”窗口中，该窗口不再可见，因此自身也不再可见。 在页面视图中打开报表时，您必须将所有（PopUP-）表单设置为不可见或关闭。

  

您可以尝试一下。