Re: SetFocus Question
From: Sam (semusemu_at_hotmail.com)
Date: 08/20/04
- Next message: William: "Re: Pivot Table Name Reset"
- Previous message: avarghese: "Naming an Excel Workbook"
- In reply to: Nick: "SetFocus Question"
- Messages sorted by: [ date ] [ thread ]
Date: Fri, 20 Aug 2004 15:01:29 GMT
Hi,
I am sure that I set all the AutoTab property to false. What are some other
possibilities that are causing this?
Thanks.
"Nick" <anonymous@discussions.microsoft.com> wrote in message
news:9d1001c486b5$5b0b3440$a401280a@phx.gbl...
> Hi
> The only thing I can think of is for you to check the
> Autotab property and the MaxLength property for the
> control. If Autotab is true and MaxLength is to 2 then the
> focus will jump to the next control when the maximum
> length of the field is met.
>
> Not sure this is the solution but you can have a look.
>
> >-----Original Message-----
> >Hi, I am building a very simple Userform with 3 combo
> boxes and a few
> >textboxes at the bottom which allows the user to specify
> the month/day/year.
> >
> >Month(combo box) contains values 1-12
> >Day(combo box) contains values 1-31
> >Year(combo box) contains values 1980-2004
> >
> >My task is very simple. I want to allow the user to use
> UP/DOWN arrow key
> >to traverse thru the values in the combo (for example, 1-
> 12 in the Month
> >combo box). A weird problem that keeps coming up is that
> if the value is
> >already 12 (at the very bottom) in the Month combo box,
> and I pressed the
> >DOWN arrow key again, the cursor will jump to another
> combo or another
> >textbox. And this problem does not come up in the Day
> combo box, it stays
> >at 31 no matter how many times you press the DOWN arrow
> key.
> >
> >I tried to use SetFocus function to fix this problem but
> it doesn't work.
> >Is there any way to prevent cursors from moving between
> fields when up/down
> >arrow keys are pressed? The following is my code. Any
> suggestion is
> >greatly appreciated.
> >
> > Dim Months
> > Months = Array
> ("01", "02", "03", "04", "05", "06", "07", "08", _
> > "09", "10", "11", "12")
> >
> > For i = LBound(Months) To UBound(Months)
> > cbCalMonth.AddItem Months(i)
> > Next i
> > cbCalMonth = Months(8)
> >
> >Private Sub cbCalMonth_KeyDown(ByVal KeyCode As
> MSForms.ReturnInteger, ByVal
> >Shift As Integer)
> >
> > If (KeyCode = 40) Then
> > If (cbCalMonth = 12) Then
> > cbCalMonth.SetFocus (<-- Doesn't work)
> > End If
> > End If
> >End Sub
> >
> >
> >Also, if I tried to SetFocus to another Combo Box, it
> works fine. Just that
> >I can't set focus to the current combo box. Basically, I
> can't control the
> >cursor movement when Down arrow key is pressed.
> >
> >Thanks
> >
> >
> >.
> >
- Next message: William: "Re: Pivot Table Name Reset"
- Previous message: avarghese: "Naming an Excel Workbook"
- In reply to: Nick: "SetFocus Question"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
