Доброго времени суток!
Есть проблема! Необходимо создать базу данных по резервации работника на определенное время определенного числа. Проблема в создании таблицы, которая бы содержала все возможные даты (на несколько лет вперед) и на каждую дату выдавала суточный график работы на несколько работников. Вообщем надо создать Appointment scheduler.
Помогите, кто чем может! Проект горит!
А можно еще раз (для тупых)
Это ж куда этот код писать? Насколько я понял речь идет о форме. И каким событием должен быть записан код, чтоб все даты перешли в таблицу и возможно ли создать такую таблицу, если в ней не будет больше никаких столбцов (строк)
Public Sub lalala()
Dim rst As ADODB.Recordset
Dim dtDate As Date
Dim i As Integer
Set rst = New ADODB.Recordset
rst.Open "tbl", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
dtDate = Date
For i = 1 To 3000 '(лет так на 8)
dtDate = DateAdd("d", 1 , dtDate)
rst.AddNew
rst!flDate = dtDate
Next i
rst.UpdateBatch
rst.Close
Set rst = Nothing
End Sub
На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых
сервисов с использованием метрической программы Яндекс.Метрика.
Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.
По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.
