Re: Open Popup at Mouse DblClick Coordinates

Thanks Steve


On Aug 29, 1:03 pm, steb...@xxxxxxxxx wrote:
On Aug 29, 12:51 pm, Dave <KillnComput...@xxxxxxxxxxx> wrote:

HI! Thanks for the quick reply. No, that doesn't work.

I may not have been explicit enough
Here's what you need to do: (I have tested this and it works)
----------------------------------------
On the button click event (or wherever the code that opens your form):
DoCmd.OpenForm "davesForm", acNormal, OpenArgs:="100;1300"
----------------------------------------
In the open event of your form:

----------------------------------------
Private Sub Form_Open(Cancel As Integer)
Dim s As String
s = Me.OpenArgs & vbNullString
If Len(s) = 0 Then s = "10;10"
Dim strPosition() As String
strPosition = Split(s, ";")
'In this example, you know X is first and Y is second, so no need
to do any testing for x vs y
'being mixed up.
'you might want to add testing to make sure there are two and blah
blah
Dim xPos as integer
Dim yPos as integer
xPos = CInt(strPosition(0))
yPos = CInt(strPosition(1))

'Call the form move routine with the new position. You could add
height stuff too, if you chose
Call Me.Move(xPos, yPos)
End Sub
----------------------------------------

-Steve


.