
Cut and paste using richtext?
Aren't you talking about Control-C/Control-V? If you want to do away with
the need to select the entire text before Control-C, then you can use the
Form's KeyDown event to do all this. (Access 97)
'***************** Code Start **************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim vShift As Variant
vShift = (Shift And CTRL_MASK)
On Error Resume Next
If vShift And (KeyCode = 67) Then
'Copy Record
KeyCode = 0
With Screen.ActiveControl
.SelStart = 0
.SelLength = Len(Screen.ActiveControl)
End With
DoCmd.RunCommand acCmdCopy
ElseIf vShift And (KeyCode = 86) Then
KeyCode = 0
'Paste Record
DoCmd.RunCommand acCmdPaste
End If
End Sub
'***************** Code End **************
HTH
--
Dev Ashish (Just my $.001)
---------------
The Access Web ( http://home.att.net/~dashish )
---------------
:Hi,
:I would like to be able to cut and paste with a richtext control. Both Getz
:and an article in the KB describe how to copy and paste info from one
:control into same control of another record but neither explain blocking
:selected text in a control and pasting it both in same control or in other
:controls. Can this not be done? Any suggestions are appreciated.
:Alan Schwartz
:
: