Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Nasty424
0 / 0 / 0
Регистрация: 20.06.2012
Сообщений: 1
1

Ошибка 424 при работе с БД. Исправить код

24.06.2012, 00:48. Просмотров 762. Ответов 1
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Dim db As Database
Set db = CurrentDb
Dim rstSells As DAO.Recordset
Dim rstPhone As DAO.Recordset
Dim rstCheck As DAO.Recordset
Dim rstSellPhone As DAO.Recordset
 
Set rstSellPhone = db.OpenRecordset("Проданныетелефоны")
Set rstPhone = db.OpenRecordset("телефоны")
Set rstSells = db.OpenRecordset("продавцы")
Set rstChek = db.OpenRecordset("чеки")
 
Dim strSells As String
Dim strPhone As String
Dim lCodeSl, lCodeSlShip, lCodePh, lCodePhShip As Long
 
With rstSellPhone
If Not .EOF Then
.MoveFirst
While Not .EOF
.Delete
.MoveFirst
Wend
End If
End With
 
With rstSells
.MoveFirst
While Not .EOF
lCodeSl = .Fields("кодпродавца")
strSells = .Fields("ФИО")
strPhone = ""
With rstChec
.MoveFirst
While Not .EOF
lCodeSlShip = .Fields("кодпродавца")
If lCodeSl = lCodeSlShip Then
lCodePhShip = .Fields("кодтелефона")
With rstPhone
.MoveFirst
Do While Not .EOF
lCodePhone = .Fields("кодтелефона")
If lCodePh = lCodePhShip Then
strPhone = strPhone + .Fields("модель") + ", "
Exit Do
End If
.MoveNext
Loop
End With
 
End If
.MoveNext
Wend
If strPhone <> "" Then
With rstSellPhone
.AddNew
.Fields("ФИО") = strSells
strPhone = Mid(strPhone, 1, InStrRev(strPhone, ",") - 1)
.Fields("модель") = strPhone
.Update
End With
 
End If
End With
 
.MoveNext
Wend
End With
 
rstSells.Close
rstPhone.Close
rstCheck.Close
rstSellPhone.Close
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.06.2012, 00:48
Ответы с готовыми решениями:

Ошибка 424 при написании макроса Excel
Доброго времени суток, форумчане! Столкнулся с такой проблемой, хочу написать кнопку для открытия...

Ошибка 424 при поиске значения на листе
Доброго дня всем. Непойму что не так с кодом. Private Sub Knopka10_Click() ' Месячный_отчет...

424 ошибка в макросе при запуске VBS-скрипта
Добрый день! просьба помочь. В Outlook создал Макрос, который должен запускать test.vbs. Но...

Ошибка 424 object required при заполнении ListBox
Начала вылезать ошибка вот в этом куске: Private Sub UserForm_Activate() ListBox1.AddItem...

Ошибка при работе с перечислением (исправить код)
Вроде бы всё проще простого: создал тип-перечисление месяцев с указанием количества дней в месяце....

1
Памирыч
Почетный модератор
21098 / 8826 / 1080
Регистрация: 11.04.2010
Сообщений: 11,012
24.06.2012, 02:37 2
Лучший ответ Сообщение было отмечено как решение

Решение

Nasty424, Вы считаете - выложить код и написать в заголовке "выдает ошибку 424" - это грамотный подход к созданию темы?
Прочитайте правила и убедитесь в обратном.
Давайте полное задание - что делает код или что должен делать, где возникает ошибка, при каких действиях?

И сразу же, с первого сообщения давайте договоримся, что впредь такого оформления тем не будет
4
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.06.2012, 02:37

Математические функции при работе с треугольником и прямоугольником: исправить код
#include &lt;iostream&gt; #include &lt;math.h&gt; using namespace std; int main() { double...

Ошибка при работе с ArrayList (Обнаружен недостижимый код)
Что значит ошибка: Обнаружен недостижимый код? Вылезает на строке (подчеркивает myArrList): ...

Аппаратная ошибка видео (Ошибка при работе с видеоустройствами привела к некорректной работе Windows).
Аппаратная ошибка видео. Последнее время во время игры Call of Duty: Modern Warfare 2 в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru