Нужно сделать что-то наподобие графика Ганта с результатом в виде таблицы/формы (Access)

@jangajсhik · Регистрация: 18.04.2010

Студворк — интернет-сервис помощи студентам

Всем добрый день! Прошу помочь мне, так как сама что-то никак не могу справиться.
Есть форма с полями
объект (объект1)
наименование работ (работа 1;работа 2....)
дата начала всего строительства (01.04.2006)
продолжительность данной работы (12,21,7,................)
количество работ по объекту (7)

добавила ещё 2 поля:

дата начала работы
дата окончания работы

Хочу чтобы дата начала первой работы = дате начала всего строительства
а последующие даты начала работ были равны дате начала предыдущей работы + продолжительность предыдущей работы.

Прописываю в коде:

Private Sub Поле15_Click()

Dim Sum As Variant, Amount As Integer
Amount = [количество работ по объекту].Value /присваиваю переменной значение количества работ,7/
Sum = [дата начала всего строительства].Value /говорю что 1 дата начала работы = 01.04.2006/
For i = 1 To Amount /Цикл от 1 до последней,7 работы/

Sum = Sum + [продолжительность].Value /не знаю как взять предыдущее значение
продолжительности и также он вообще не понятно
что складывает... а если вместо
[продолжительность].Value подставляю любое целое
число, просто чтобы понять как он складывает, то
получается что он суммирует все Sum и для всех
работ выводит одно, последнее значение... /
Next i
Поле15.Value = Sum
End Sub

ЗНАЮ ЧТО ДЕЛАЮ что-что НЕ ТАК, НО ПРОСТО НЕ ПОНИМАЮ КАК НАДО, ПОЭТОМУ, ХЕЕЛП)

@ironegg · 19.04.2010, 00:03

может, просто, в запросе просуммировать продолжительность пред идущих работ? (работ на том же объекте, с кодом работ меньше чем текущий. как то так).
можно конечно и на VBA загнуть. но лично я не вижу полной картины. нужен образец бд

@jangajсhik · 20.04.2010, 13:06 **[ТС]**

не, в запросе так не получится к сожалению, Я немного сдвинулась с мертвой точки, ещё чуть чуть и решу эту задачу, но возникла опять проблема))) как неожиданно)))
У меня есть форма с полем "продолжительность" там есть несколько значений, и при нажатии на кнопку "следующее значение" они изменяются.
Интересует: Как в коде VBA вписать значения этого поля в одномерный массив???

Visual Basic
1
2
3
4
5
6
7
8
9
If Amount > 0 Then
    ReDim Works(Amount)
   
    For i = 1 To Amount
      Works(i) = [продолжительность].Value
        
        MsgBox "Массив" & Works(i)
    Next i
End If

В данном случае он мне записывает 7 раз (Amount = 7) первое значение этого поля, а не все по очереди, как хочу я.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@jangajсhik 0 / 0 / 0 Регистрация: 18.04.2010 Сообщений: 6

	Нужно сделать что-то наподобие графика Ганта с результатом в виде таблицы/формы (Access) 18.04.2010, 20:55. Показов 1789. Ответов 2 Метки нет (Все метки) Всем добрый день! Прошу помочь мне, так как сама что-то никак не могу справиться. Есть форма с полями объект (объект1) наименование работ (работа 1;работа 2....) дата начала всего строительства (01.04.2006) продолжительность данной работы (12,21,7,................) количество работ по объекту (7) добавила ещё 2 поля: дата начала работы дата окончания работы Хочу чтобы дата начала первой работы = дате начала всего строительства а последующие даты начала работ были равны дате начала предыдущей работы + продолжительность предыдущей работы. Прописываю в коде: Private Sub Поле15_Click() Dim Sum As Variant, Amount As Integer Amount = [количество работ по объекту].Value /присваиваю переменной значение количества работ,7/ Sum = [дата начала всего строительства].Value /говорю что 1 дата начала работы = 01.04.2006/ For i = 1 To Amount /Цикл от 1 до последней,7 работы/ Sum = Sum + [продолжительность].Value /не знаю как взять предыдущее значение продолжительности и также он вообще не понятно что складывает... а если вместо [продолжительность].Value подставляю любое целое число, просто чтобы понять как он складывает, то получается что он суммирует все Sum и для всех работ выводит одно, последнее значение... / Next i Поле15.Value = Sum End Sub ЗНАЮ ЧТО ДЕЛАЮ что-что НЕ ТАК, НО ПРОСТО НЕ ПОНИМАЮ КАК НАДО, ПОЭТОМУ, ХЕЕЛП) 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	19.04.2010, 00:03
	может, просто, в запросе просуммировать продолжительность пред идущих работ? (работ на том же объекте, с кодом работ меньше чем текущий. как то так). можно конечно и на VBA загнуть. но лично я не вижу полной картины. нужен образец бд 0