KeyDown event doesn't occur for Text Box

[dana1]

I have a form with several combo boxes in the header used to determine the records that will be displayed on the form. When I tab or enter from the last combo box in the header, I want the focus to move to the first control on the form. When I Shift+tab from the first control on the form, I want the focus to move to the last control in the header. The form is a continuous form.

The first control on the form is either a text box or a combo box, depending on whether you are entering a new record (the combo box is visible only when entering a new record). The problem is that the KeyDown event of the Text Box never occurs when I press a key and the TextBox appears to have focus.

Other relevant information: The SCI_Name_TextBo x and computerComboBo x are tab stops, but SCINameComboBox is not. All three are Enabled and Not Locked.

Any ideas as to why this event is not getting triggered? Is there an alternative way to capture the Shift+Tab from the text box?

Following is my relevant code:

'This is the text box on top of the combo box in the detail section of the form.
' This event never gets triggered, so this code never runs.
Private Sub SCI_Name_TextBox_KeyDown(KeyCode As Integer, Shift As Integer)
 
 ' If user presses SHIFT+TAB on the first row....
   If (KeyCode = vbKeyTab) And ((Shift And acShiftMask) > 0) Then
            'only if we're on the first row...
            If Me.CurrentRecord = 1 Then
                ' Disable the keystroke by setting it to 0
                KeyCode = 0
                'Set the focus to computer combo box
                Me.computerComboBox.SetFocus
            End If
 
   End If
 
End Sub
 
'if the combo box is visible, then go ahead and set focus to it when you enter
'the text box
'I only included this because it's possibly related to the problem
'this appears to work correctly though....
Private Sub SCI_Name_TextBox_Enter()
    If Me.SCINameComboBox.Visible Then
        Me.SCINameComboBox.SetFocus
    End If
End Sub
 
'This is the combo box underneath the text box.  This event gets triggered
'when a key is pressed and works like a champ.  (focus goes to the form
'header when you shift+tab from the first record, goes to the last control
'from the previous record otherwise)
Private Sub SCINameComboBox_KeyDown(KeyCode As Integer, Shift As Integer)
 
 ' If user presses SHIFT+TAB on the first row....
   If (KeyCode = vbKeyTab) And ((Shift And acShiftMask) > 0) Then
            'only if we're on the first row...
            If Me.CurrentRecord = 1 Then
                If ((Shift And acShiftMask) > 0) Then
                    ' Disable the keystroke by setting it to 0
                    KeyCode = 0
                    'Set the focus to computer combo box
                    Me.computerComboBox.SetFocus
                End If
            End If
 
    Else
 
        Select Case KeyCode
            ' If user presses TAB, ENTER
            Case 13, 9
                ' Disable the keystroke by setting it to 0
                KeyCode = 0
 
                'Set the focus to the version drop down
                Me.SCIDescriptionComboBox.SetFocus
            Case Else
                Debug.Print KeyCode, Shift
        End Select
 
    End If
End Sub
 
'combo box in the form header
'captures and ignores the error 2110 (couldn't set focus to the text box)
'because the set focus appears to work even though an error is thrown. 
'not the best solution.. but this may be related to the other problem I'm seeing
Private Sub computerComboBox_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_computerComboBox_KeyDown
    Select Case KeyCode
        ' If user presses TAB, ENTER
        Case 13, 9
            If Not IsNull(Me.computerComboBox) Then
                ' Disable the keystroke by setting it to 0
                KeyCode = 0
 
                'Set the focus to the first control in the detail view
                Me.SCI_Name_TextBox.SetFocus
            End If
        Case Else
            Debug.Print KeyCode, Shift
    End Select
Exit_computerComboBox_KeyDown:
    Exit Sub
 
Err_computerComboBox_KeyDown:
    If Not (Err.Number = 2110) Then
        MsgBox Err.Description
    End If
    Resume Exit_computerComboBox_KeyDown
 
End Sub
 

Thanks in advance for any ideas!

Dana

[dana1]

Sheepishly... I must admit that only moments after posting, I thought of one more thing to try. The event procedure, for whatever reason, didn't get hooked up properly to the text box. So, I went into my text box properties and set the onKeyDown property to [Event Procedure] and everything is great.

Sorry!

Although if anyone has any ideas about that 2110 error.. feel free to respond :-)

Dana