Mouse move property

J

Jose

I need sombody to help to resolve this problem. I am having an access
continueous form which is having detail regading some assigned jobs.
Due to restriction i can not show the information in job description
field . I used the vertical scroll bars already so that the user can
scroll the text. But i wish if i can use the mouse move property so
that if the user moves the mouse over the feild for job description
then the complete job description appear as a ballon box. when he
moves out this should hide.
 
M

missinglinq via AccessMonster.com

Can't make it return to pre-expanded state on MouseMove off of the field, but
this code will expand it on MouseMove onto the field; the user will have to
click to close it. This code expands a text box when the mouse moves over it.
The same code could be used in other events such as Double-Click or GotFocus
(these wouldn't need the .SetFocus line) as well.

Private Sub YourJobDescriptionTextBox_MouseMove(Button As Integer, Shift As
Integer, X As Single, Y As Single)
If Not IsNull(YourJobDescriptionTextBox) Then
YourJobDescriptionTextBox.SetFocus
DoCmd.RunCommand acCmdZoomBox
End If
End Sub

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000

Message posted via AccessMonster.com
 
M

Marshall Barton

Jose said:
I need sombody to help to resolve this problem. I am having an access
continueous form which is having detail regading some assigned jobs.
Due to restriction i can not show the information in job description
field . I used the vertical scroll bars already so that the user can
scroll the text. But i wish if i can use the mouse move property so
that if the user moves the mouse over the feild for job description
then the complete job description appear as a ballon box. when he
moves out this should hide.


Not what you asked for, but maybe you can get some ideas
from: http://www.lebans.com/tooltip.htm
 
J

Jose

Thanks for all the help

With some modification i could managed to get what i was looking for.

Dim Job_desc As String
If Not IsNull([Job Description]) Then
[Job Description].SetFocus
Job_desc = [Job Description]
[Job Description].ControlTipText = Job_desc
End If
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top