saludo para todos
 

estoy usando delphi 7 y accesse, en un programa que estoy realizando trato de incrementar un codigo atraves de un query

Código SQL [-]
Select Max(codigo) From tabla

y en NewRecord de la tabla tengo esto.

Código SQL [-]
  if Tbl_Departamento.State = dsinsert then 
  begin
    Tbl_Departamento.Open;
    Tbl_DepartamentoCodigo_Departamento.Value := Qry_IncrementaDepartamento.Fields[0].AsInteger + 1;
    Qry_IncrementaDepartamento.Close;
  end;

todo bien por el momento,el problema esta cuando inserto un registro incrementa el codigo grabo, voy a insertar otro registro no lo incrementa pone el codigo 1, pero si sierro el fom y entro nuevamente cuando inserto me incrementa el codigo 2. eso quiere decir que tengo que entra y salir para que lo incremente. estoy buscando y no veo donde puede estar el problema y siempre es hecho eso y funciona bien.

que pasará?

mil gracias.

Hola edwin.simon.

Por favor, tratá de usar títulos significativos en tus mensajes. Saludos para todos, aunque es cordial no representa el problema que te sucede...
El código no se etiquetó correctamente por que para código SQL es: [sql] [/sql] , y para codigo Delphi: [delphi] [/delphi] , Pero lo que vale es la intención. Gracias por usarlas. :)

Aunque imagino que lo que deberías hacer es algo así:

Código Delphi [-]
  if Tbl_Departamento.State = dsinsert then
  begin
    Tbl_Departamento.Edit;
    Tbl_DepartamentoCodigo_Departamento.Value := Qry_IncrementaDepartamento.Fields[0].AsInteger + 1;
    ...
  end;

Estaría más seguro de la respuesta si pusieras la sentencia SQL que utilizas en Qry_IncrementaDepartamento.

Un saludo.

gracaias Ecfisa por tu opinion pido una cordial disculpa estuve buscando las instrucciones para las lineas de comando y no la encontre y con lo del titulo tiene mucha razon depues que hice la publicacion quise cambiarle pero no me fue posible.

mil gracias nuevamente.