I am sorry, i wanted to make more simple, and ended up messing it up, this is the code that executes every 60 seconds on the timer event
Dim strPath As String, horaAgora As Date, horaAcao As Date, ruidoID As Integer, n As Integer
Dim db As Database
Set db = CurrentDb()
Dim rstRuidos As...