På sätt och vis känns det lite dumt att behöva kolla EOF och
BOF för varje förfytting.
Skulle det inte vara bättre om databasen själv skötte detta? Visste väl det, så vi fixar det nu.
<ol>
<li>Skapa en händelseprocedure för RS objektets MoveComplete genom att välja dessa i editorns komboboxar </li>
<li>Du borde få någonting i denna stil: 
Private Sub RS_MoveComplete(ByVal adReason ... 
</li>
<li>Skriv in följande kod i denna procedur 

If pRecordset.BOF And adReason = adRsnMovePrevious Then 
 pRecordset.MoveFirst 
End If 
If pRecordset.EOF And adReason = adRsnMoveNext Then 
 pRecordset.MoveLast 
End If 
<li>Tag bort hela If satserna som kollade EOF och BOF i cmdNavigera_Click </li>
<li>Provkör </li>
</ol>
Man kan även använda denna händelse för att sätta in en ny post. Om man märker att EOF är sant kan man automatiskt sätta til nya poster med pRecordset.AddNew o.s.v. Se även <a href="adovb6.asp#EOF">Händelser</a>
Observera att proceduren får fyra parametrar som vi kan använda. Dessa är:
<table border="1">
<tr><td align="left">Parameter</td><td align="left">Typ (klicka för info)</td><td align="left">Betydelse</td></tr>
<tr><td valign="top">adReason</td><td valign="top"><a href="EventReasonEnum.asp">ADODB.EventReasonEnum</a></td><td valign="top">Varför denna händelse skedde</td></tr>
<tr><td valign="top">pError</td><td valign="top"><a href="AError.asp">ADODB.Error</a></td><td valign="top">Eventuella fel</td></tr>
<tr><td valign="top">adStatus</td><td valign="top"><a href="EventStatusEnum.asp">ADODB.EventStatusEnum</a></td><td valign="top">Gick allt bra?</td></tr>
<tr><td valign="top">pRecordset</td><td valign="top"><a href="dbr.asp">ADODB.Recordset</a></td><td valign="top">Recordsettet som händelen skedde i. Deta är denna vi kollar t.ex. EOF på, inte på det "globala" RS objektet </td></tr>
</td></tr>
</table>
Se även <a href="adovb6.asp">Händelser</a>