Screen Position of Form in Access

[StuGreentree]

I am trying to determine the screen position of an Access 2000 form through API calls. I know there are several steps but I do not know the correct sequence, nor do I know the proper syntax to work in Access. Is there anyone who has done this that can provide some insight. Thanks...

 

[Ed2020]

This should do what you want:

Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, lpRect As RECT) As Long

Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type


Public Sub GetFormPosition()

Dim r As RECT ' receives window rectangle
Dim retval As Long ' return value

retval = GetWindowRect(Forms!Form1.hwnd, r) ' set r equal to Form1's rectangle
Debug.Print "Width ="; r.right - r.left
Debug.Print "Height ="; r.bottom - r.top

End Sub

HTH,

Ed Metcalfe.

 

[StuGreentree]

Worked like a charm. Thanks again for your assistance....