Open Popup at Mouse DblClick Coordinates

[Dave]

Access 2002...I need to open a popup at the location of a mouse
dblclick. Can anyone help with this? I can get the mouse X & Y, but
I'm not sure how to open a form in a specific location by code.

Thanks in advance

[stebain]

On Aug 29, 10:25 am, Dave <[e-mail]:

Access 2002...I need to open a popup at the location of a mouse
dblclick. Can anyone help with this? I can get the mouse X & Y, but
I'm not sure how to open a form in a specific location by code.

Thanks in advance

You could try using the OpenArgs and then parsing them in the open
event of the form.

For instance:
DoCmd.OpenForm stDocName, , , stLinkCriteria,
OpenArgs:="x=500;y=100"

[Dave]

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


On Aug 29, 10:38 am, [e-mail] wrote:

On Aug 29, 10:25 am, Dave <[e-mail]:

Access 2002...I need to open a popup at the location of a mouse
dblclick. Can anyone help with this? I can get the mouse X & Y, but
I'm not sure how to open a form in a specific location by code.

Thanks in advance

You could try using the OpenArgs and then parsing them in the open
event of the form.

For instance:
DoCmd.OpenForm stDocName, , , stLinkCriteria,
OpenArgs:="x=500;y=100"

[Salad]

Dave wrote:

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

The key word you missed is the word "Parse".

Enter the word OpenArgs in a code module, highlite it, and press F1.

I guess you can go to www.dictionary.com to get the definition of "parse".

>
On Aug 29, 10:38 am, [e-mail] wrote:

>>On Aug 29, 10:25 am, Dave <[e-mail]:

>>>Access 2002...I need to open a popup at the location of a mouse
dblclick. Can anyone help with this? I can get the mouse X & Y, but
I'm not sure how to open a form in a specific location by code.

>>>Thanks in advance

You could try using the OpenArgs and then parsing them in the open
event of the form.

For instance:
DoCmd.OpenForm stDocName, , , stLinkCriteria,
OpenArgs:="x=500;y=100"

[stebain]

On Aug 29, 12:51 pm, Dave <[e-mail]:

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

[Dave]

Salad, I didn't realize that sarcasm was a part of these groups. Nice
to see that you're on board with making people want to come here.

On Aug 29, 12:49 pm, Salad <[e-mail]:

Dave wrote:

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

The key word you missed is the word "Parse".

Enter the word OpenArgs in a code module, highlite it, and press F1.

I guess you can go towww.dictionary.comto get the definition of "parse".

On Aug 29, 10:38 am, [e-mail] wrote:

>On Aug 29, 10:25 am, Dave <[e-mail]:

>>Access 2002...I need to open a popup at the location of a mouse
dblclick. Can anyone help with this? I can get the mouse X & Y, but
I'm not sure how to open a form in a specific location by code.

>>Thanks in advance

>You could try using the OpenArgs and then parsing them in the open
event of the form.

>For instance:
DoCmd.OpenForm stDocName, , , stLinkCriteria,
OpenArgs:="x=500;y=100"- Hide quoted text -

- Show quoted text -

[Dave]

Thanks Steve
On Aug 29, 1:03 pm, [e-mail] wrote:

On Aug 29, 12:51 pm, Dave <[e-mail]:

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

[stebain]

On Aug 29, 2:59 pm, Dave <[e-mail]:

Thanks Steve

Did what you need?
Glad I could help.

[Salad]

Dave wrote:

Salad, I didn't realize that sarcasm was a part of these groups. Nice
to see that you're on board with making people want to come here.

You're welcome.

I, oftentimes, don't know the skill level of the people I respond to.

I thought "You could try using the OpenArgs and then parsing them in the
open event of the form." was sufficient advice to your response "No,
that doesn't work."

Next time you have a problem I'll write the code for you.

>

On Aug 29, 12:49 pm, Salad <[e-mail]:

>>Dave wrote:

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

The key word you missed is the word "Parse".

Enter the word OpenArgs in a code module, highlite it, and press F1.

I guess you can go towww.dictionary.comto get the definition of "parse".

>>>On Aug 29, 10:38 am, [e-mail] wrote:

>>>>On Aug 29, 10:25 am, Dave <[e-mail]:

>>>>>Access 2002...I need to open a popup at the location of a mouse
>dblclick. Can anyone help with this? I can get the mouse X & Y, but
>I'm not sure how to open a form in a specific location by code.

>>>>>Thanks in advance

>>>>You could try using the OpenArgs and then parsing them in the open
event of the form.

>>>>For instance:
DoCmd.OpenForm stDocName, , , stLinkCriteria,
OpenArgs:="x=500;y=100"- Hide quoted text -

- Show quoted text -

[Dave]

On Aug 29, 3:08 pm, Salad <[e-mail]:

Dave wrote:

Salad, I didn't realize that sarcasm was a part of these groups. Nice
to see that you're on board with making people want to come here.

You're welcome.

I, oftentimes, don't know the skill level of the people I respond to.

I thought "You could try using the OpenArgs and then parsing them in the
open event of the form." was sufficient advice to your response "No,
that doesn't work."

Next time you have a problem I'll write the code for you.

On Aug 29, 12:49 pm, Salad <[e-mail]:

>Dave wrote:

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

>The key word you missed is the word "Parse".

>Enter the word OpenArgs in a code module, highlite it, and press F1.

>I guess you can go towww.dictionary.comtoget the definition of "parse".

>>On Aug 29, 10:38 am, [e-mail] wrote:

>>>On Aug 29, 10:25 am, Dave <[e-mail]:

>>>>Access 2002...I need to open a popup at the location of a mouse
dblclick. Can anyone help with this? I can get the mouse X & Y, but
I'm not sure how to open a form in a specific location by code.

>>>>Thanks in advance

>>>You could try using the OpenArgs and then parsing them in the open
event of the form.

>>>For instance:
DoCmd.OpenForm stDocName, , , stLinkCriteria,
OpenArgs:="x=500;y=100"- Hide quoted text -

>- Show quoted text -- Hide quoted text -

- Show quoted text -

I didn't know that Salad was synonymous with 'Smart-Ass'. My previous
comment was based on your posting of "I guess you can go to www.dictionary.com
to get the definition of "parse". "

I have one question for you Salad...Do you just monitor the groups to
degrade people that are trying to get started? With that, I only have
one other thing to say to you...Get a Girl Friend. You obviously
don't have a life.

[Dave]

Well Steb, I finally got freed up enough to work with your
suggestion. The expample that you've provided works, but I've found
it only opens where the control is at in the detail section. If
you're tryingt to use this on a Continuous Form, and the detail
section is only as tall as your control, then your XPos will probably
never get wider than 150. I think that I need to look at actual Mouse
Coordinates as it applies to Windows.

Any Advice?


On Aug 29, 2:07 pm, [e-mail] wrote:

On Aug 29, 2:59 pm, Dave <[e-mail]:

Thanks Steve

Did what you need?
Glad I could help.