Cut and paste 1

[merlin72]

I have 8 boxes( fields) on my form. I would like to do a cut and paste with the click of the mouse.
A person would click on a field and the background would change indicating that it was selected. Then when they click on another blank field it would move to that field.
Regards
Jim.

 

[rafe]

yes you can do it... i just did a simple mock-up.

you just need to play with the onClick events. you'll have to do some of your own housekeeping (a pain) but it's straightforward in practice

the following was a quick & dirty test but you should get the idea.

'global vars
Dim buffFlag As Boolean
Dim oldBg As Variant

Private Sub fDate_Click()
buffFlag = True
oldBg = Me.fDate.BackColor
Me.fDate.BackColor = RGB(255, 0, 0)
End Sub

Private Sub tDate_Click()
If buffFlag Then
Me.tDate = Me.fDate
Me.fDate.BackColor = oldBg
buffFlag = False
End If
End Sub

btw: i like the idea & i'll use it in my app