Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Can I move the mousepointer with code? 1

Status
Not open for further replies.

BoxHead

Technical User
May 6, 2001
876
US
I have a continuous form showing blocks of text for a resume. I've added a couple of buttons beneath each block of text so that it can be moved up or down on the list.

EG: I click on "Move Up" for record 14 and it swaps it with record 13 and goes to that record. If I want to move it up another line, I have to move the cursor.

Since the command buttons are identical on each record, I keep confusing myself and switch the two records back when I really meant to move my new record 13 up to #12.

I would like to have the mousepointer move up to the current record or some obvious flag to show me that the current record is now one slot higher.

Any ideas.

Thanks

John

Use what you have,
Learn what you can,
Create what you need.
 
or some obvious flag
Perhaps with conditional formatting ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886
 
Thanks, PHV.

I tried conditional formatting but the controls on my form kept flickering like an endless loop was running. When I took the conditional formatting off, the flickering stopped.

But your idea got me going on the right track. star!
In trying to figure out how to check the current record bookmark value, I ended up creating a public variable 'myRecId' and used the OnCurrent event to set myRecId = [accId] (my key field.

I set a disabled, locked textbox behind all of my controls and set its data source to
=IIf([accId]=[myrecid],myrepeater("g",5),"")

That puts a smallcase 'g' in 5 times if the record is the current record and a ZLS if not. I formatted the textbox forecolor to light yellow, the font to Webdings, 127 point and it fills the textbox with light yellow.

In short, it gives me the 'some obvious flag', but it seems there could be a more direct way.

Thanks for your help.



John

Use what you have,
Learn what you can,
Create what you need.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top