|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.10.2010, 17:47 | #1 |
Регистрация: 20.12.2009
Сообщений: 3
|
Исправление ошибки
Не пойму что не так. Появляется ошибка "Method or data member not found (Error 461)" при выполнении расчета(выделяется жёлтым строчка "Private Sub Кнопка1_Click()"). Что делать?
Option Compare Database Private Sub Кнопка1_Click() Dim bs As Database 'база данных Dim Таблица1 As Recordset ' Таблица баз данных Dim Sum1, Sum2, Sum3, Sum4, Sum5 As Double Dim n As Integer Set tab_1 = bs.OpenRecordset("Таблица1") 'tab1 связь с таблицей "Таблица1" tab_1.MoveFirst 'Встать на первую запись таблицы "Таблица1" Sum1 = 0 ' Sum1:=0 Sum2 = 0 ' Sum2:=0 Sum3 = 0 ' Sum3:=0 Sum4 = 0 ' Sum4:=0 Sum5 = 0 ' Sum4:=0 n = 0 While Not tab_1.EOF ' Пока не конец файла таблицы "Таблица1" Sum1 = Sum1 + tab_1.Fieds(1) * tab_1.Fieds(2) * tab_1.Fieds(3) 'Sum2:=Sum2+Ni*Mi*Ci Sum2 = Sum2 + tab_1.Fieds(1) ^ 2 Sum3 = Sum3 + tab_1.Fieds(2) ^ 2 Sum4 = Sum4 + tab_1.Fieds(1) Sum5 = Sum5 + tab_1.Fieds(2) n = n + 1 tab_1.MoveNext ' Перейти на следующую запись таблицы "Таблица1" Wend ' конец цикла While Sum2 = (Sum2 - Sum2_ ^ 2 / n) * (Sum3 - Sum3_ ^ 2 / n) / (n - 1) ^ 2 Поле3.Caption = Str(Sum1 / Sum2) ' Вывести результат в визуальный элемент Edit_01 End Sub |
17.10.2010, 19:45 | #2 |
Пользователь
Регистрация: 16.10.2010
Сообщений: 21
|
ага
У вас в этой строчкеошибка
Set tab_1 = db.OpenRecordset("Таблица1", dbOpenDynaset) причем tab_1 - должно быть типом Recordset (это по вашей логике) + добавьте , dbOpenDynaset) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Исправление кода... | SwIm | Помощь студентам | 3 | 19.01.2010 01:43 |
Исправление | Behold | Фриланс | 5 | 10.09.2009 13:32 |
Исправление ошибки | bee_uk | Общие вопросы C/C++ | 1 | 02.06.2009 13:43 |
Исправление ошибки в MS VS 2005 | NatCa | Помощь студентам | 6 | 03.12.2008 18:23 |