How to trigger a popup form in Access table View

[alexdich]

Hello guys, I'm new to VBA. I was wondering if it is possible to invoke a popup form inside a table in View mode and make it appear on x,y coordinate. Thanks in advanced.

Regards,

Alexis D.

[OBP]

Tables do not have "Event Procedures" to trigger the VBA code.
Why would you want to look at tables in View mode, forms are for viewing the data?

[CreganTur]

You might be able to do something like this on a form that's using Data Sheet View... google's not providing any good info on this subject yet- it'll take some searching to find.

[c_smithwick]

Design your form to display in datasheet mode and then put the following in a public standard module. Set your forms OnMouseMove event to the following "=mousepos()". This will display your popup form. You will need to determine the X and Y coordinates of whatever box you want to define to trigger the popup.


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
x As Long
y As Long
End Type

Dim a As POINTAPI
Dim blnPopup As Boolean

Public Function mousepos()

Dim var As Variant
Dim ret As Long

ret = GetCursorPos(a)
' Define a rectangular area and display a popup if mouse is within this box

If a.x > 400 And a.x < 600 Then
If a.y > 200 And a.y < 300 Then ' mouse is within confines of box - display popup
If Not blnPopup Then
DoCmd.openForm "frmPopup"
'Set a boolean to indicate popup is displayed to prevent action when moving the mouse again until popup is closed
blnPopup = True
End If
End If
End If

End Function

Public Function closePopup()

' run this function in the onClose Event of your popup form to reset the boolean flag
blnPopup = False
End Function