Создание отчета в Access ввиде таблицы

[ТРИУМФ]

Сообщение от shanemac51

вы же в заголовок внедрили ексель
---------
наложила надпись61

Что? нет. Внедрил я ексель но сделал я его рисунком там РИСУНОК! и еще раз номера договоров печатаются большими там где 0373200081213000030/2013 от 26.04.2013 и т.д. в низ только этот столбец ХОТЯ ИТОГО в конце нормально.

[ТРИУМФ]

да в пень этот очет в аксессе лучше как Teslenko_EA вывод в ексель

[ТРИУМФ]

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

[ТРИУМФ]

Очень благодарен Teslenko_EA за код для формы и shanemac51 за помощь.
В БД есть 2 формы Form1 это сделанная им все отлично но единственное имя компании часто одинаковые и сложно понять какая нужная на печать. Т.е. нужна уникальность она есть это сочетание госконтракта и номера счета они вместе уникальны. Пришлось мне исправлять но к сожалению или счастью я язык еще не знаю, и решил выбрать уникальный код который не повторяется, и создал форму Копия Form1 там я изменил вывод компаний на код но при отправке в ексель файл происходит ошибка. Помогите плиз сделать, либо код на вывод либо госконтракт и номер счета

[ТРИУМФ]

Сообщение от ТРИУМФ

Очень благодарен Teslenko_EA за код для формы и shanemac51 за помощь.
В БД есть 2 формы Form1 это сделанная им все отлично но единственное имя компании часто одинаковые и сложно понять какая нужная на печать. Т.е. нужна уникальность она есть это сочетание госконтракта и номера счета они вместе уникальны. Пришлось мне исправлять но к сожалению или счастью я язык еще не знаю, и решил выбрать уникальный код который не повторяется, и создал форму Копия Form1 там я изменил вывод компаний на код но при отправке в ексель файл происходит ошибка. Помогите плиз сделать, либо код на вывод либо госконтракт и номер счета

Забыл файл приложить

[ТРИУМФ]

Сообщение от ТРИУМФ

Забыл файл приложить

Сам код еще

 Private Sub Кнопка5_Click()
Dim oXL, oWB, i%, s$, k%, rs As DAO.Recordset
k = Список2.ListCount
For i = 1 To k
    If Список2.Selected(i - 1) Then s = s + ", " + Список2.ItemData(i - 1)
Next
If Len(s) = 0 Then Exit Sub 'не выбрано в списке
Const sQ = "SELECT Компания, [Гос контракт] & ' от ' & [Дата г/к], [№ бюдж обяз], [Номер счета], " + _
"[Сумма счета], Листов FROM [Главная таблица] where Код in ("
s = sQ + Mid(s, 2) + ")"
Set rs = CurrentDb.OpenRecordset(s)
If rs.EOF Then
ElseIf rs.RecordCount = 0 Then
Else
    s = CurrentProject.Path + "\БД Реестров.xls"
    If Not Len(Dir(s)) = 0 Then 'шаблон существует
        k = rs.RecordCount
        Set oXL = CreateObject("Excel.Application")
        Set oWB = oXL.Workbooks.Add(s)
        'oXL.Visible = True
        With oWB.Sheets(1)
            .Cells(10, 1) = 1
            For i = 2 To k - 1
                .Rows(9 + i).Insert Shift:=xlDown
                .Cells(9 + i, 1) = i
            Next
            .Cells(9 + i, 1) = i
            oWB.Sheets(1).Range("b10").CopyFromRecordset rs
        End With
        oXL.Visible = True
    End If
End If
Set rs = Nothing
End Sub