Run Time Error 2110: cant move the SetFocus control

[jvborg]

I am experiencing a problem when trying to move the setfocus to text field txtSearchDump, if i do not place the text into this field the query which i am initially trying to run does not execute. Any advice would be very helpful

Thanks
Joe

Select Case Me.optSearchCriteria.Value
        Case 1
            strSQL = strSelect & strFrom & strTitle
        Case 2
            strSQL = strSelect & strFrom & strDescription
        Case 3
            strSQL = strSelect & strFrom & strSubmitter
        Case 4
            strSQL = strSelect & strFrom & strOwner
    End Select
 
    Me!txtSearchDump.SetFocus             ' *** Error occurs here when i try to move the set focus *** '
    Me!txtSearchDump.Text = strSQL
    CurrentDb.QueryDefs("qryCoreSearch").SQL = strSQL
    Me.lstCoreSearch.Requery
End Sub

[Stewart Ross]

Hi, and Welcome to Bytes!

There could be several reasons for the SetFocus not working, and at this stage without knowing more about your app I'd rather not guess.

You are using the .Text property of the control concerned - which is, as you have found, only available when the control has the focus. Instead of this, you just need to set the value of the control, which can be done without using setfocus at all. As the .Value property is the default for a control there is no need to refer to it explicitly:

Select Case Me.optSearchCriteria.Value
        Case 1
            strSQL = strSelect & strFrom & strTitle
        Case 2
            strSQL = strSelect & strFrom & strDescription
        Case 3
            strSQL = strSelect & strFrom & strSubmitter
        Case 4
            strSQL = strSelect & strFrom & strOwner
    End Select
 
    Me!txtSearchDump = strSQL
    CurrentDb.QueryDefs("qryCoreSearch").SQL = strSQL
    Me.lstCoreSearch.Requery
End Sub

-Stewart