Public Sub lalala(x As Double)
Dim rst As ADODB.Recordset
Dim y As Double
Set rst = New ADODB.Recordset
rst.Open "table1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.MoveFirst
While Not rst.EOF
    rst.Find "[Dann]=" & x
    If Not rst.EOF Then
        rst.MovePrevious
        y = rst!Dann
        rst.MoveNext
        rst!Dann = y
        rst.Update
    End If
Wend
End Sub

Valid Me!Поле1

DELETE * FROM [table  1 ] WHERE [table  1 ].pressure Is Null;

DoCmd.OpenQuery "мойЗапрос" 

Docmd.runsql "DELETE * FROM [table 1] WHERE [table 1].pressure Is Null;"

currentdb.execute "DELETE * FROM [table 1] WHERE [table 1].pressure Is Null;", dbfailonerror

SELECT Hour([table  1 ].DateТimeA) AS IntervalTime, Avg([table  1 ].pressure) AS [Avg-pressure]
FROM [table  1 ]
GROUP BY Hour([table  1 ].DateA);