Loop Records Access

Question

У меня есть пять остановок

-------- A ------------- B ------------ C ------------ D ------------ E

У меня есть три столбца в оригинальной таблице [Trip], я хочу закодировать базу направлений на логика

Если мой автомобиль идет от А до Е, или каких-либо остановок для этого направления (BD, CE), направление юг

Если мой автомобиль идет от Й до А, или каких-либо остановки для этого направления (EC, DA), направление северное

Trip CarID Stops 
1  1000  A  
1  1000  B  
1  1000  C  
2  1001  C  
2  1001  D  
2  1001  E  
3  1002  D  
3  1002  C  
3  1002  B  

Я хочу Результат ниже:

Trip CarID Stops Direction 
1  1000  A  South 
1  1000  B  South 
1  1000  C  South 
2  1001  C  South 
2  1001  D  South 
2  1001  E  South 
3  1002  D  North 
3  1002  C  North 
3  1002  B  North 

Любой знает, как закодировать это в VBA доступа или запрос? Реальная таблица имеет более 5 остановок.

Answer 1

Я предполагаю, что это даст некоторые идеи

Private Sub Command0_Click() 
On Error Resume Next 
Dim rst As DAO.Recordset 
Dim PreviousStop As String 
Dim Direction As String 
Dim PreviousDirection As String 
Dim rstCounter As Integer 
Dim currentCar As String 
Set rst = CurrentDb.OpenRecordset("Trip") 
With rst 
    rstCounter = rst.RecordCount 
    .MoveFirst 
    Do Until .EOF 
     If rstCounter = 1 Then 
      Direction = calculatedDirection(PreviousStop, .Fields("Stops")) 
      .Edit 
      .Fields("Direction") = Direction 
      .Update 
      Exit Do 
     Else 
      PreviousStop = .Fields("Stops") 
      currentCar = .Fields("CarID") 
      .MoveNext 
      If currentCar <> .Fields("CarID") Then 
       PreviousDirection = "" 
      Else 
       If Len(PreviousDirection) > 0 Then 
        Direction = PreviousDirection 
       Else 
        Direction = calculatedDirection(PreviousStop,  .Fields("Stops")) 
        PreviousDirection = Direction 
       End If 
      End If 
      .MovePrevious 
      If Len(Direction) > 0 Then 
       .Edit 
       .Fields("Direction") = Direction 
       .Update 
      End If 
      .MoveNext 
     End If 
     rstCounter = rstCounter - 1 
     Loop 
    End With 
End Sub 

Private Function calculatedDirection(PreviousStop As String, CurrentStop As String) As String 
If PreviousStop > CurrentStop Then 
      calculatedDirection = "North" 
     Else 
      calculatedDirection = "South" 
     End If 
End Function