powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Подстановка имени таблицы как параметра
6 сообщений из 6, страница 1 из 1
Подстановка имени таблицы как параметра
    #34741152
_pH_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
День добрый уважаемые.
Помогите пожалуйста разобраться с таким вопросом.
Нужно выбирать из базы оракла некую информацию (общую сумму по документам). Вопрос в том что я могу выбрать сумму либо за сегодня либо за архивную дату так как документы за вчера-позавчера и т.д. хранятся в таблице архива...
Хотелось бы реагировать изменением селекта либо на изменение какойто ячейки на листе , либо на флажок (принципиальной разницы в реализации не вижу но как сделать ни одно ни другое пока не знаю =( )
Надеюсь на Вашу помощь ...
...
Рейтинг: 0 / 0
Подстановка имени таблицы как параметра
    #34741416
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Чтобы отловить изменение ячейки A1
В модуль листа вставить
Код: plaintext
1.
2.
3.
4.
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1")) Is Nothing Then
   MsgBox Range("A1")
 End If
End Sub

С помощью флажка, расположенного на листе
В модуль рабочего листа
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub CheckBox1_Change()
 If CheckBox1.Value = True Then
   MsgBox Range("A1")
  Else
   MsgBox Range("A2")
 End If
End Sub
...
Рейтинг: 0 / 0
Подстановка имени таблицы как параметра
    #34741540
_pH_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вопрос №2 :
есть запрос из оракла :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
  select sum(summa) as summa from 
(select coalesce(sum(summa/ 100 ), 0 ) as summa 
   from  arhiv
  where date = to_date([ПАРАМЕТР],'dd.mm.yyyy') 
    and (acc1 =  123456789  and acc2 =  987654321 )
 UNION ALL    
 select coalesce(sum(summa/ 100 ), 0 )  
   from currrent_doc
  where date = to_date([ПАРАМЕТР],'dd.mm.yyyy') 
     and (acc1 =  123456789  and acc2 =  987654321 )
)x
То есть имею 2 одинаковых по структуре таблицы и мне нужно из ДВУХ выбрать общую сумму по определенным документам .
Хочу запихнуть его в ексель но Query ругаеться а в макрос не знаю как. Поиском вразумительного ничего не добился .
help :'(
...
Рейтинг: 0 / 0
Подстановка имени таблицы как параметра
    #34741671
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я честно не знаю как там запросы из оракла делаются.
Но запросы в VBA не так пишутся это точно.
Посмотри на форуме поиском
...
Рейтинг: 0 / 0
Подстановка имени таблицы как параметра
    #34742619
_pH_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дело в том что когда вместо [ПАРАМЕТР] подставить нормальную дату то Query ругаетсья что "Запрос не может быть представлен графически" но все таки его выполняет. а когла пытаюсь поставить туда параметр ругается на то что "В запросах, которые не могут быть представлены графически параметры не допускаются " .Такое впечатление что графически он может представить только "SELECT* FROM TABLE" . Грустно ....
...
Рейтинг: 0 / 0
Подстановка имени таблицы как параметра
    #34742893
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1) Нельзя делать два параметра с одинаковым именем. Сделай два параметра с разными и привяжи их к одной и той же ячейке.
2) Намного проще самостоятельно составлять строку запроса в VBA, потом подсовывать готовый запрос в QueryTable
3) MS Query - самая тупая программа из всех придуманых для работы с базами данных. Единственное что она может, это сделать примитивный линейный запрос. Да и тот за ней подчищать надо.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Подстановка имени таблицы как параметра
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]