ошибка 13 type mismath

@Anylin · Регистрация: 14.01.2011

Студворк — интернет-сервис помощи студентам

люди нужна небольшая помощь у меня задание было создать базу данных access (из 2таблиц) через VB, и потом обработать все .Я написала вывод для 1 табл и вывод для 2 таб и 3 кнопка у меня само решение и вот сам код этой кнопки

Private Sub Command3_Click()
Dim nam As String, komp As String, rez As String, act As String, bud As Single, sb As Single
Dim Oknam As Single, Okup As Single
kolzapt1 = Data1.Recordset.RecordCount
kolzapt2 = Data2.Recordset.RecordCount
For i = 1 To kolzapt1
nam = t1(i, 1)
komp = t1(i, 2)
rez = t1(i, 3)
act = t1(i, 4)
bud = t1(i, 5) выделяет эту строчку и пишет type mismath
M = 0
For f = 1 To kolzapt2
sb = t2(f, 3)
If t2(f, 1) = nam Then
Oknam = t2(f, 3) / t1(i, 5)
Okup = Okup + Oknam
M = 1: Exit For
End If
Next f
If M = 0 Then MsgBox "Таблицы не согласованы": Exit Sub

List1.AddItem nam
List2.AddItem komp
List3.AddItem rez
List4.AddItem act
List5.AddItem bud
List6.AddItem sb
List7.AddItem Format(Oknam, "Percent")

Next i
MsgBox "Окупаемость=" & Format(Okup, "Percent")

End Sub

Подскажите в чем ошибка?

@gaw · 27.01.2011, 19:19

bud = t1(i, 5) несоответсвие типа, скорей всего в t1(i, 5)
попробуй bud = Val(t1(i, 5))

Добавлено через 1 минуту
а дальше наверное тут (+проверка на t1(i, 5)<>0) Oknam = t2(f, 3) / t1(i, 5)

@Anylin · 27.01.2011, 23:14 **[ТС]**

если с доб val
то опять выкидывает ошибку и выделяет уже другую строчку
Okup = Okup + Oknam

@gaw · 27.01.2011, 23:26

какая ошибка

@Anylin · 27.01.2011, 23:34 **[ТС]**

до сих пор 13

Добавлено через 5 минут
может поможет если я сюда 2 кнопки первых брошу?.....вдруг что-то не совпадает чего не вижу я

@gaw · 27.01.2011, 23:48

попробуй Okup=0 где то перед циклом For f = 1 To kolzapt2

@Anylin · 27.01.2011, 23:59 **[ТС]**

тож нет....13

@gaw · 28.01.2011, 00:13

скиньте весь файл с данными

@Alex77755 · 28.01.2011, 03:20

t1 это похоже таблица?
Так у них обычно индексы идут с 0 и у тебя просто нет стобца с индексом 5

@Anylin · 28.01.2011, 10:43 **[ТС]**

вот файл

@Anylin · 28.01.2011, 10:45 **[ТС]**

Сообщение от Alex77755

t1 это похоже таблица?

да это таблица

@Anylin · 28.01.2011, 10:46 **[ТС]**

а вот таблица сама

@Alex77755 · 28.01.2011, 18:44

Не охота разбираться, но попробуй всё-таки уменьшить на 1 индексы
For f = 0 To kolzapt2 - 1

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных выбран регистр накопления, в. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@Anylin 0 / 0 / 0 Регистрация: 14.01.2011 Сообщений: 21

	ошибка 13 type mismath 27.01.2011, 18:42. Показов 2011. Ответов 12 Метки нет (Все метки) люди нужна небольшая помощь у меня задание было создать базу данных access (из 2таблиц) через VB, и потом обработать все .Я написала вывод для 1 табл и вывод для 2 таб и 3 кнопка у меня само решение и вот сам код этой кнопки Private Sub Command3_Click() Dim nam As String, komp As String, rez As String, act As String, bud As Single, sb As Single Dim Oknam As Single, Okup As Single kolzapt1 = Data1.Recordset.RecordCount kolzapt2 = Data2.Recordset.RecordCount For i = 1 To kolzapt1 nam = t1(i, 1) komp = t1(i, 2) rez = t1(i, 3) act = t1(i, 4) bud = t1(i, 5) выделяет эту строчку и пишет type mismath M = 0 For f = 1 To kolzapt2 sb = t2(f, 3) If t2(f, 1) = nam Then Oknam = t2(f, 3) / t1(i, 5) Okup = Okup + Oknam M = 1: Exit For End If Next f If M = 0 Then MsgBox "Таблицы не согласованы": Exit Sub List1.AddItem nam List2.AddItem komp List3.AddItem rez List4.AddItem act List5.AddItem bud List6.AddItem sb List7.AddItem Format(Oknam, "Percent") Next i MsgBox "Окупаемость=" & Format(Okup, "Percent") End Sub Подскажите в чем ошибка? 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	27.01.2011, 19:19
	bud = t1(i, 5) несоответсвие типа, скорей всего в t1(i, 5) попробуй bud = Val(t1(i, 5)) Добавлено через 1 минуту а дальше наверное тут (+проверка на t1(i, 5)<>0) Oknam = t2(f, 3) / t1(i, 5) 0

@Anylin 0 / 0 / 0 Регистрация: 14.01.2011 Сообщений: 21
	27.01.2011, 23:14 [ТС]
	если с доб val то опять выкидывает ошибку и выделяет уже другую строчку Okup = Okup + Oknam 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	27.01.2011, 23:26
	какая ошибка 0

@Anylin 0 / 0 / 0 Регистрация: 14.01.2011 Сообщений: 21
	27.01.2011, 23:34 [ТС]
	до сих пор 13 Добавлено через 5 минут может поможет если я сюда 2 кнопки первых брошу?.....вдруг что-то не совпадает чего не вижу я 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	27.01.2011, 23:48
	попробуй Okup=0 где то перед циклом For f = 1 To kolzapt2 0

@Anylin 0 / 0 / 0 Регистрация: 14.01.2011 Сообщений: 21
	27.01.2011, 23:59 [ТС]
	тож нет....13 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	28.01.2011, 00:13
	скиньте весь файл с данными 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	28.01.2011, 03:20
	t1 это похоже таблица? Так у них обычно индексы идут с 0 и у тебя просто нет стобца с индексом 5 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	28.01.2011, 18:44
	Не охота разбираться, но попробуй всё-таки уменьшить на 1 индексы For f = 0 To kolzapt2 - 1 0