Background

Total Access Memo lets you add rich text format (RTF) memos to Microsoft Access with sophisticated editing and spell checking.

Question

How can I use Tab or Shift+Tab to move focus to another control with Total Access Memo?

Answer

The solution to this for Total Access Memo is to use the KeyPress or KeyDown event to perform the action you are trapping for.

To use this for the "Tab" or "Shift + Tab" Key, simply add the following Code to your form:

' This code moves focus out of the Total Access Memo Control
' to the next or previous control you want to set focus to

Option Compare Database
Option Explicit

Private mfShiftDown As Boolean

Private Sub mmoTest_KeyDown(KeyCode As Integer, Private mfShiftDown As Boolean

Private Sub mmoTest_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
  ' This code is from Microsoft Help for the KeyDown event
  ' Use bit masks to determine which key was pressed.

  mfShiftDown = ((Shift And acShiftMask) > 0)

End Sub

Private Sub mmoTest_KeyPress(keyascii As Integer)

  If KeyAscii = vbKeyTab Then
    If mfShiftDown Then
      Me!PreviousControl.SetFocus
    Else
      Me!NextControl.SetFocus
    End If
    KeyAscii = 0
  End If
End Sub

Where "mmoTest" is the name of your control and "NextControl" is the next control you want to set focus to and "PreviousControl" is the name of the previous control you want to set focus to when using Shift and Tab keys together.

Additional Support Resources

• Support Options
• Product Information
• FAQs
• Updates
• User Manual
•  PDF Fact Sheet