Obtener siguiente registro acces

[maxi915]

me tirar error de parametro mal definido....

Código Delphi [-]
procedure siguienteRegistro(queryTurnoCliente:TADOQuery; var id_turno:Integer);
begin
 With queryTurnoCliente do
    begin
      SQl.Clear;
      SQL.Add('select top 1 id from turnoCliente where id_turno> :Id_turno order by id_turnoCliente');
      Open;
end;
end;

[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