• 🚨 24 часа до повышения цены на курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

    🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
    🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
    🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
    🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.

    Последний день записи в текущий поток по старой цене Подробнее о курсе ...

Поиск В Company Media

  • Автор темы Автор темы HelenHelen
  • Дата начала Дата начала
H

HelenHelen

Всем доброго дня!

Одна из баз CompanyMedia у нас должна использоваться для регистрации доверенностей, в связи с чем был доработан состав полей в ней. Теперь мне нужно доработать Поиск по форме так, чтобы он искал и по тем полям, которые я создала или изменила. Если кто знает, подскажите, как это сделать, пожалуйста! В библиотеке, которая отвечает за поиск, есть некая переменная FieldsAndForms, содержащая, судя по всему, массив поисковых полей. Однако нигде в коде я не вижу, чтобы ей присваивались какие-либо значения. Вот процедура, которая получает, какое поле как заполнил пользователь. Никаких указаний на состав самих полей я не вижу(((

Заранее большое спасибо!!

Код:
Function GetFields(searchstr As String,FieldsAndForms As Variant) As String
Dim s As String
Dim v As Variant 
Dim result As String
Dim j As Integer
Dim i As Integer 
If (Ubound(FieldsAndForms)>=0) Then
If (FieldsAndForms(0)<>"" ) Then
For j=0 To Ubound(FieldsAndForms)
If (j<>Ubound(FieldsAndForms)) Then
s = s + Strright(FieldsAndForms(j),"%") + "%"
Else
s = s+ Strright(FieldsAndForms(j),"%")
End If
Next
v = Evaluate({@Unique(@Explode(} + {"} + s + {"} + {;"%"))})
If (Isarray(v)) Then
result = "("
For i=0 To Ubound(v)
If (i<> Ubound(v)) Then
result = result + "[" + v(i) + "]" + {=} + {"} + searchstr + {"} + " OR "
Else
result = result + "[" + v(i) + "]" + {=} + {"} + searchstr + {"}
End If
Next
result = result + ")"
End If
End If
End If
GetFields = result
End Function
 
походу поле FieldsAndForms содержит массив названий поля и формы с разделителем %
посмотрите на его работу в дебагере и вам всё станет ясно
 
Насчет дебаггера - не могу реально извлечь ничего полезного, не могу выбрать нужный экшн (Поиск) и просмотреть значение нужной переменной. Я перехожу на нужную форму и перед нажатием кнопки поиск включаю дебаггер в дизайнере. Если так делать - переменную не вижу(((( если подскажете, почему так, буду очень признательна)
 
возможно что список полей по которым осуществляется поиск находится ещё в каком-либо службном поле, в виде списка.
 
Насчет дебаггера - не могу реально извлечь ничего полезного, не могу выбрать нужный экшн (Поиск) и просмотреть значение нужной переменной. Я перехожу на нужную форму и перед нажатием кнопки поиск включаю дебаггер в дизайнере. Если так делать - переменную не вижу(((( если подскажете, почему так, буду очень признательна)

Почему не вывести значение переменной в сообщении? Сразу многое станет понятней
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

Курс AD