ник: Дядя Федор
Можно использовать коллекцию
Public Function mecol() As Collection
Dim col As New Collection
col.Add "FIRMA_NAME"
col.Add "FIRMA_ADRES"
Set mecol = col
End Function
Private Sub tstmecol()
Dim col2 As New Collection
Set col2 = mecol
Dim s
For Each s In col2
Debug.Print s
Next
End Sub
|
Как применить, думаю, сообразишь.
Пробегая по таблице проверяем вхождение в значение поля элемента коллекции и т.п.
Впрочем вариант с массивом то же самое.
Хотя, кажется глупость получилась Все равно потом проверять select case-ом.
Погорячился я....
