10-27-2011, 11:43 PM
(This post was last modified: 10-27-2011, 11:57 PM by ravi.gajul.)
GroupName="CLIENT DOCUMENTS"
'*******************
'alternatively you can also go for switch case (better performance over 'the above)
GroupName="something"
Code:
If not strcomp(GroupName,"CLIENT DOCUMENTS - WBS",1)=0 or strcomp(GroupName, "COMMISSION REPORTS BY SUB / BRANCH / REP",1)=0 or strcomp(GroupName,"BRANCH REPORT SEARCHES",1)=0 or strcomp(GroupName, "SUB-FIRM REPORT SEARCHES",1)=0 or strcomp(GroupName, "FIRM REPORT SEARCHES",1)=0 then
'......................... <your code>.......................................
End If
'*******************
'alternatively you can also go for switch case (better performance over 'the above)
GroupName="something"
Code:
Select Case GroupName
Case "CLIENT DOCUMENTS - WBS"
'msgbox "CLIENT DOCUMENTS - WBS"
Case "COMMISSION REPORTS BY SUB / BRANCH / REP"
' msgbox "COMMISSION REPORTS BY SUB / BRANCH / REP"
Case "BRANCH REPORT SEARCHES"
'msgbox "BRANCH REPORT SEARCHES"
Case "SUB-FIRM REPORT SEARCHES"
'msgbox "SUB-FIRM REPORT SEARCHES"
Case else
'*******************************your code here******************************************************
msgbox "not in list"
End Select