У меня есть форма, которая должна отображать значение наклона для разных разрезов на графике, привязанных к одному событию, с использованием разных текстовых полей.
Например: есть запись события мониторинга.Таблица 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