Obtener siguiente registro acces

[ecfisa]

Hola.

No me queda en claro cuál es la columna que identifica numéricamente cada fila...

Si su nombre es ID, intenta de este modo:

Código Delphi [-]
function NearMaxID(Qry: TADOQuery; const PrevID: Integer): Integer;
begin
  Qry.Close;
  Qry.SQL.Clear;
  Qry.SQL.Add('SELECT TOP 1 ID FROM TURNOCLIENTE');
  Qry.SQL.Add('WHERE ID > :PRV_ID ORDER BY ID');
  Qry.Parameters.ParamByName('PRV_ID').Value:= PrevID;
  Qry.Open;
  Result:= Qry.FieldByName('ID').AsInteger;
  Qry.Close;
end;

Si se llama id_turno, reemplazalo en cada ocurrencia de ID (en rojo).

Saludos