Access window hidden, copy and paste disabled

[timothyl]

Hello, I have the Access window hidden, to do so the form I use has it's Popup set to yes and this seems to disable the copy and past function, i.e when you right click the mouse the menu dose not appear that give's you the option to cut, copy and past. Dose any one know if it is possible to get the copy past function back with out setting the popup to no. People are complaining they want to use the mouse. Thank's

 

[boblarson]

Actually, what is happening is that the right-click menu lives within the Access Window, so when you right click, it is popping up but it is in the Access Application Window that you have hidden. So, this is just one of many reasons why I abandoned the hiding of that window years ago. It just isn't worth it. If you have to have it look like a separate program, just write it in VB6, VB.NET, C#.NET, etc. It is Access so the Access window comes with it.

 

[missinglinq]

I've been biting my tongue now for quite a while, reading your posts here, as well as on a number of other forums, but I think something needs to be said. You really need to understand that Access is a database development program. It is not a graphics development program.

While having a nice, easily usable GUI is everyone's goal, it should not be taking up all the time you're devoting to it, trying to present a GUI that has transparent forms but with text visible, invisible Access windows but with full functionality, and so forth. You should be concentrating on developing functional databases.

If you insist on doing these kinds of things, you should look into using VB6, VB.NET or C#.NET, as you've been advised to do over and over and over again, both here and on at least two other forums that I know of! Use Access as the back end if you want.

Do you really think that this same advice, from multiple experienced Access developers, is wrong?

 

[timothyl]

Thank's Bob all these little thing's to know that only experience tell's you.

 

[KenHigg]

Can they highlight and then ctl-c to copy?

 

[timothyl]

Missingling, I have read your comments, the only thing I can find to say is that a functional data base is more then just the code behind the GUI, an appreciation of the human need for aesthetics, and to have a GUI that conforms to the user as much as one's skills allow's is as essential as any other part of a data base. I suspect if anyone other then you use your data base(s) and you asked them if there was a way you could improve the usability of them they would have something to say. Anyway maybe you are right and I have been obnoxious in my use of the forums I will think about it. In the end when you see my name in the forums don't click on it. Tim

 

[timothyl]

Here is a solution to hiding the access window and retaining the short cuts menu, the code below came from M.S website, it sizes the access window and potions it on your screen to your choosing.

Chose your form and set it so:
Popup yes
modal yes
Start up display form- Chose your form
On load event call the function below like: Call AccessMoveSize(m, n, x, y)

There are four numbers to set m,n,x,y
m potions the access window horizontally, n potions the access window vertically and x and y size the access window. To hide the window set x=o and y=0
so
Call AccessMoveSize(0 ,0 ,0 ,0 )
Minimizes the Access window and places it in the upper left hand corner of the monitor and leaves the short cuts menu in tact.

Option Compare Database
Option Explicit

Declare Function apiGetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long
Declare Function apiGetParent Lib "user32" Alias "GetParent" (ByVal hWnd As Long) As Long

Declare Function apiMoveWindow Lib "user32" Alias "MoveWindow" _
         (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal _
         nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) _
         As Long

Function AccessMoveSize(iX As Integer, iY As Integer, iWidth As _
         Integer, iHeight As Integer)
    apiMoveWindow GetAccesshWnd(), iX, iY, iWidth, iHeight, True
End Function


            
Function GetAccesshWnd()
    Dim hWnd As Long
    Dim hWndAccess As Long

    ' Get the handle to the currently active window.
    hWnd = apiGetActiveWindow()
    hWndAccess = hWnd

    ' Find the top window (which has no parent window).
    While hWnd <> 0
        hWndAccess = hWnd
        hWnd = apiGetParent(hWnd)
    Wend

    GetAccesshWnd = hWndAccess

End