Как отобразить значения таблицы для одного события, нескольких строк для одного атрибута в текстовых полях, как если бы я использовал перекрестный запрос

Question

У меня есть форма, которая должна отображать значение наклона для разных разрезов на графике, привязанных к одному событию, с использованием разных текстовых полей.

Например: есть запись события мониторинга.Таблица StandTransectSlope имеет 3 строки для одного EventID: наклон для разреза UP (верхний, ID = 1), наклон для разреза BL (нижний левый, ID = 2), наклон для разреза BR (нижний правый, ID = 3).

У меня есть 3 текстовых поля: одно поле для отображения значения наклона для каждого из разрезов (1-3).

У меня был запрос кросс-таблицы за этой формой, чтобы я моглегко присвоить этим различным значениям наклона из каждой строки имя трансекта.Но потом я обнаружил, что запрос кросс-таблицы не обновляется.Пользователи должны иметь возможность добавлять новые данные, а также просматривать уже введенные данные.Как я могу код, чтобы позволить это?

В настоящее время у меня есть следующий код для события Form_Load (мне также нужно добавить код для AfterUpdate для формы):

Private Sub Form_Load()

Dim ID As Integer
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

Set db = CurrentDb

strSQL = "SELECT * FROM xrefCOMN_StandEventTransectSlope WHERE EventID =" & Me.EventID

Set rs = db.OpenRecordset(strSQL)

'Set values for slope text boxes by ID
Select Case ID
    Case 1
        Me.txtSlopeUP.Value = DLookup("Slope", "xrefCOMN_StandEventTransectSlope", "EventID=" & Me.EventID)
    Case 2
        Me.txtSlopeBR.Value = DLookup("Slope", "xrefCOMN_StandEventTransectSlope", "EventID=" & Me.EventID)
    Case 3
        Me.txtSlopeBL.Value = DLookup("Slope", "xrefCOMN_StandEventTransectSlope", "EventID=" & Me.EventID)
    Case Else
        'Nothing
End Select

End Sub