Путь к таблице / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Путь к таблице

3 сообщений из 3, страница 1 из 1

Путь к таблице

#39258321

Novixen

Гость

Добрый вечер. Я новичок в access и хотел бы спросить у вас кое-что. Имеется таблица и в ней три колонки: код продукт и сумма. Мне надо из vba обращаться к этой таблице и чтобы она пробегалась по первой колонке и если значение ячейки в первой колонке равно 1, то чтобы она брала значение третьего столбца из этой строки и добавляла его в память и так до конца всей таблицы. И чтобы был счётчик добавленных сумм. То есть нужно найти среднее арифметическое всех сумм, у которых значение первого столбца равно 1. Вот что сам пробовал:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.

Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim str_my As Integer
    Dim k As Integer

     Set db = CurrentDb()
    Set rst = db.OpenRecordset("Общая", dbOpenDynaset) 'dbOpenSnapshot)
    rst.MoveFirst
    
Do While Not rst.EOF
If rst![Код] = 1 Then
        str_my = str_my + rst![Сумма]
        k = k + 1
        rst.MoveNext
End If
    Loop
    rst![С] = str_my / k
       
    
    rst.Close
    db.Close
    Set db = Nothing

Но программа почему то не отвечает и access блокируется

...

Рейтинг:

0 / 0

18.06.2016, 20:01

| Ответить | Цитировать | Написать

Путь к таблице

#39258327

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

Novixen,
1.кодовое поле обязано быть уникальным-ОДНОЗНАЧНО определяюшим запись(если будет так,то запись с кодом=1 будет только одна
или таковой не будет вовсе
2.если поле сумма вычисляемое,то хранить его в таблице можно,но крайне нежелательно
Хотите быстрой помощи-выложите базу и напишите чего Вы от нее хотите

...

Рейтинг:

0 / 0

18.06.2016, 20:33

| Ответить | Цитировать | Написать

Путь к таблице

#39258334

vmag

Участник

Откуда: MP

Сообщения: 4 280

Рейтинг: 0 / 0

Novixen,

у тебя дыра в алгоритме, на ней всё и стопорится:

rst.MoveNext работает только при rst![Код] = 1

переставь rst.MoveNext через строку (перед Loop)

Дополнительно:
str_my (сумма) - ну хотя бы каренси или дубле (а то дробей/копеек не будет)
к - тоже для общего случая маловато, лучше лонг
хороший тон в начале:
k=0
str_my=0

ну и проще это сделать сразу в запросе:
вставляешь в запрос код и сумму, включаешь группировку, для кода выбираешь Count, для суммы Avg

...

Рейтинг:

0 / 0

18.06.2016, 20:52

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Путь к таблице

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&tid=1613452]:	0ms
get settings:	11ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	37ms
get topic data:	9ms
get forum data:	2ms
get page messages:	43ms
get tp. blocked users:	2ms
others:	328ms

total:	455ms