Tabelvelden via index benaderen

[Plau]

Ik heb een tabel (in Access) met o.a. een variabel en onbepaald aantal velden p1,p2,p3...px
Op elk van de velden moet een gelijke bewerking worden uitgevoerd.
Voorbeeld hieronder voor veld p1:

Dim rs As Recordset
Set rs = ...
rs.MoveFirst
Do While Not rs.EOF
   If rs!p1=..... Then
      rs.Edit
      rs!p1= ........
      rs.Update
   End If
   rs.MoveNext
Loop
rs.Close

Het is natuurlijk dom om dit stuk code x maal te herhalen (of het If ... Then ... stuk).
Hoe kan ik de veldnamen p1,p2,p3...px geindexeerd gebruiken?

 

[Plau]

Ik heb het al gevonden:

 [B]rs.p1[/B]  kan ook worden geschreven als:
 [B]rs.Fields!p1     [/B]of als:
 [B]rs.Fields("p1")[/B]

door dit laatste te wijzigen in:
 [B]rs.Fields("p" & x)[/B]
 en x in een For-Next loop te gebruiken, kunnen alle velden afgelopen worden.