SELECT Таблица1.Поле1, Таблица1.ПолеId
FROM Таблица1 INNER JOIN ТаблицаId ON Таблица1.ПолеId = ТаблицаId.ПолеId;

Private Sub Form_Current()

MyFunc

If Me.RecordsetClone.RecordCount <  1  Then Exit Sub
Forms!П1.СписокIstor = (Me.CurrentRecord -  1 )
Me.Dregs.SetFocus

End Sub

Function MyFunc()
Select Case True
    Case Me.Dirty = False And Me.NewRecord = False 'Просмотр записи
        Me.НадписьСостояниеЗаписи.Caption = "Состояние: Просмотр записи..."
        Me.НадписьСостояниеЗаписи.ForeColor =  0 
        Me.NORMA.ForeColor =  0 
        Me.Dregs.ForeColor =  0 
        Me.Причина.ForeColor =  0 
        Me.NPROZ.ForeColor =  0 
        Me.Прим.ForeColor =  0 
        Me.Poliv.ForeColor =  0 
        
    Case Me.Dirty = True And Me.NewRecord = False 'Редактирование записи
        Me.НадписьСостояниеЗаписи.Caption = "Состояние: Редактирование записи..."
        Me.НадписьСостояниеЗаписи.ForeColor =  255 
        Me.NORMA.ForeColor =  255 
        Me.Dregs.ForeColor =  255 
        Me.Причина.ForeColor =  255 
        Me.NPROZ.ForeColor =  255 
        Me.Прим.ForeColor =  255 
        Me.Poliv.ForeColor =  255 
    Case Me.Dirty = True And Me.NewRecord = True 'Редактирование новой записи
        Me.НадписьСостояниеЗаписи.Caption = "Состояние: Редактирование новой записи..."
        Me.НадписьСостояниеЗаписи.ForeColor =  16711680 
        Me.NORMA.ForeColor =  16711680 
        Me.Dregs.ForeColor =  16711680 
        Me.Причина.ForeColor =  16711680 
        Me.NPROZ.ForeColor =  16711680 
        Me.Прим.ForeColor =  16711680 
        Me.Poliv.ForeColor =  16711680 
 End Select
End Function

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Flg Then
Else
КодПоследов = Me.Код_Последов
End If
curRecDel = Me.CurrentRecord
If Flg Then
Flg = False
End If
If Me.Dirty And Not Me.NewRecord Then DoCmd.OpenQuery ("СохрДоИзмененияIst"), acViewNormal, acAdd

Dim Ki As Variant
 Me.IDENT = ОписаниеПеремен.IDENT
 Me.DATID = Date + Time
 Ki = Nz(Me.Код_Обработки,  0 )
If Ki <>  2  And Ki <>  8  And Ki <>  82  And Ki <>  81  Then
Me.Код_Обработки =  1 
End If

Set rsFrm = Me.RecordsetClone
RecCount = rsFrm.RecordCount
If rsFrm.BOF And rsFrm.EOF Then
curRec =  0 
Exit Sub
End If
rsFrm.MoveFirst
curRec =  1 
Do While rsFrm![Id_Sequence] <> КодПоследов
rsFrm.MoveNext
If rsFrm.EOF Then Exit Do
Loop
rsFrm.MovePrevious

If rsFrm.BOF Then rsFrm.MoveNext

кодПоследовПред = rsFrm![Id_Sequence]

If Not rsFrm.EOF Then rsFrm.MoveNext
If rsFrm.EOF Then
rsFrm.MovePrevious
кодПоследовCлед = rsFrm![Id_Sequence]
End If
rsFrm.MoveNext
If rsFrm.EOF Then
rsFrm.MovePrevious
кодПоследовCлед = rsFrm![Id_Sequence]
Else
кодПоследовCлед = rsFrm![Id_Sequence]
End If

End Sub

Private Sub Form_AfterUpdate()

FlgНеНач = True
Me.AllowAdditions = False
If Not Me.ФлажокНеНачислять Then
Call Обновление2
Else
Call ОбновлениеLight2
End If

Me.SetFocus
Me.Requery

If flgButDel Then
flgButDel = False
Exit Sub
End If

If curRec =  0  Then Exit Sub
If НаправлениеСтрелки <>  0  Then
    If НаправлениеСтрелки = vbKeyDown Then
curRec =  1 

rsFrm.MoveFirst
Do While rsFrm![Id_Sequence] <> кодПоследовCлед
rsFrm.MoveNext
If rsFrm.EOF Then Exit Do
curRec = curRec +  1 
Loop
rsFrm.Close
Set rsFrm = Nothing
DoCmd.GoToRecord acDataForm, "ФормаОбработкаIstor", acGoTo, curRec
Exit Sub
    End If

If НаправлениеСтрелки = vbKeyUp Then
   curRec =  1 

rsFrm.MoveFirst
If rsFrm.BOF Then Exit Sub
Do While rsFrm![Id_Sequence] <> кодПоследовПред
rsFrm.MoveNext
If rsFrm.EOF Then Exit Do
curRec = curRec +  1 
Loop
rsFrm.Close
Set rsFrm = Nothing
DoCmd.GoToRecord acDataForm, "ФормаОбработкаIstor", acGoTo, curRec
Exit Sub
    End If
    
End If

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)


    Select Case KeyCode
Case vbKeyF5 'добавить и копировать запись
    KeyCode =  0 
    Call Кнопка33_Click
    Exit Sub
Case  46  'Удалить запись клав Del
    KeyCode =  0 
    Call Кнопка39_Click   'Удаление записи
    Exit Sub
Case  35  ''Закрытие формы end
    KeyCode =  0 
    Call Кнопка24_Click
    Exit Sub

End Select


Dim bolReturn As Boolean
ОписаниеПеремен.FrmHwnd = Me.hwnd
bolReturn = fIsComboOpen()
If bolReturn Then Exit Sub

   On Error GoTo HandleErrors
   Err.Clear
   НаправлениеСтрелки =  0 
    Select Case KeyCode
        Case vbKeyDown
        НаправлениеСтрелки = KeyCode
        KeyCode =  0 
            DoCmd.GoToRecord Record:=acNext
            Case vbKeyUp
        НаправлениеСтрелки = KeyCode
        KeyCode =  0 
            DoCmd.GoToRecord Record:=acPrevious
    End Select
On Error Goto  0 
    Exit Sub

HandleErrors:
    Select Case Err.Number
        Case  2105 
            KeyCode =  0 
        Case Else
            MsgBox "Error: " & Err.Number & " " & Err.Description
            Err.Clear
    End Select
On Error Goto  0 

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
MyFunc
End Sub

If Me.Dirty And Not Me.NewRecord Then DoCmd.OpenQuery ("СохрДоИзмененияIst"), acViewNormal, acAdd