ОШИБКА!

[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

[gluk_fm]

Если честно мне совсем не понятна данная строка может должно быть как-то так:
tblType.MoveFirst
Do Until (tblType.EOF)
if tblType.Fields("Тип действия").Value = Form_Расписание.Тип_Действия.Value) then
действие
End if
tblType.MoveNext
Loop

[hamsidJ]

Я последовал вашему совету

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)
    if tblType.Fields("Тип действия").Value = Form_Расписание.Тип_Действия.Value then
    Exit Do
    end if
    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

[gluk_fm]

Если теперь работает, то по тому же принципу и продолжайте, что перебираем - условие.
tblType.MoveFirst
Do Until tblType.EOF
if i < tblMain.RecordCount - 2 then

ЛУУП

а вообще, выложили бы пример уже давно бы решили данную задачу.

[hamsidJ]

Вот исправил но

Option Compare Database

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)
    If tblType.Fields("Тип службы").Value = Form_Расписание.Тип_службы.Value Then
        Exit Do
    End If
    tblType.MoveNext
Loop

    tblMain.MoveFirst
    Do Until tblMain.EOF
        i = i + 1
        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)) ThenRun-time error 3265: Элемент не обнаружен в данном семействе
                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
    tMain.MoveNext
Loop

End Sub

[Woodlin]

hamsidJ, если не хотите выкладывать пример, то ищите ошибку сами.
В редакторе VBA нажмите в меню View -> Immediate window, или нажмите Ctrl+G.
Откроется окно Immediate, в нём проверьте по частям глючную строку.
В окне набираете сначала знак вопроса, потом то что хотите проверить,
типа такого: ? tblMain.Fields("Дата").Value и жмёте Enter
Если проверяемая строка нормальная, то получите значение, если нет то сразу поймёте где был глюк.

Проверку делайте в режиме выполнения кода (открыт редактор VBA, выполняемая строчка выделена жёлтым цветом).

Когда вылетает окно об ошибке с кнопкой Debug, жмите Debug. Откроется окно редактора VBA, глючная строка будет выделена.
Второй вариант делать точки остановки выполнения кода самому, жмёте на поле окна с кодом мышью, появится точка, на ней выполнение кода остановится, Вас выкинет в редактор VBA. Так можно установить точку на Private Sub Add_Click() и построчно, используя кнопку F8 прогнать весь код, или проверить что-нибудь в окне Immediate.

В общем дерзайте, и удачи.