У меня есть текстовое поле под названием [Возраст], и когда я нажимаю кнопку [AgeRoll], мне нужно ввести случайно выбранный возраст в [Age] (ps: это база данных rpg)
Для нескольких гонок это другая формула.
Мне удалось вывести правильную формулу, единственная проблема в том, что она читается как текст, а не вычисляется как число.
Что должно произойти, формула, полученная из моей таблицы, должна быть рассчитана и дать результат этого расчета в виде числа.
Это код, который я использую, когда вы нажимаете кнопку:
Dim AgeMemory As Variant
Dim Raceid As Variant
Raceid = [Race ID].Value
AgeMemory= DLookup("AgeRol", "Race table", "[Id] =" & Raceid)
Age.Value = AgeMemory 'changes the value of Age into that of AgeMemory
Age.SetFocus
Agerol — это поле в таблице «Таблица рас», которое представляет собой текст. Возраст — это текстовое поле в виде целого числа (числа).
Это дает ошибку, что AgeMemory является неправильным типом данных (вместо этого это не число, а текст)
Когда я просматриваю окно отладки, значение AgeMemory — это формула, которую я хочу использовать, но в виде текста, а не числа, которое является результатом формулы, которую она показывает сейчас.
Одна из формул, которые он возвращает мне:
(16+((rnd*20)+1))
Очень короткая версия, мне нужно число вместо формулы, которую я получаю сейчас.