Расписание

[hamsidJ]

Здравствуйте, у меня есть таблица, которая представляет собой расписание состоящие из 5 полей : "Дата", "Время", "Место", "Действие", "Человек".есть связанная с этой табличкой форма. При нажатии кнопки "Добавить запись" нужно проверить не занят ли этот человек в данный момент, т.е.
Если ("Дата" = дата, указанная в форме) И ("Человек" = человек, указанный в форме) тогда
Если ("Время" = время, указанное в форме) ИЛИ ("Время" > время, указанное в форме - 4 ) ИЛИ ("Время" < время, указанное в форме + 4 ) тогда
Вывести окно об ошибке;
НЕ ВНОСИТЬ ЗАПИСЬ;

[gluk_fm]

if("Дата" = дата, указанная в форме) and ("Человек" = человек, указанный в форме) then


if ("Время" = время, указанное в форме) or ("Время" > время, указанное в форме - 4 ) or ("Время" < время, указанное в форме + 4 ) then
msgbox("error")
exit sub
end if
end if

[hamsidJ]

А как обновить таблицу после внесения изменений в Recordset? Мне приходиться с помощью макрокомандных кнопок "Вперёд" и "Назад" это делать.

[Woodlin]

hamsidJ, если речь идёт о форме табличного вида, то можно так: Me.Refresh

[hamsidJ]

нет речь идёт о самой таблице

[hamsidJ]

Почему-то выдаёт ошибку 3021 "Текущая запись отсутствует".

Private Sub Add_Click()
'объявление переменных
Dim tblMain As DAO.Recordset
Set tblMain = CurrentDb.OpenRecordset("Расписание")
Dim tblType As DAO.Recordset
Set tblType = CurrentDb.OpenRecordset("Тип действия")
Dim i As Integer

'перебор таблицы типов действий
tblType.MoveFirst
Do Until (tblType.EOF) Or (tblType.Fields("Тип действия").Value = Form_Расписание.Тип_Действия.Value)
    tblType.MoveNext
Loop

i = 0

tblMain.MoveFirst
Do While (i < tblMain.RecordCount - 2)
    If (tblMain.Fields("Дата").Value = Form_Расписание.Дата.Value) And (tblMain.Fields("Человек").Value = Form_Расписание.Человек.Value) Then
        If (tblMain.Fields("Время").Value = Form_Расписание.Время.Value) Or (tblMain.Fields("Время").Value > DateAdd("h", -(tblType.Fields("Время испонения(ч)").Value + tblType.Fields("Перерыв(ч)").Value), Form_Расписание.Время.Value)) Or (tblMain.Fields("Время").Value < DateAdd("h", (tblType.Fields("Время испонения(ч)").Value + tblType.Fields("Перерыв(ч)").Value), Form_Расписание.Время.Value)) Then
            MsgBox "ОШИБКА"
            tblMain.Close
            tblType.Close
            Exit Sub
        Else
            tblMain.AddNew
            tblMain.Fields("Дата").Value = Form_Расписание.Дата.Value
            tblMain.Fields("Время").Value = Form_Расписание.Время.Value
            tblMain.Fields("Место").Value = Form_Расписание.Место.Value
            tblMain.Fields("Тип Действия").Value = Form_Расписание.Тип_Действия.Value
            tblMain.Fields("Человек").Value = Form_Расписание.Человек.Value
            tblMain.Close
            tblType.Close
            Exit Sub
        End If
    End If
    tblMain.MoveNext
Loop

End Sub

[Woodlin]

Может Вам стоит сначала проверить есть ли записи в Рекордсет, а потом переходить на первую запись.

[hamsidJ]

Эти записи есть я сам их вносил

[Woodlin]

Ошибка на какой строке кода выскакивает?

[hamsidJ]

Та, которая красная