"Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.", står det fast det finns poster i databasen och pNode.lCounters värde överränsstämmer med en post i databasen. Vad gör jag åt detta?

Public Sub DeletePost(pNode As node)
Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

'Leta rätt på posten
rs.Open "SELECT * FROM tblCal WHERE Post =" & pNode.lCounter, GetCon, _
adOpenKeyset, adLockOptimistic

'Ta bort posten
rs.Delete adAffectCurrent
rs.Requery
End Sub

Ett betydligt snabbare och lättare sätt att göra samma sak på är såhär, testa om det fungerar bättre.

<code>
Public Sub DeletePost(pNode As node)
GetCon.Execute "DELETE FROM tblCal WHERE Post = " & pNode.lCounter
End Sub
</code>

/Johan

Det funkade tyvärr inte. Det händer inget när man kör koden.

Är du säker på att pNode.lCounter innehåller rätt information och att det finns motsvarande post i databasen? Det verkar som att det inte gör det...

/Johan

Jag glömde att kolla i databasen, trodde inte att det var där felet låg.