Проблема: есть табла, в которой необходимо заполнить 3 столбца,
1 столб-цена
2 столб-название
3 столб- время выполнения
Проблема состоит в том, что 1 столб заполняется из другой таблицы, причём данные делятся на datediff("m",a,b),
где а-самая ранняя дата начала работы 3столба
b- самая поздняя дата.... 3столба
Пришёл к выводу, что приходится пробега дважды либо по заполняемой табле, либо по внешней (откуда берутся данные).
Вопрос, а можно ли сделать так, чтобы и внешн. и заполняемая табла пробегались по разу.
Нужна логика, код сам напишу.

Вообще так, есть внешняя табла(всё тот же .mpp, меня им трахают уже 2-ю неделю, чем-то Project начальству приглянулся, будь он не ладен), так вот,
надо из этой таблы в Аксе сформировать свою, на основе которой будет делаться отчёт о бюджете проекта.
В таблу Акса необходимо поместить
1)название задачи
2)стоимость задачи, поделённую на срок действия проекта.
3)время начала задач.
Нужна логика, своя есть но мне кажется как-то долго, может, что порезче предложешь, если надо выкину код.

Хорошо выкидываю код (с комментами, что надо сделать):

Private Sub Кнопка0_Click()
Dim rcd As DAO.Recordset
Dim db As DAO.Database
Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim varDate As Variant
Dim sSQL As String
Dim p As String
Dim result As Integer
Dim fileName As String
DoCmd.RunSQL "delete * from balance"

' Open connection.
Dim a As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выбор проекта"
.Filters.Add "Все файлы", "*.*"
.Filters.Add "Проекты", "*.mpp"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If result <> 0 Then
p = Trim(.SelectedItems.Item(1))
End If
End With
If p = "" Then GoTo n1
Set db = CurrentDb

strCnn = "Provider=Microsoft.Project.OLEDB.10.0;Project Name=" & p
sSQL = "SELECT Taskcost,TaskName,Taskfinish FROM Tasks"

Set cnn1 = New ADODB.Connection
cnn1.Open strCnn

' Open employee table.
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open sSQL, cnn1, , , adCmdText

Set rcd = db.OpenRecordset("balance", dbOpenDynaset, dbSeeChanges)
Do While Not rstEmployees.EOF
msg = rstEmployees.Fields.Item("taskcost")
msg1 = rstEmployees.Fields.Item("taskname")
msg2 = rstEmployees.Fields.Item("taskfinish")

rcd.AddNew
rcd!name_balance = msg1
rcd!price_balance = msg
rcd!time_balance = msg2
rcd.Update
rstEmployees.MoveNext
Loop
cnn1.Close
rcd.Close
rcd.Close
Set cnn1 = Nothing
Set rstEmployees = Nothing
n1:
End Sub

Программа необходима, чтобы высчитать сроки
Private Function mes()
Dim rcd As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Dim h
Dim k As Date
Dim l As Date
Set rcd = db.OpenRecordset("balance", dbOpenDynaset, dbSeeChanges)
Do
If rcd.EOF Then GoTo exit1
rcd.Move 3
k = rcd!time_balance
rcd.MoveLast
l = rcd!time_balance
h = DateDiff("m", k, l)
rcd.MoveNext
Loop
exit1:
mes = h
End Function
После получения mes прогоняется программа заменяющая
price_balance на price_balance/mes

но хотелось бы сделать, так чтобы с помощью двух первых была решена задача, получения в поле price_balance сразу нужного значения.

Смотрю код понравился.

Хорошо, вопрос сформулирую подругому, можно ли в процессе заполнения таблицы в первый столбец (стоимость) заносить данные, пусть это будет
100 руб, делённое на количество месяцев равное datediff("m",a,b)
где а - самая ранняя дата в столбце 3 (даты)
b - самая поздняя дата в столбце 3 (даты), причём даты заполняются вместе со стоимостью.
Все данные берутся из внешней таблицы.

Поясню ещё раз код не нужен, нужна логика.

Во человек, с полуслова понимает
P.S. I love you!!!

Я не умею писать ТЗ, я всего лишь маленький глупенький программер, обчитавшийся книжек по VB 5,6, Project 2000,2002,2003, с сертификатом Optima-Workflow, знанием Delfi, C++ for САПР(AutoCad),с сертификатом Optima-Workflow, опытом работы с А2000 и кучей мусора в голове, который иногда приходится применять.

to vig:
ты немного путаешь, cost=cost/mes,(эта формула отображает распределение средств на каждый месяц на задачу в течении всего проекта).
или я не понял?

Поясню проекты в стоительстве (я там работаю) длятся не меньше 6 месяцев -это аксиома!!!

А теперь господа предоставляю код, который я сообразил на поставленный первичный вопрос, в студию


Private Sub Êíîïêà0_Click()
Dim rcd As DAO.Recordset
Dim db As DAO.Database
Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim varDate As Variant
Dim sSQL As String
Dim p As String
Dim result As Integer
Dim fileName As String
DoCmd.RunSQL "delete * from balance"
' Open connection.
Dim a As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Âûáîð ïðîåêòà"
.Filters.Add "Âñå ôàéëû", "*.*"
.Filters.Add "Ïðîåêòû", "*.mpp"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If result <> 0 Then
p = Trim(.SelectedItems.Item(1))
End If
End With
If p = "" Then GoTo n1
Set db = CurrentDb

strCnn = "Provider=Microsoft.Project.OLEDB.10.0;Project Name=" & p
sSQL = "SELECT Taskcost,TaskName,Taskfinish FROM Tasks"

Set cnn1 = New ADODB.Connection
cnn1.Open strCnn

' Open employee table.
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open sSQL, cnn1, , , adCmdText

' Ïîïûòêà ðåøåíèÿ çàäà÷è
'--------------------------------------------
Set rcd = db.OpenRecordset("balance", dbOpenDynaset, dbSeeChanges)
Do While Not rstEmployees.EOF
msg = rstEmployees.Fields.Item("taskcost")
msg1 = rstEmployees.Fields.Item("taskname")
msg2 = rstEmployees.Fields.Item("taskfinish")

rcd.AddNew
rcd!name_balance = msg1
rcd!price_balance = msg
rcd!time_balance = msg2
rcd.Update
rstEmployees.MoveNext
Loop
cnn1.Close
rcd.Close
Set cnn1 = Nothing
Set rstEmployees = Nothing
n1:
Call isprav
End Sub

Private Sub isprav()
Dim rcd As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb

Set rcd = db.OpenRecordset("balance", dbOpenDynaset, dbSeeChanges)
Do
If rcd.EOF Then GoTo exit1
rcd.Edit
rcd!price_balance = rcd!price_balance / mes
rcd.Update
rcd.MoveNext
Loop
exit1:
End Sub

Private Function mes()
a = DMax("time_balance", "balance")
b = DMin("time_balance", "balance")
mes = DateDiff("m", b, a)
End Function

Так вот, всё работает быстро, а хотелось бы ещё быстрее,
В конечном итоге вопрос заключался в следующем:
А можно всё сделать также(в конце получить такой же результат), но без
проги ISPRAV.
Настоящие программеры разберутся,что имелось ввиду.

Если Goto ненужен, тогда зачем его придумали.

Круто!!!
А что если использовать
Docmd.RunSql "UPDATE balance SET price_balance = price_balance / " & mes()"
это тоже самое или я ошибаюсь?

к тому же помимо ошибок, Goto всё таки иногда тоже полезен, когда надо проскочить часть текста программы, причём нельзя использовать конструкцию If...Else

Не буду спорить, а за подсказку спасибо,
как говорится "Век живи, век учись", кстати в Лестнице выложил прикольные анекдоты.