Форум программистов, компьютерный форум, киберфорум
Наши страницы
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
mobex
0 / 0 / 0
Регистрация: 13.01.2016
Сообщений: 40
1

Создание таблицы из запроса по кнопке формы

05.04.2016, 17:36. Просмотров 445. Ответов 6
Метки нет (Все метки)

Есть запрос, который создает таблицу

текст запроса:
SQL
1
2
SELECT Cstr(S.Арт) AS Арт, S.[Наим] AS ТОВАР, S.[Назв] AS TRynok, S.ТН, Round(S.[Ц]/IIf(nz(S.КТ,0)<0.01,1,S.КТ),4) AS Зст, Round(S.[Ц],2) AS ЦенаК, Round(S.[Ц5],2) AS Цена5, Round(S.[Ц10],2) AS Цена10, S.[Нал] AS НаЦС, S.[Приз] AS Приз, S.ТМ INTO Отчет
FROM S;
Надо чтобы этот запрос можно было выполнять по кнопке с формы

Можно при создании кнопки назначить действие

Но мне надо, чтобы было прописано именно в visual basic

Подскажите как правильно прописать
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.04.2016, 17:36
Ответы с готовыми решениями:

Создание формы (запроса) с выводом всех значений одной из таблиц, но по условиям полей из другой таблицы
Добрый день, уважаемые форумчане!!! Сформулировал заголовок как смог :) Имеем: - таблица...

Выполнение запроса по кнопке формы
Добрый вечер всем! Помогите, пожалуйста решить такую проблему: Есть запрос, который рассчитывает...

Создание таблицы с помощью запроса
Помогите пожалуйста. Есть запрос: create table tbl1(fld integer); Он создает таблицу в...

Создание запроса из формы с 4 полями
Такая проблема: Есть форма с 4 полями, нужно сделать запрос по тем полям, в которых выбраны...

Создание запроса и ленточной формы
Всем добрый день. Мне необходимо сделать тестовое задание по работе, в Access работал последний...

6
mobile
Эксперт MS Access
25607 / 13686 / 2943
Регистрация: 28.04.2012
Сообщений: 15,000
05.04.2016, 17:53 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim s, db as DAO.Database
Set db=Currentdb
On Error Resume Next            'Обход ошибки если таблицы Отчет еще нет
db.Execute "Drop Table Отчет"   'Удаляем таблицу Отчет
s="SELECT Cstr(S.Арт) AS Арт, S.[Наим] AS ТОВАР, S.[Назв] AS TRynok, S.ТН, " _
& " Round(S.[Ц]/IIf(nz(S.КТ,0)<0.01,1,S.КТ),4) AS Зст, " _
& " Round(S.[Ц],2) AS ЦенаК, Round(S.[Ц5],2) AS Цена5, Round(S.[Ц10],2) AS Цена10, " _
& " S.[Нал] AS НаЦС, S.[Приз] AS Приз, S.ТМ INTO Отчет " _
& " FROM S"
On Error Goto 0                 'Удаление обхода ошибок
db.Execute s                    'Выполнение запроса на создание таблицы Отчет
1
VinniPuh
6862 / 4159 / 460
Регистрация: 27.03.2013
Сообщений: 15,342
05.04.2016, 18:00 3
mobex, и mobile, как бы вас в будущем не поперепутать, почти тёзки и однофамильцы по никам.
0
mobex
0 / 0 / 0
Регистрация: 13.01.2016
Сообщений: 40
05.04.2016, 18:17  [ТС] 4
Цитата Сообщение от mobile Посмотреть сообщение
Visual Basic
Выделить код
Dim s, db as DAO.Database
Set db=Currentdb
On Error Resume Next 'Обход ошибки если таблицы Отчет еще нет
db.Execute "Drop Table Отчет" 'Удаляем таблицу Отчет
s="SELECT Cstr(S.Арт) AS Арт, S.[Наим] AS ТОВАР, S.[Назв] AS TRynok, S.ТН, " _
& " Round(S.[Ц]/IIf(nz(S.КТ,0)<0.01,1,S.КТ),4) AS Зст, " _
& " Round(S.[Ц],2) AS ЦенаК, Round(S.[Ц5],2) AS Цена5, Round(S.[Ц10],2) AS Цена10, " _
& " S.[Нал] AS НаЦС, S.[Приз] AS Приз, S.ТМ INTO Отчет " _
& " FROM S"
On Error Goto 0 'Удаление обхода ошибок
db.Execute s 'Выполнение запроса на создание таблицы Отчет
по нажатию кнопки таблица не создается
но если после нажатия кнопки открыть форму через конструктор - таблица создается

Добавлено через 6 минут
Хотя нет
если нажать F5 - таблица появляется

надо обновить поле с таблицами, тогда ее видно становится
0
mobile
Эксперт MS Access
25607 / 13686 / 2943
Регистрация: 28.04.2012
Сообщений: 15,000
05.04.2016, 19:43 5
Цитата Сообщение от mobex Посмотреть сообщение
надо обновить поле с таблицами, тогда ее видно становится
Можно и программно. В конце кода, после создания таблицы
Visual Basic
1
2
3
'.....................................
db.Execute s
DoCmd.SelectObject acTable, "Отчет", True
1
texnik-san
шапоклякистка 8-го дня
3640 / 2201 / 390
Регистрация: 26.06.2015
Сообщений: 4,648
Записей в блоге: 1
05.04.2016, 20:58 6
Цитата Сообщение от PuhKMV Посмотреть сообщение
как бы вас в будущем не поперепутать
По циферкам под никами различите
0
mobex
0 / 0 / 0
Регистрация: 13.01.2016
Сообщений: 40
06.04.2016, 17:01  [ТС] 7
Цитата Сообщение от mobile Посмотреть сообщение
Можно и программно. В конце кода, после создания таблицы
mobile, спасибо вам огромное! Очень помогли!
0
06.04.2016, 17:01
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.04.2016, 17:01

Создание запроса по условию из формы
Доброго времени суток уважаемые форумчане! Надеюсь на Вашу помощь! Задача Дано: Таблица 1 с...

Создание таблицы или запроса из 2-х таблиц.
Здравствуйте! Появилась необходимость, создавать временную таблицу ( для вывода одного отчета), но...

Создание запроса с условием, введенным из формы.
Добрый день! Есть проблема над которой &quot;бьюсь&quot; уже третий день, помогите пожалуйста разобраться с...


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

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

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