Hallo RedHorse,
Du mußt Deine Index-Dateien natürlich auch als "gewartet" kennzeichnen. Ich habe diese mit dem Browser geöffnet, den ich Dir schon mal geschickt hatte, und beim Versuch einen neu eingefügten Datensatz zu speichern, erhielt ich die gleiche Meldung.
Außerdem empfehle ich Dir für die nachfolgenden Felder den Typ Integer
0 LFNR N
1 KDNR N
2 KDNRTK N
bzw. A (String) zu verwenden (bei Plz sonst Problem mit führenden Nullen z.B. 09126 --> 9126)
7 PLZ N
Code:
Im cbME1 vom Typ TComboBox wird bei Enter die aktive Seite gewechselt und ein ausgewähltes Edit-Feld fokussiert:
procedure TFKasse.cbME1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then begin
sbBack2BucheWE.Visible := false;
key := #0;
pcArt.ActivePage := tsKalk1;
pcArtChange(Sender);
edListenPreis.SetFocus;
end;
end;
Und das ist aus einem der vielen Beiträge zu diesem Thema und ist wohl von der Funktion identisch mit Tab (ich hab's noch nicht probiert):
Code:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
If (Key = #13) Then Begin
Key := #0;
Perform(WM_NEXTDLGCTL,0,0); // gehe zur nächsten Komponente
End;
end;
mfg
eddy