Steg 4

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.

1. Skapa en händelseprocedure för RS objektets MoveComplete genom att välja dessa i editorns komboboxar
   
   
2. Du borde få någonting i denna stil:
   Private Sub RS_MoveComplete(ByVal adReason ...
   
   
3. 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
   
   
4. Tag bort hela If satserna som kollade EOF och BOF i cmdNavigera_Click
   
   
5. Provkör
   
   

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 Händelser

Observera att proceduren får fyra parametrar som vi kan använda. Dessa är:

Parameter	Typ (klicka för info)	Betydelse
adReason	ADODB.EventReasonEnum	Varför denna händelse skedde
pError	ADODB.Error	Eventuella fel
adStatus	ADODB.EventStatusEnum	Gick allt bra?
pRecordset	ADODB.Recordset	Recordsettet som händelen skedde i. Deta är denna vi kollar t.ex. EOF på, inte på det "globala" RS objektet

Se även Händelser