Function GetPrevDataEntry() As Date
Dim dbs As DAO.Database
Dim rst As DAO.Recordset  'look help
Dim val As Double
Dim val_enterdate As Date
Dim Rindex As Integer
Dim Rindex_prev As Integer
Dim found_fl As Boolean
Dim enterdate_prev As Date
Dim stst As String

  Set rst = Forms.formL.Recordset

 Debug.Print "----------------"
 Rindex = 0
  rst.MoveFirst
  Do Until rst.EOF
   stst = rst![Наименование оборудования]
   Rindex = Rindex + 1                   'у первой записи Rindex=1
   val_enterdate = rst![Дата ввода]
   Debug.Print rst![Наименование оборудования] & " " & rst![Дата ввода]
   If val_enterdate = enterdate_clicked Then
     found_fl = True
     GoTo Exit_podrobnee
  Else
  End If
    
    enterdate_prev = rst![Дата ввода]  'запомним значение предыдущей записи
    Rindex_prev = Rindex
    rst.MoveNext
  Loop

Exit_podrobnee:
 If found_fl = True Then
  GetPrevDataEntry = enterdate_prev
End If

End Function

Private Sub bt_del_record_Click()
On Error GoTo Err_bt_del_record_Click
Dim stLinkCriteria As String
Dim DataEntryPrev As Date
   
DataEntryPrev = GetPrevDataEntry  'определим время ввода предыдущей записи на форме fomL
Debug.Print "prev date:" & DataEntryPrev
     
     LastOp1 = "del"
     save_2_hist                           'И запишем в историю удаляемую запись
    
 'Me.Dirty = False
  
 ' If Me.Dirty Then
 '  MsgBox "Сначала нужно сохранить или отменить изменения в текущей записи"
 '  Exit Sub
 ' End If
    
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord

          'нужно устновить на вызывающей форме ближайший индекс после удаления
    Forms![_Форма ввода].Form.Requery    'освежили форму редактирования (на ней теперь отображается первая запись)
    If CurrentProject.AllForms("formL").IsLoaded = True Then
       Forms![formL].Form.Requery
    End If
    
    'Адаптируем вызывающую форму
    If CurrentProject.AllForms("formL").IsLoaded = True Then
       'Forms![formL].Form.Requery
        'stLinkCriteria = "[Дата ввода]<" & Format$([Дата ввода], "\#mm\/dd\/yyyy hh\:nn\:ss\#")  'Соблюдаем американский формат времени!
        stLinkCriteria = "[Дата ввода]=" & Format$(DataEntryPrev, "\#mm\/dd\/yyyy hh\:nn\:ss\#")  'Соблюдаем американский формат времени!
        [Forms]![formL]![ed_Дата_ввода].SetFocus 'Для поиска по конкретному полю поле нужно установить на этом поле фокус
        [Forms]![formL].Recordset.FindFirst (stLinkCriteria)
    End If
         
Exit_bt_del_record_Click:
    Exit Sub

Err_bt_del_record_Click:
    MsgBox Err.Description
    Resume Exit_bt_del_record_Click
    
End Sub

Private Sub Form_AfterDelConfirm(Status As Integer)
DoCmd.GoToRecord , , acPrevious
End Sub

Dim prevdate As Date

DoCmd.GoToRecord , , acPrevious
prevdate = [Дата ввода]        'перед удалением получаем инфу пред. строки
DoCmd.GoToRecord , , acNext  'снова возвращаемся

'...  и позиционируем вызывающую форму
         stLinkCriteria = "[Дата ввода]=" & Format$(prevdate, "\#mm\/dd\/yyyy hh\:nn\:ss\#")
        [Forms]![formL]![Дата ввода].SetFocus
        [Forms]![formL].Recordset.FindFirst (stLinkCriteria)

Private Sub bt_del_record_Click()       '(модуль формы редактирования записи [_Форма ввода])
On Error GoTo Err_bt_del_record_Click
Dim stLinkCriteria As String
Dim PrevRecDate As Date

DoCmd.GoToRecord , , acPrevious
PrevRecDate = [Дата ввода]
DoCmd.GoToRecord , , acNext, 1
   
     LastOp1 = "del"
     save_2_hist                           'И запишем в историю удаляемую запись
    
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
          
'       'Адаптируем вызывающую форму
      If CurrentProject.AllForms("formL").IsLoaded = True Then
         [Forms]![formL].Form.Requery             'Обновим вызывающую форму
         [Forms]![formL]![ed_Дата_ввода].SetFocus 'Для поиска по конкретному полю нужно установить на этом поле фокус!
         stLinkCriteria = "[Дата ввода]=" & Format$(PrevRecDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#")  'Соблюдаем американский формат времени!
         [Forms]![formL].Recordset.FindFirst (stLinkCriteria)
     End If
         
         
Exit_bt_del_record_Click:
    Exit Sub

Err_bt_del_record_Click:
    MsgBox Err.Description
    Resume Exit_bt_del_record_Click
    
End Sub