Unanswered: Copy and Past disabled when access windo hiden
Good morning, 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 (I need to copy text from text boxes). Dose any one know if it is possible to get the copy past function back with out setting the popup to no. Thank's
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:
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
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
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) _
Function AccessMoveSize(iX As Integer, iY As Integer, iWidth As _
Integer, iHeight As Integer)
apiMoveWindow GetAccesshWnd(), iX, iY, iWidth, iHeight, True
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)
GetAccesshWnd = hWndAccess