Отчет

[Myhaylo]

Выгрузить данные в Excel можно с помощью метода CopyFromRecordSet: http://am.rusimport.ru/msaccess/f2.aspx?type=1&id=46385
Но если в электронном варианте этот отчёт не нужен, то лучше отчёт в MS Access, ибо в MS Excel после выгрузки данных нужно будет программно создавать требуемую сводную таблицу (поскольку обновить её нельзя).

[duh_si]

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

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

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

[Myhaylo]

Поставьте свойство «Несвязное выделение» (MultiSelect) в "Простой" и Вы сможете выделять несколько значений.
Чекбоксы появляются только при установке в конструкторе таблицы значения "Многозначный выбор"="Да" для конкретного поля. Но я бы не рекомендовал этим пользоваться...

[duh_si]

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

Чекбоксы появляются только при установке в конструкторе таблицы значения "Многозначный выбор"="Да" для конкретного поля. Но я бы не рекомендовал этим пользоваться...

А как тогда выйти из такой ситуации

Михаил, если честно , что-то не могу найти "Многозначный выбор" в конструкторе таблиц (смотрю во вкладке Общие)

[Igor_1974]

Если просто вывести данные из отчета в ексель, то можно так

DoCmd.RunCommand acCmdExportExcel

Многозначний выбор у листбокса есть, но он возвращает нулл...

В вашем случае я бы всетаки делал с чекбоксами, выбранные данные сливал бы в тмп таблицу или рекордсет и уже с ним работал... как то так.

либо типа так (код накидал от руки)

Dim strCrit as string

Sub listbox1 onclick
dim strRepName as string

If Val(strCrit) then
strCrit=strCrit & "," & "AND [полечтооовечает за листбокс] = [Forms]![ваша форма]![listbox1]"
Else
strCrit="[полечтооовечает за листбокс] = [Forms]![ваша форма]![listbox1]"
End if
strRepName = "ваш отчет"

Docmd.openReport strrepName,,strcrit
end sub

ну или чтото в этом духе оформить...

[Myhaylo]

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

не могу найти "Многозначный выбор" в конструкторе таблиц

Прошу прощения: если на закладке "Подстановка" установить "Тип элемента управления"="Поле со списком", то ниже появится свойство "Разрешение нескольких значений" - его нужно поставить в "Да".

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

Многозначний выбор у листбокса есть, но он возвращает нулл...

В таком случае вот так нужно:

Dim v As Variant
For Each v In Список.ItemsSelected
MsgBox Список.ItemData(v)
Next v

[Igor_1974]

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

В таком случае вот так нужно:

Dim v As Variant
For Each v In Список.ItemsSelected
MsgBox Список.ItemData(v)
Next v

Я нуб! Вы ответили в точку.

[duh_si]

Поправляйте если не правильно:
Добавил переменную s

Private Sub project_AfterUpdate()
Dim v As Variant
Dim s As Variant
 For Each v In project.ItemsSelected
  s = project.ItemData(v)
          ' MsgBox project.ItemData(v)
 Next v
End Sub

Вот моя кнопка Сформировать:
Сюда по идеи в условие надо воткнуть эту s (чтобы произошла проверка) и произойдет фильтрация и по дате и по проектам

Private Sub Сформировать_Click()
    If (Not IsNull(Me.НачалоД)) Or (Not IsNull(Me.ОкончаниеД)) Then
        If (Me.НачалоД <= Me.ОкончаниеД) Then
            Me.Visible = False
            DoCmd.OpenReport "Товары в пути", acViewPreview
        End If
    End If
End Sub

Просто в нэте перерыл, а путного ничего не нашел, по этому не знаю как приладить

А как сам пытался, ничего путного не вышло..

[Myhaylo]

Я Вам уже говорил: не пересохраняйте базу из формата accdb в mdb, поскольку ничего путного из этого не получается: я не могу открыть ни отчёт, ни форму в режиме конструктора.

[duh_si]

Извеняюсь за accdb, просто я заметил , что очень много народу работает в старых версиях и соответственно открыть они этот формат не смогут.

Я тут поискал, почитал про создание отчетов в Access, если честно не нашел создание сложных отчетов с какими то интересными фишками, в основном простый отчеты с итогами в низу,.... В Access вообще возможно создать подобный отчет как сделан в Excel?