Если у вас есть фиксированный список столбцов, просто переместите код, в котором вы задали строку поиска, под той частью, где вы определяете, в каком столбце вы хотите искать, и отметьте выбранное поле в этом списке.Тем не менее, я бы предложил поставить эту функцию отдельно:
Function getSearchString(searchVal as variant, searchFieldName as string)
If IsNumeric(searchVal) Then
getSearchString = "=" & searchVal
ElseIf searchFieldName = "MyField1" _
Or searchFieldName = "MyField2" _
Or (... List all fields where you want to search partial) Then
getSearchString = "=*" & searchVal & "*"
Else
getSearchString = "=" & searchVal
End If
End Function
Вы вызываете функцию после установки переменной ButtonName
.
searchStr = getSearchString(mySearch, ButtonName)
(вы, конечно, можете подумать оболее сложный способ определить, следует ли использовать частичный поиск или нет, или, возможно, добавить CheckBox, чтобы позволить пользователю выбрать)