Fehlermeldung: *.db Index ist schreibgeschütz

[eddy]

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