Display Form Only 1

[teqtaq]

Hi!
I had created a few Reports and I need to give them to users. I want only Form to be displayed but I can only get to the part where database frame is visible as well.
Thanks

P.S. Surprisingly I couldn't find anything on line!

 

[jamaarneen]

Hi teqtaq,

I am not that I exactly undrtand what's your problem, but if my Assumption is right, the followong thread might be of help.

thread702-1486035

hope so. please let me know
Ja

 

[teqtaq]

jamaarneen,
I found code in your link (thread is closed) and it seems working for everyone but I am having troubble with one part:

Option Explicit

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
**************************************
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
*******************************************
Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function
--------------------------------------------

Seems like this part is not complete or something is wrong - I can't figure it out.
**************************************
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
*******************************************
Thanks for your link!

 

[jamaarneen]

Hi teqtaq,

I must admit that I never used the code by myself, so I cannont really say what the problem might be.

but here is another thread, about this issue, maybe you'll find your solution in here...
thread702-798009

ja

 

[PHV]

Get rid of (or comment out) the 2 stars lines.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886