Dim rst As New ADODB.Recordset
rst.Open "SELECT Движение.* " _
& " FROM Движение " _
& " WHERE (((Движение.КодДвж)=1));", CurrentProject.Connection
If rst.RecordCount <> 0 Then
Do While Not rst.EOF '
rst("УчЦена") = DFirst("УчЦена", "запДвижениеИтоги", [rst.ID])
rst.MoveNext
Loop
End If
rst.Close
Set rst = Nothing
|