Hola Caren.
Cita:
..
ADONumeros y el ADOClientes son dos adotables uno en cada formulario
...
|
Es que eso precisamente es lo que te insinuó
Neftali cuando te explica la procedencia del error:
Cita:
"No encuentra en ese formulario o unit el elemento ADONumeros".
|
A ver... Suponiendo
ADOClientes está localizado en
TAltaClientes y que el formulario donde está situado
ADONumeros se llame
FrmNumeros, el código del mensaje
#3 tendría que ser:
Código Delphi
[-]
...
implementation
uses unitFrmNumeros;
procedure TAltaClientes.FormCreate(Sender: TObject);
var
Ultimo : Integer;
begin
Ultimo := FrmNumeros.ADONumeros.FieldByName('CodClientes').Value + 1;
ADOClientes.Insert;
ADOClientes.FieldByName('CodCliente').Value := Ultimo;
...
ADOClientes.Post;
FrmNumeros.ADONumeros.Edit;
FrmNumeros.ADONumeros.FieldByName('CodCliente').Value := Ultimo;
FrmNumeros.ADONumeros.Post;
end;
Ya que si
ADONumeros no reside en el mismo formulario, Delphi no puede adivinar donde lo hace. Tenes que indicárselo explícitamente.
De todos modos te recomiendo el uso de al menos un
TDataModule para agrupar los componentes no visuales (ADOConnection,ADOQuery, ADOTable, etc).
Saludos.