como executar esse codigo

[vms]

ola pessoal

consegui esse codigo aqui no forum

serve para numerar os campos da tabela

Events

OnCalcFilds

DataModule1.Tabela1campo.Value := DataModule1.Tabela1.RecNo;

a duvida é o seguite:

é possivel execultar esse codigo atravez de um button?

[Jhonas]

é possivel execultar esse codigo atravez de um button?

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
   for i := 1 to DataModule1.Tabela1.recordcount do
      begin
                                 DataModule1.Tabela1.Edit;
         DataModule1.Tabela1campo.Value := i;
         DataModule1.Tabela1.Post;
                                 DataModule1.Tabela1.Next;

      end;

  
end;

OBS: OnCalcFilds não pode ser alterado, este codigo é para renumerar um campo da tabela

abraço

Editado Novembro 27, 2007 por Jhonas