2017-10-05 14 views

答えて

0

私はVBA機能を使用してそれをやります。 AccessでCTRL + Gを押し、メニューの挿入/モジュールをクリックします。

製品::

Function fGetNextDirection(lngID As Long) 
    Dim rst AS DAO.Recordset 
    Set rst = CurrentDb.OpenRecordset("SELECT TOP 2 FROM TAXIDATA WHERE " & _ 
    "PosID = lngID & " ORDER BY PosID") 
    rst.MoveLast 
    If rst.RecordCount = 2 Then 
    fGetNextDirection = rst!Direction 
    Else 
    fGetNextDirection = 0 
    End If 
    rst.Close 
    Set rst = Nothing 
End Function 

その後、クエリで新しいフィールドを追加:&は、そのモジュールに次のコピー&ペーストNZ(SpeedKmHr)* fGetNextDirection(POSID)

これが最後のレコードである場合に、結果は0になります。

関連する問題