I campi sono:
il campo 'Analisi( ) SO2' è con lo spazio fra le parentesi e lo spazio fra parentesi chiusa e SO2'?
Comunque supposto che si chiamino come sopra, altrimenti dovrai cambiare i nomi all'interno del codice, dovrai creare un Modulo, nella finestra VBA, ed in collare, in esso, il seguente codice:
Sub VerificaDati()
On Error GoTo Errore
Dim rs As DAO.Recordset
Dim intMinuto As Integer
Dim strPunto As String
Set rs = CurrentDb.OpenRecordset("SELECT Minuto, Punto, [Analisi( ) SO2] AS Analisi FROM TabellaTemp")
If rs.RecordCount > 0 Then
intMinuto = rs!Minuto
strPunto = rs!Punto
rs.MoveNext
Do While Not rs.EOF
If strPunto <> rs!Punto Then
If (rs!Minuto - intMinuto) < 3 Then
rs.Edit
rs!Analisi = Null
rs.Update
Else
intMinuto = rs!Minuto
End If
If (rs!Minuto - intMinuto) = 2 Then strPunto = rs!Punto
Else
intMinuto = rs!Minuto
End If
rs.MoveNext
Loop
End If
MsgBox "Elaborazione dati eseguita regolarmente.", vbInformation
Exit Sub
Errore:
MsgBox "Elaborazione dati interrortta in quanto si è verificato un errore.", vbInformation
End Sub
quindi dovrai cambiare nel codice il nome della tabella da TabellaTemp a quello della tua e aver creato una copia della tua tabella, dove sono i dati da elaborare, posizionarsi all'interno della routine e premere il tasto F5 e verrà eseguito il codicecodice