SearchBy macro for alphanumeric fields

Fri, 20 Nov 2020 18:02:30 GMT

I have a macro that I use to define a "searchby" feature on my dashboard. This feature allows me to search by a list of values for every field.

The problem is that I am able to search by fields that have numeric values or non-numeric values, but unable to search by for fields that have alphanumeric values.

Below is the macro I use. Any suggestions about how to make it allow search by alphanumeric values?

Sub SetList

set doc = ActiveDocument

set sheet = doc.Sheets("Dashb1")

Dim list,A

list = doc.getVariable("vItemList").GetContent.String

A = Split(list,",")

dim counter,item2

counter=0

for Each item in A

item2 = LTrim(item)

A(counter) = RTrim(item2)

counter=counter+1

set myFields = doc.fields("%SearchBy").GetSelectedValues

for i=0 to myFields.Count - 1

set f = doc.fields(myFields.Item(i).text) 'for example "Recruiter Name"

set fv = f.GetNoValues 'empty array

counter=0

for Each item in A

fv.Add

fv(counter).Text = item

if myFields.Item(i).text = "CC" _

or myFields.Item(i).text = "D" _

or myFields.Item(i).text = "LN" _

or myFields.Item(i).text = "MId" _

or myFields.Item(i).text = "MLN" _

then

'msgbox(item)

fv(counter).Number = item

fv(counter).IsNumeric = true

elseif myFields.Item(i).text = "CCId" _

then

fv(counter).Text = item

else

fv(counter).IsNumeric = false

end if

counter=counter+1

f.SelectValues fv

End Sub

This section in bold is what I am trying to get to work:

elseif myFields.Item(i).text = "CCId" _

then

fv(counter).Text = item

CCId has alphanumeric values. Setting isNumeric = False for this field allows me to search by values that are alphanumeric but it fails for those values that are completely numeric. The above code that does not set anything, does not work either. I was not able to find any isAlphaNumeric member that would allow me to do this.

topic SearchBy macro for alphanumeric fields in QlikView

SearchBy macro for alphanumeric fields