Hallo,
Ik ben momenteel bezig met een programma.
Hierbij hou ik het currend record bij op het moment dat een nieuwe melding wordt gedaan.
Daarna wordt deze vrij gegeven, etc bij Annuleren.
Hieronder een stukje van de code:
Echter krijg ik bij: dmSpo003.qryMelding.GotoBookmark(cur_mld_rec);
de melding:
Heeft iemand deze melding al eens gehad. En weet iemand wat hier de oorzaak van is en de oplossing er voor?
Op google kan ik er nog niet veel duidelijks over vinden..
alvast bedankt.
Ik ben momenteel bezig met een programma.
Hierbij hou ik het currend record bij op het moment dat een nieuwe melding wordt gedaan.
Daarna wordt deze vrij gegeven, etc bij Annuleren.
Hieronder een stukje van de code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| private
cur_mld_rec : tbookmark
// nieuwe melding aanmaken
procedure TDlgSpo003_meld.btnNieuweMeldingClick(Sender: TObject);
begin
pnlNewMelding.Visible := true;
cur_mld_rec := dmSpo003.qryMelding.GetBookmark;
prMeldingEditMode(true);
dmSpo003.qryMelding.Insert;
dmSpo003.qryMelding.fieldbyname('MELDER_TYPE').value := 'INTERN';
dbgSoortMelderChange(Self);
dbeMelding.setfocus;
end;
procedure TDlgSpo003_meld.btnMeldingAnnulerenClick(Sender: TObject);
begin
// Wanneer melding opgeslagen melding weer verwijderen uit database
dmSpo003.qryMelding.CachedUpdates := true;
dmSpo003.qryMelding.CancelUpdates;
prMeldingEditMode(false);
dmSpo003.qryMelding.GotoBookmark(cur_mld_rec);
dmSpo003.qryMelding.FreeBookmark(cur_mld_rec);
end; |
Echter krijg ik bij: dmSpo003.qryMelding.GotoBookmark(cur_mld_rec);
de melding:
Deze melding krijg ik zowel bij het opslaan als annuleren, wanneer ik GotoBookMark(cur_mld_rec) aanroep.... class EDBEngineError with message 'BDE error $0002'. Process stopped. ...
Heeft iemand deze melding al eens gehad. En weet iemand wat hier de oorzaak van is en de oplossing er voor?
Op google kan ik er nog niet veel duidelijks over vinden..
alvast bedankt.