Use Set Focus in Detail Area after Filter From Header

[loubon]

Hi all. Not a programmer so I'm not even sure what I'm trying to do is possible. I have a form that has controls and buttons in the Header. These are for filtering specific results which then show in the Detail section. For example, if you fill in the field called Solution ID and click the Search button the Detail area will show all records that match the above. The output in the Detail is columnar not a datasheet format. Some of these fields can be updated others can't. There is also a Clear button in the Header that clears the whole form so you can search again. (The last button just takes you back to the main menu). I used some code I found by Allen Browne to achieve this.



I was able to modify it so the focus is on the first search (filter) control each time the form is opened or cleared and reset. But in cases where the search is run and the results are shown in the Detail you can't see where the cursor is. I'd like the focus to be on the first editable field but since it is showing results from the filter I'm not sure that is possible. Any attempt I've made to add a set focus line of code either causes an error or messes up the one that always sets it back when first opened or after being cleared.

Hopefully, that makes sense and TIA.

[davegri]

Try setting the focus in the Form_Current event.

[loubon]

That didn't work assuming I followed you correctly. I put me.NameOfField.setfocus in the On Current property. The focus is just on the next button in the header (which is probably where it was before when I couldn't see it). When I tab around it just moves around the Header.

In case I didn't explain it properly, the Search (filter) is executed by a click of a command button in the header.

[davegri]

Can you post a jpg of the form? It isn't clear if your Header/Detail might be a mainform/subform setup. Code treatment for the latter is a bit more complicated than the former.

[loubon]

Definitely not a form and subform. That was the path I took originally and scrapped that when I found this method. Not sure I can post an attachment since I'm new but this is the code I used. The output is similar except for the fact that the results are columnar rather than datasheet. http://allenbrowne.com/ser-62.html

[davegri]

    '***********************************************************************
    'Chop off the trailing " AND ", and use the string as the form's Filter.
    '***********************************************************************
    'See if the string has more than 5 characters (a trailng " AND ") to remove.
    lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then     'Nah: there was nothing in the string.
        MsgBox "No criteria", vbInformation, "Nothing to do."
    Else                    'Yep: there is something there, so remove the " AND " at the end.
        strWhere = Left$(strWhere, lngLen)
        'For debugging, remove the leading quote on the next line. Prints to Immediate Window (Ctrl+G).
        'Debug.Print strWhere
        
        'Finally, apply the string as the form's Filter.
        Me.Filter = strWhere
        Me.FilterOn = True
        ClientID.SetFocus
    End If
End Sub

Changed Browne's form default view to single form and added the red, and the clientID in the detail section gets the focus after a search.

[loubon]

Bingo! Thank you so very much! I was so close. I had also changed to single form and added that line exactly where you did. But I had a "me." at the start.