Здравствуйте,
недавно занялся VBA и прошу помощи, так как самому найти ошибку в своём коде у меня не получилось.
код следующий:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim musculature, roll_musculature, race_mod_musculature, class_mod_musculature, const_mod_musculature As Double
Dim str_musculature, str_roll_musculature, str_race_mod_musculature, str_class_mod_musculature, str_const_mod_musculature As String
str_roll_musculature = frm_create_character.tbx_roll_musculature.Text
str_race_mod_musculature = frm_create_character.lbl_race_mod_musculature.Caption
str_class_mod_musculature = frm_create_character.lbl_class_mod_musculature.Caption
str_const_mod_musculature = frm_create_character.lbl_const_mod_musculature.Caption
roll_musculature = CDbl(str_roll_musculature)
race_mod_musculature = CDbl(str_race_mod_musculature)
class_mod_musculature = CDbl(str_class_mod_musculature)
const_mod_musculature = CDbl(str_const_mod_musculature)
musculature = roll_musculature + race_mod_musculature + class_mod_musculature + const_mod_musculature
str_musculature = CStr(musculature)
frm_create_character.lbl_musculature.Caption = str_musculature
ошибка возникает вот такая:
Run-time error '13': Type mismatch
При нажатии на кнопку Debug ссылается на строку кода:
1.
roll_musculature = CDbl(str_roll_musculature)
Предполагаю, что все четыре строки кода, содержащие функцию CDbl выдадут аналогичную ошибку.
Поясню также, что текстовое поле и три лейбла содержат цифры от 0 до 20 (целые, дробей нет, пробовал использовать функцию CInt, та же ошибка). Задача в пятом лейбле выводить сумму цифр, указанных в tbx_roll_musculature, lbl_race_mod_musculature, lbl_class_mod_musculature, lbl_const_mod_musculature. Тестирование провожу при значениях полей 0, 1, 0, 0 соответственно.
