SQL = "SELECT TOP 1 * FROM nyheter ORDER BY id DESC"
Set RecSet = Connect.Execute(SQL)
SQL = "SELECT * FROM nyheter WHERE id <> " & RecSet("Id") & " ORDER BY id DESC"
Set RecSet = Connect.Execute(SQL)
Oj oj, ni låter databasen jobba arslet av sig i onödan.
Nu har jag dock inte jobbat med access på väldigt länge, men det borde fungera att baka in allting i en enda fråga istället:
SQL = "SELECT * FROM nyheter WHERE id NOT IN (SELECT TOP 1 id FROM nyheter ORDER BY id DESC) ORDER BY id DESC"
Set RecSet = Connect.Execute(SQL)
Sedan rekommenderar jag dig att byta ut * mot de fält du behöver istället. Då slipper databasen hämta onödigt mycket data hela tiden.
254 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25