С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Access
Войти
Регистрация
Восстановить пароль
 
Bun
0 / 0 / 0
Регистрация: 24.08.2014
Сообщений: 7
1

Экспорт всех таблиц в Excel по заданной дате

24.08.2014, 19:28. Просмотров 419. Ответов 3
Метки нет (Все метки)

Имеется база с 4 таблицами - Main, Table1, Table2, Table3. При этом Main связана с Table1, Table2 и Table3 связью один-ко-многим. Также имеется форма для ввода Main + подчинённые таблицы Table. В Main имеется поле Date1 куда вводится дата.
Вопрос такой. Необходимо создать форму которая будет строго по заданному диапазону дат экспортировать по нажатию кнопки все таблицы (включая Main) в Excel. То есть необходимо экспортировать все данные и именно с указанного диапазона, к примеру если указано с 01.01.2014 до 31.12.2014, то туда не должны попадать данные с других годов.
В VBA я не силён, попробовал такой код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Кнопка4_Click()
Set dbs = CurrentDb
If IsNull(ПолеСоСписком0) = True Then
               MsgBox "Укажите начальную дату"
ElseIf IsNull(ПолеСоСписком2) = True Then
               MsgBox "Укажите конечную дату"
ElseIf ПолеСоСписком0.Value > ПолеСоСписком2.Value Then
MsgBox "Начальная дата больше конечной"
Else
Set rst = dbs.OpenRecordset("SELECT Main.Date1 from Main where trim(str(Date1)) between '" & Forms!Form1![ПолеСоСписком0] & "' and '" & Forms!Form1![ПолеСоСписком2] & "';")
cn = rst.RecordCount
If cn = 0 Then
MsgBox "По указанному периоду нет даных"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Запрос1", "C:\Export\Запрос1.xls"
MsgBox "Экспорт данных готов!"
End If
End If
End Sub

Но что-то как-то тупо получается, экспорт не происходит.. да и к тому же созданный мной запрос не совершенен.

Base.zip
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.08.2014, 19:28
Ответы с готовыми решениями:

Экспорт данных из связанных таблиц в шаблон Excel
Всем доброго времени суток ... Задача : Сделать в БД Access и после...

Экспорт записей из таблиц access в excel и наоборот
Здравствуйте, уважаемые участники! Стоит такая задача: Необходимо...

Экспорт таблиц в книгу excel с листами кратному экспортированным таблицам
Всем привет! Народ, подскажите как и каким образом можно экспортировать...

Экспорт-импорт данных Excel-Access-Excel
Доброе время суток уважаемые форумчане. Приходит информация в экселевской...

Excel -> Access -> Excel, импорт - экспорт
Добрый день! Есть табель учета рабочего времени в таблице Excel, задача -...

3
Вячеслав Я
Эксперт MS Access
2804 / 1349 / 212
Регистрация: 13.05.2011
Сообщений: 4,112
24.08.2014, 21:02 2
Bun, я немного сделал по своему, но вроде работает. Посмотрите.
А зачем Вам три таблицы с единтичными данными. Их лучше всего записать в одну таблицу и чтобы как-то отличать друг от друга надо добавить еще одно поле.
0
Вложения
Тип файла: rar Base1.rar (39.3 Кб, 4 просмотров)
Bun
0 / 0 / 0
Регистрация: 24.08.2014
Сообщений: 7
24.08.2014, 21:51  [ТС] 3
Вячеслав большое спасибо, Ваш вариант действительно намного проще и лучше. На самом деле это был всего-лишь на спех состряпанный пример, реальная БД конечно-же не содержит идентичных данных, но её объём слишком большой чтобы сюда загружать.
0
Bun
0 / 0 / 0
Регистрация: 24.08.2014
Сообщений: 7
24.08.2014, 22:10  [ТС] 4
Кстати по поводу того, что данные должны иметь отличительные характеристики, это да, такая проблема тоже есть. Мне нужно несколько больше от стандартного счётчика Access, чем тот, что имеется. Создать свой счётчик для меня было бы сложным и проблематичным, мне достаточно добавить в имеющиеся счётчики таблиц префикс содержащий буквы. К примеру счётчик таблицы Main, должен иметь следующий префикс SOB1...2...3 и т.д., счётчик таблицы Table1 должен быть TAB1...2...3 и т.д. При этом при экспортировании в файл Экселя данные в полях счётчика должны быть не как формат, а как текст. Я вложил базу с вставленными мной префиксами. Хотя может у Вас будет свой вариант. Буду благодарен за помощь.

Base2.zip
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.08.2014, 22:10

Объединение таблиц по дате
Здравствуйте! У меня есть таблица "Первая", в которой поля "Время_измерений" и...

Экспорт прилинкованных таблиц
Неожиданно возникла проблема: Имеются файлы Архив.mdb (файл с архивными...

Сложение столбцов из шести таблиц по дате
Здравствуйте. Помогите пожалуйста правильно составить запрос. В базе 6...


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

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

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