Solved Position Form to Mouse Pointer

[Noson5434]

Hey I need help regarding form positioning

I have a continuous form with a button to view that records comments.
I want to open a form (frmComments) and position that form where the users mouse is (so technically by the button they clicked to view the comments).
How can I achieve this?

Thanks in advance.

 

[theDBguy]

Hi. Welcome to AWF!

Looks like command buttons have mouse events. Maybe you can use it to determine the mouse location.

 

[Noson5434]

Hi. Welcome to AWF!

Looks like command buttons have mouse events. Maybe you can use it to determine the mouse location.

Glad to be a member.

How would I open a form based on that?
Is SetWindowPos API a way to do so?
If so how would I implement that?

Thanks

 

[MajP]

@isladogs has the code to precisely position a form

Accurately locate/move forms & controls

This example application was developed in response to various forum questions including: http://www.accessforums.net/showthread.php?t=75572 https://www.access-programmers.co.uk/forums/showthread.php?t=302641 Moving (and resizing) objects to precise locations on the screen is very easy using...

www.access-programmers.co.uk

There is a lot to dig through in that example. I took a snippet of that code and used it in the link below to position my popup that looks like a MVF.

Solved - Unbound Combo box need multiple value

Hi, I have a searcher form. It is worked. But now like to put multiple value to search. CODE : Private Sub cmdFilter_Click() Dim strWhere As String Dim lngLen As Long If Not IsNull(Me.fltCompanyName) Then strWhere = strWhere & "([CompanyName] = """ &...

www.access-programmers.co.uk

 

[CJ_London]

On my phone so can’t provide a link but in the form open event use the getcursorpis api and I think use something like

me.move left,top,width, height

edit - links just provided will be a good resource

 

[MajP]

If looking at my example code. You need the form dimension module and my code to position the popup just under the cmbobox is

  Dim fd As FormDimensions
   Me.Moveable = True
   fd = GetFormDimensions(Me.ParentForm)
   intleft = Me.ParentForm.WindowLeft + Me.AssociatedComboBox.Left + Me.AssociatedComboBox.Width + fd.intBorderWidth + fd.intRecSelWidth - m_ListWidth '+ intRecSelWidth
   intBase = Me.ParentForm.WindowTop + fd.intTitleBarHeight + Me.AssociatedComboBox.Top + Me.AssociatedComboBox.Height

In my example I am in the header. If you look at @isladogs example this will work (and is needed) for a continuous form.

 

[Noson5434]

If looking at my example code. You need the form dimension module and my code to position the popup just under the cmbobox is

  Dim fd As FormDimensions
   Me.Moveable = True
   fd = GetFormDimensions(Me.ParentForm)
   intleft = Me.ParentForm.WindowLeft + Me.AssociatedComboBox.Left + Me.AssociatedComboBox.Width + fd.intBorderWidth + fd.intRecSelWidth - m_ListWidth '+ intRecSelWidth
   intBase = Me.ParentForm.WindowTop + fd.intTitleBarHeight + Me.AssociatedComboBox.Top + Me.AssociatedComboBox.Height

In my example I am in the header. If you look at @isladogs example this will work (and is needed) for a continuous form.

Thank you

 

[arnelgp]

there is code there Exact same request as you have with Code solution.

Access 2010 VBA API TWIPS/PIXEL

a question regarding API calls and the TWIPS/pixel problem working for 32- and 64-bit systems. I want a popup-form to show up at the mouse pointer's position. My solution kind of works (at least wi...

stackoverflow.com

here is a demo from that site.

 

[gontranharvey]

This solution is the best, I was using the @isladogs solution before, but it does't work if by exemple you have a continous form with 100 records and on the screen you are at the record 85, but in reality you are at the 10th record visible in the screen, so the popup goes so down outside the windows sceen. The @isladogs solutions multiply the height of the detail section by the current selected record (85).
@arnelgp thanks for sharing this solution.