error al ejectuar query dentro de beforepost

[johnlobo]

Pues, es que el problema de los autoincrementales de access es que si se cancela la inserción corre núimero, así que aunque te agradezco tu propuesta, me temo que puedo usarla.

Estoy de acuerdo contigo sobre los eventos ADO, me temo que tienen algo que ver en este tema.

Saludos,
John.

Empezado por waly2k1

Si lo que quieres es saber cual es el codigo nuevo que se insertó
lo que puedes hacer es una consulta con @@IDENTITY, te paso un ejemplo

  qryLocate.SQL.Clear;
    qryLocate.SQL.Text := 'SELECT @@IDENTITY AS NewID';
    qryLocate.Active := true;
    iNewID := qryLocate.FieldByName( 'NewID' ).Value;

donde:
iNewID es una variable LongInt declarada anteriormente
NewID es un campo ficticio que me arroja el @@IDENTITY, bah usando un alias.

Esto lo ejecutas apenas hagas el insert en la tabla y no te preocupes por todos los eventos de ADO, es más si puedes evitarlos mejor aún.

Bueno espero te sirva esto y Exitos!!!

[[enecumene]]

Código Delphi [-]
Function nextArmario() : integer;
begin
  moduloDeDatosMdt.aux1Qry.Close;
  moduloDeDatosMdt.aux2Qry.SQL.Clear;
  moduloDedatosMdt.aux1Qry.SQL.Add('SELECT MAX(numArmario)+1 FROM armarios');
  moduloDedatosMdt.aux1Qry.Open;
  aux:=moduloDedatosMdt.aux1Qry.Fields[0].AsString;
  moduloDeDatosMdt.aux1Qry.Close;
end;

Intenta con eso a ver que resulta.

Saludos.

[waly2k1]

El problema en Access con los autoincrementales es que hasta que no
hagas el post en la tabla no puedes saber el valor asignado, y otra cosa: A no ser que tu aplicación sea monousuaria no te sirve el MAX() +1, por lo que no sabes cual es el valor real y la unica manera es seleccionando el valor @@IDENTITY. El problema no es de ADO, simplemente te digo que no te hagas problemas con los eventos porque son muchos y me pasó hace un tiempo que la sucesión de eventos no siempre respetaba un orden especifico, [code]supongo se corrigió ese bug, pero por las dudas descarté todo.

Por lo gral. cuando uso campos de tipo autoincremental lo hago cuando si o si inserto el registro y no cuando el usuario pueda cancelar la inserción.

Sino lo que uso es una tabla con un registro donde estan los últimos valores asignados y a un valor de esos le sumo uno, o sea simulo un Autoinc y llevo yo el control y no Access.

Te pego una función que la invoco cuando quiero insertar el registro

function TData.GetKey( sField:string ) :LongInt;
begin
    tblClaves.Requery;
    Result := tblClaves.FieldByName( sField ).Value + 1;
end;

Los campos son los nombres de las tablas, entonces paso como parámetro el nombre de la tabla y listo.

Algo así:

Tabla.FieldByName( 'ID_PROVEEDOR' ).Value:=TData.GetKey('PROVEEDOR');

Edito, me olvidé de decirte que una vez que insertes el registro actualices esa tablita

procedure TData.SetKey( sField:string );
begin
    tblClaves.Edit;
    tblClaves.FieldByName( sField ).Value := tblClaves.FieldByName( sField ).Value + 1;
    tblClaves.Post;
end;

Algo así:

TData.SetKey( 'PROVEEDOR');

Bueno espero te sirva de algo, exitos. Y no te compliques mucho.