Form Tab to text fields Excel 2000

[~KO]

Hello, I am new to Excel form development and this is the code I have set for
44 texboxes to advance through the boxes. However, this does not scroll down
the page. I am tabbing to the correct box but cannot see it!

Private Sub TextBox1_KeyDown(ByVal _
KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = 9 Then TextBox2Activate


End Sub

Private Sub TextBox2_KeyDown(ByVal _
KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = 9 Then TextBox3.Activate


End Sub

 

[Henrich]

You don't have to make Keydown code to every Textbox, because you can scroll
between Textbox's by pressing the TAB key on your keyboard. You only have to
assign to every Textbox in Textbox Properties -> TabStop = True and also
TabIndex from 0 to 43 as you wish to scroll in right order.

The problem with size of your Form you can solve by decreasing the size in %
on Form Properties -> Zoom. When It is for any reason not possible make
another Form an by reaching the last Textbox you can make code to load next
Form by Exit event.

„~KO" napísal (napísala):