Hej. Jag vill leta fram ett antal poster från ett reg. i access. Registret inehåller ca 30tusen poster så jag vill inte "snurra" igenom för att hitta de poster jag vill ha ut.
Jag försöker använda gotokey men problemet är att gotokey alltid går till första träffen vid varje ny sökning. Jag har försökt att sätta bookmark vid första träffen och sedan gå dit innan nästa gotokey men sökningen startar i alla fall från början på reg.
Hur gör man.
procedure TTidForm.SokArbTidClick(Sender: TObject);
var found:boolean;
datum:string;
SavePlace: TBookmark;
begin
clearStringBox;
with DataModule1.stampTidTable do
begin
//leta fram 2 stämplingar på detta anstNr och datum;
Datum:=SelectForm.nosteckOnDate(DatumEdit.text);
Active:=true;
First;
DisableControls;
EditKey;
FieldByName('X1EMNO').AsString:=SelectForm.anstNrTemp;
FieldByName('X1DTSC').AsString:=Datum;
GotoKey;
SavePlace:=GetBookmark;
TidString.cells[0,1]:=DataModule1.stampTidTableX1DTSC.AsString;
TidString.cells[1,1]:=DataModule1.stampTidTableX1CTME.AsString;
TidString.cells[2,1]:=DataModule1.stampTidTableX1TTTPE.AsString;
TidString.cells[3,1]:=DataModule1.stampTidTableX1FRTM.AsString;
TidString.cells[4,1]:=DataModule1.stampTidTableX1TOTM.AsString;
GotoBookmark(SavePlace);
Next;
GotoKey;
TidString.cells\[0,2\]:=DataModule1.stampTidTableX1DTSC.AsString;
TidString.cells\[1,2\]:=DataModule1.stampTidTableX1CTME.AsString;
TidString.cells\[2,2\]:=DataModule1.stampTidTableX1TTTPE.AsString;
TidString.cells\[3,2\]:=DataModule1.stampTidTableX1FRTM.AsString;
TidString.cells\[4,2\]:=DataModule1.stampTidTableX1TOTM.AsString;
EnableControls;
end;
end;