Einzelnen Beitrag anzeigen

Gambit

Registriert seit: 28. Mai 2003
680 Beiträge
 
Delphi 7 Professional
 
#1

Sperren: Exeption wenn auf letztem Datensatz

  Alt 1. Jun 2003, 23:29
Hallo,

meine Datenbank öffnet schreibgeschützt, also nichts ist editierbar. Nun habe ich eine Routine eingebaut, die den Schreibschutz aufhebt, damit sich ZB DBEdits editieren lassen:

Delphi-Quellcode:
procedure TForm1.CheckBox1Click(Sender: TObject);
var pos: TBookmark; // Lesezeichen
begin
  pos:= Query1.GetBookmark; // Position merken
  Query1.Active:= false;
  if CheckBox1.Checked= true then Query1.RequestLive := false //sperren
  else Query1.RequestLive := true; // Sperre aufheben
  Query1.Active:= true;
  Query1.GotoBookmark(pos); // Position wiederherstellen
end;
Das funzt soweit auch ganz gut, es sei denn, ich stehe gerade auf dem letzten Datensatz. Wenn ich dann sperren oder entsperren will bekomme ich ein Exeption mit der Fehlermeldung:

Gitternetz außerhalb des zulässigen Bereichs.

Wie kommt denn das und wie kann man dem abhelfen?

Gruß

Gambit
  Mit Zitat antworten Zitat