Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
57 / 58 / 8
Регистрация: 18.08.2015
Сообщений: 317
1

Нажатием кнопки из запроса экспортировать поля в xls?

27.08.2015, 10:32. Просмотров 882. Ответов 5
Метки нет (Все метки)

Как нажатием кнопки из запроса "Query1" экспортировать в xls и суммировать поля?

ВЫЛОЖИТЕ ПРИМЕР пожалуйста ....

если с форматированием трудна то можна и без. смотреть фотки...

подразумевается что если срок будет больше а не два чтоб принцип работал.
0
Миниатюры
Нажатием кнопки из запроса экспортировать поля в xls?   Нажатием кнопки из запроса экспортировать поля в xls?  
Вложения
Тип файла: rar v.rar (14.4 Кб, 5 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.08.2015, 10:32
Ответы с готовыми решениями:

Как экспортировать таблицу в xls и суммировать поля?
Как ЭКСПОРТИРОВАТЬ ТАБЛИЦУ В XLS И СУММИРОВАТЬ ПАЛИЯ? ВЫЛОЖИТЕ ПРИМЕР пожалуйста .MDE ...

Изменение условия запроса нажатием кнопки
Всем доброго дня!!! С наступившими праздниками!!! Столкнулся с такой проблемой: --существует...

Как можно сделать, нажатием кнопки обнулить данные только с одного поля?
Уважаемые подскажите пожалуйста ,как можно сделать, нажатием кнопки обнулить данные только с одного...

Как экспортировать mdb-файл в xls?
на форме есть кнопка. как при нажатии на кнопку экспортировать в xls (в одном файле .xls и на...

5
57 / 58 / 8
Регистрация: 18.08.2015
Сообщений: 317
27.08.2015, 10:34  [ТС] 2
пример используя этот файл пожалуйста ....
0
Эксперт MS Access
26449 / 14220 / 3143
Регистрация: 28.04.2012
Сообщений: 15,612
27.08.2015, 11:27 3
Лучший ответ Сообщение было отмечено dratxara как решение

Решение

На кнопке код
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Command0_Click()
    Dim db As DAO.Database, rst As DAO.Recordset, rstSum As DAO.Recordset, fld As Field
    Dim i, s, n
    Dim app As Object, wrk As Object
    
    Set db = CurrentDb
    Set rst = db.OpenRecordset("select * from Query1")
 
    s = "select null, null, 'Сумма', sum(зарплата1), sum(зарплата2), null, sum(премия) " _
    & " from query1 "
    Set rstSum = db.OpenRecordset(s)
    
    Set app = CreateObject("excel.application")
    Set wrk = app.workbooks.Add
    
    'Оглавление
    For Each fld In rst.Fields
        i = i + 1
        app.cells(1, i) = fld.Name
    Next
 
    'Данные
    app.range("A2").copyfromrecordset rst
    n = rst.RecordCount + 2
    app.cells(n, 1).copyfromrecordset rstSum
    
    'Форматирование  
    app.rows("1:1").Font.Bold = True
    app.rows(n & ":" & n).Font.Bold = True
 
    app.Visible = True
End Sub
3
57 / 58 / 8
Регистрация: 18.08.2015
Сообщений: 317
27.08.2015, 20:09  [ТС] 4
а как головку и итогам дать красный фон? и сумму

Добавлено через 2 минуты
а как заголовку и итогам дать серый фон?

Добавлено через 1 минуту
и сетку если возможно =))
0
Эксперт MS Access
26449 / 14220 / 3143
Регистрация: 28.04.2012
Сообщений: 15,612
27.08.2015, 20:51 5
Лучший ответ Сообщение было отмечено BRcr как решение

Решение

Цитата Сообщение от dratxara Посмотреть сообщение
а как заголовку и итогам дать серый фон?
и сетку если возможно =))
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Command0_Click()
    Dim db As DAO.Database, rst As DAO.Recordset, rstSum As DAO.Recordset, fld As Field
    Dim i, s, n
    Dim app As Object, wrk As Object
    
    Set db = CurrentDb
    Set rst = db.OpenRecordset("select * from Query1")
    s = "select null, null, 'Сумма', sum(зарплата1) as z1, sum(зарплата2) as z2, null as org, sum(премия) as sp " _
    & " from query1 "
 
    Set rstSum = db.OpenRecordset(s)
    
    Set app = CreateObject("excel.application")
    Set wrk = app.workbooks.Add
    
    For Each fld In rst.Fields
        i = i + 1
        app.cells(1, i) = fld.Name
    Next
    app.range("A2").copyfromrecordset rst
    n = rst.RecordCount + 2
    app.cells(n, 1).copyfromrecordset rstSum
    
    'Форматирование
    'Жирный шрифт заголовку и итогам
    app.rows("1:1").Font.Bold = True
    app.rows(n & ":" & n).Font.Bold = True
    
    'Сетка
    app.range(app.cells(1, 1), app.cells(n, 7)).Borders.LineStyle = 1 'Select
    
    'Серый фон заголовку
    app.range(app.cells(1, 1), app.cells(1, 7)).Interior.Color = 14869218
    
    'Серый фон итогам
    app.range(app.cells(n, 1), app.cells(n, 7)).Interior.Color = 14869218
    
    app.Visible = True
End Sub
2
57 / 58 / 8
Регистрация: 18.08.2015
Сообщений: 317
27.08.2015, 22:20  [ТС] 6
СПАСИБО
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.08.2015, 22:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Выполнение запроса и построитель выражений. Поля появляются, а значения не вытягивает в поля запроса
Запрос НАРАХОВАНО Поля для значений появляются, а значения не вытягивает в поля запроса, нужное не...

Очищение поля ввода нажатием кнопки Esc
Здравствуйте. Подскажите как сделать чтобы нажатием кнопки Esc содержимое логина очищалось package...

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

Очистка поля textbox от содержимого перед нажатием кнопки с цифрой, после нажатой клавиши "="
Здравствуйте. При написание программы "калькулятор" возник вопрос - как очистить поле textbox от...


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

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

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