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.