Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Help
 
 автор: ddi   (01.07.2011 в 09:18)   личное сообщение
 
 

Есть 8 запросов на выборку где критерия дата например Between дата 1 и дата 2 в них есть поле назеваеца suma (8 таких тип цифры) мне надо через вба взать обшую сумму из этих полей(в запросе) и патом же суму всех запросов как зделать ?

  Ответить  
 
 автор: snipe   (01.07.2011 в 09:30)   личное сообщение
 
 

ну есть же функция DSum

  Ответить  
 
 автор: ddi   (01.07.2011 в 09:34)   личное сообщение
 
 

пример можнО?

  Ответить  
 
 автор: snipe   (01.07.2011 в 09:41)   личное сообщение
 
 

тогда маленький вопросик
сумма каждого запроса обязательно нужна
или можно сразу посчитать общую сумму всех запросов

  Ответить  
 
 автор: ddi   (01.07.2011 в 09:43)   личное сообщение
 
 

да очнеь

  Ответить  
 
 автор: snipe   (01.07.2011 в 09:46)   личное сообщение
 
 

молодец.....
да - нужна сумма каждого запроса
или
да - можно сразу посчитать сумму всех запросов

  Ответить  
 
 автор: ddi   (01.07.2011 в 09:50)   личное сообщение
 
 

да - нужна сумма каждого запроса

  Ответить  
 
 автор: snipe   (01.07.2011 в 09:58)   личное сообщение
 
 

ну примерно так
dim asd(1 to 8) as double
asd(1)=dsum("[имя столбца в котором надо считать]","[имя запроса1]")
asd(2)=dsum("[имя столбца в котором надо считать]","[имя запроса2]")
asd(3)=dsum("[имя столбца в котором надо считать]","[имя запроса3]")
asd(4)=dsum("[имя столбца в котором надо считать]","[имя запроса4]")
asd(5)=dsum("[имя столбца в котором надо считать]","[имя запроса5]")
asd(6)=dsum("[имя столбца в котором надо считать]","[имя запроса6]")
asd(7)=dsum("[имя столбца в котором надо считать]","[имя запроса7]")
asd(8)=dsum("[имя столбца в котором надо считать]","[имя запроса8]")
dim dfg as double
for i=1 to 8
dfg=dfg + asd(i)
next i

  Ответить  
 
 автор: ddi   (01.07.2011 в 10:01)   личное сообщение
 
 

snipe спосибо)) а я написал имя запроса а уш патом таблицу))))))))))))

  Ответить  
 
 автор: ddi   (01.07.2011 в 10:08)   личное сообщение
 
 

как это всё сохранить в таблице)

  Ответить  
 
 автор: snipe   (01.07.2011 в 10:11)   личное сообщение
 
 

Зачем?

  Ответить  
 
 автор: kot_k_k   (01.07.2011 в 10:14)   личное сообщение
 
 

в какой таблице - тебе нужно добавить 8 полей в таблу
tabla.addnew
for i=1 to 8
tabla(i)=asd(i)
next i
tabla.Update

можно так
set dbs=Currentdb
dbs.execute ("insert into имя_таблы (pole1, pole2, ....., pole 8) values (" & asd(1) & "," & asd(2) & "," ....."," & asd(8) & ")")

  Ответить  
 
 автор: ddi   (01.07.2011 в 10:15)   личное сообщение
 
 

вроде всё спасибо

  Ответить  
 
 автор: snipe   (01.07.2011 в 10:39)   личное сообщение
 
 

кстати о птичках...
поп упал с колокольни и ни разу не чирикнул

если ваши запросы ни где больше не используются (т.е. в формах или отчетах для вывода информации) а нужны только для того что бы посчитать общие суммы

то можно обойтись без них - т.к. DSum позволяет ввести условия отбора
справедливости ради стоит сказать что запрос работает быстрее чем агрегатная функция
но если бд маленькая на это можно закрыть глаза

  Ответить  
 
 автор: ddi   (01.07.2011 в 10:59)   личное сообщение
 
 

нет они исползывуютсья

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList