Какой код использовать для Access VBA, чтобы позволить форме для расчета текстового ответа?

Question

У меня есть общая база данных доступа, и я хотел бы получить максимальную отдачу от нее.

Я создал форму (formData_Header), которая содержит вложенную форму (formData_Sub). Подформа содержит текстовые поля для предметов, подлежащих инвентаризации, а также данные (числа) от сканов, которые соответствуют этим предметам. Каждый элемент будет иметь 2 текстовых поля (count1 и count2). Заголовок формы содержит текстовые поля, которые будут применены ко всем полям в форме, например значения из фона инструмента. Фон будет иметь 2 текстовых поля (bkg1 и bkg2).

Если я еще не потерял вас, я хочу взять фоновые значения из заголовка и значения счетчиков из подформы и вычислить текстовый ответ в другом текстовом поле или поле со списком, расположенном всубформа.

т.е.: If bkg1 + bkg2 > count1 + count2 затем вывод "FAIL"
If bkg1 + bkg2 = count1 + count2 затем вывод "RE -valuate". Все остальное вывод "OK"

Я пыталсясделать это несколькими способами, и каждый раз я получаю случайную ошибку, или код ничего не делает.

Answer 1

Создайте пользовательскую функцию, которая вызывается из события после обновления для каждого элемента управления.

Сначала необходимо проверить, имеет ли значение каждый элемент управления / параметр. Если нет, верните значение по умолчанию «FAIL», в противном случае используйте показанные выше расчеты.

Если вы поместили функцию в основной код формы, используйте этот формат для помещения результата в элемент управления подчиненной формы:

Me.formData_Sub.Controls("txtResult") = strCalculatedResult

Если ваш код находится в подчиненной форме, запишите результат в элемент управления следующим образом:

Me.ControlName = strCalculatedResult