[RESOLVED!] DTPicker and Focus

[stockton]

Hi people
I always use this forum to search for things when i got stuck in some error, but here i have an issue that i cannot find in here
here's the thing:
When i modify, ie, the month part in a dtpicker, and go to another control, if i go back to the dtpicker, the focus is still in the month part, but the dataentrys for the system i am doin', when they go again to the dtpicker, want the focus always be in the day part of it.. i have no clue how to do that, but i think it has to be an easy way to do that

well.. i hope that u can understand my problem since i'm from Argentina and english is not my primary language

thanks,
Ricardo

[Static]

hmm.. Ive tried a number of things and cant get it to do it!??
always wants to be at the month part.. (UNless u click on it)

even tried SendKeys chr$(39) which is the right arrow key

[brucevde]

You can use SendKeys "{LEFT}" (or {RIGHT}) to move the focus to a different date part. Place the code in the GotFocus event.

Unfortunately there is no way to know which date part currently has input focus. You will need to keep track of that manually - unless there is some API functionality that is not implemented in VB but is accessible via SendMessage or something...

[Static]

lol.. i forgot about "{RIGHT}" when testing sendkeys

[Hack]

Try this

Private testdate As String
 
Private Sub DTPickter1_Click()
testdate = DTPickter1.Value
End Sub
 
 
Private Sub dtpAppealLtrDT_GotFocus()
'need this On Error because the first time it is clicked during
'a session the variable will be empty, and therefore, will generate
'an error
On Error Resume Next  
DTPickter1.Value = testdate
End Sub

[stockton]

thanks for the replies..
i will try how to use SendKeys "{LEFT}", but i think it will be kind of hard to code something that works
in the other hand, i don't understand the code by Hack, if u can explain me a little how that work it will be excelent

[Hack]

When you pick a date, it stores that date in a variable.

The next time you open the datepickter, it takes what is in that variable for a date and makes it the default date of the datepickter which I believe is what you wanted.

[stockton]

When you pick a date, it stores that date in a variable.

The next time you open the datepickter, it takes what is in that variable for a date and makes it the default date of the datepickter which I believe is what you wanted.

nop, the thing i want is: when the dtpicker got the focus, always the focus be on the day part... that's why, in example, if you change the year part, go to another control, and go back to the dtpicker, the focus will be in the year part of the dtpicker (the last part you changed) instead of being in the day part

[brucevde]

Sometimes we try to make things too complicated. After thinking about the problem some more I came up with a simple solution.

Private Sub DTPicker1_GotFocus()
    'this code moves the focus to the Day input section 
    'when the date picker control gets focus
    'Assumes the date picker is in mm/dd/yyyy format
    
    Dim dteTemp As Date
    
    With DTPicker1
        'store the current value because it will be modified. 
        dteTemp = .Value
    
        'Force a change to the current date section 
        SendKeys "{UP}", True
    
        If Year(dteTemp) <> .Year Then
            'the UP key affected the Year section, so move Left to the Day section.
            SendKeys "{LEFT}"
        ElseIf Month(dteTemp) <> .Month Then
            'the UP key affected the Month section, so move Right to the Day section.
            SendKeys "{RIGHT}"
        End If
    
        'restore the current value.
        .Value = dteTemp
    End With
    
End Sub

The only problem is that this code causes the Change and several KeyDown events to occur, so you may need to "know" when this code is executing. Set the mblnDTPGotFocus variable to True at the beginning of the GotFocus event and back to False at the end.

'form level variable
Private mblnDTPGotFocus As Boolean
 
Private Sub DTPicker1_Change()
    If Not mblnDTPGotFocus Then 
        'the event is firing because of a user change, not the GotFocus event.
        Debug.Print "DTPicker1_Change" 
    End If 
End Sub

[stockton]

Great Bruce !! it worked nice ! very clean and understandable

thank you very much !

[sanjaylimbikai]

Thanks Bruce,

I also was trying to resolve the same prob., but can't and last with left it as it is.
now I know this will solve my prob.

Sanjay