Indices en BD Access

[silviodp]

Si yo estoy usando el IndexName, de la siguiente manera:

Código Delphi [-]
procedure TForm3.PageControl1Change(Sender: TObject);
begin
If Form3.PageControl1.ActivePageIndex=0 Then
 ModuloDatos.TblSocios.IndexName:='Id1'
 Else
  If Form3.PageControl1.ActivePageIndex=1 Then
   ModuloDatos.TblSocios.IndexName:='Id2'
  Else
  If Form3.PageControl1.ActivePageIndex=2 Then
   ModuloDatos.TblSocios.IndexName:='Id3'
end;