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 'Problem occurs here Run Time Error: cannot move focus to the control txtSearchDump' Me!txtSearchDump.Text = strSQL CurrentDb.QueryDefs("qryCoreSearch").SQL = strSQL Me.lstCoreSearch.Requery End Sub
If you would like to report an abuse of our service, such as a spam message, please . Если Вы хотите пожаловаться на содержимое этой страницы, пожалуйста .