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

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

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

Всем добрый день! Прошу помочь мне, так как сама что-то никак не могу справиться.
Есть форма с полями
объект (объект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

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) первое значение этого поля, а не все по очереди, как хочу я.

@jangajсhik 0 / 0 / 0 Регистрация: 18.04.2010 Сообщений: 6
		1
	Нужно сделать что-то наподобие графика Ганта с результатом в виде таблицы/формы (Access) 18.04.2010, 20:55. Показов 1701. Ответов 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	2
	может, просто, в запросе просуммировать продолжительность пред идущих работ? (работ на том же объекте, с кодом работ меньше чем текущий. как то так). можно конечно и на VBA загнуть. но лично я не вижу полной картины. нужен образец бд 0

	20.04.2010, 13:06