ACC97: Using Tab Key to Insert Tab Character in RichText Control

MORE INFORMATION

1. Create a new form not based on any table or query in Design view.
2. On the Insert menu, click ActiveX Control.
3. In the Insert ActiveX Control dialog box, select Microsoft RichText Control, and then click OK.
4. Set the control's Name property to ctlRichText1.
5. Add two text boxes to the form.
6. On the View menu, click Code. Type the following procedure:
   

         Private Sub ctlRichText1_KeyDown(KeyCode As Integer, _
               ByVal Shift As Integer)
            Dim rtf As RichTextBox
            Set rtf = Me!ctlRichText1.Object
            If KeyCode = 9 Then  ' TAB key was pressed.
               ' Ignore the TAB key, so focus doesn't
               ' leave the control
               KeyCode = 0
               ' Replace selected text with the tab character
               rtf.SelText = vbTab
            End If
         End Sub
   						

7. Switch the form to Form view. Note that pressing the TAB key now inserts a tab character in the RichTextBox Control. To exit the RichTextBox control, use your mouse pointer. Note also that the TAB key behaves as it normally does when one of the text boxes has the focus.