identifier idents no member "DaMod1.Qy_mieterName"
identifier idents no member "DaMod1.Qy_mieterVorname"
usw, für alle Zeilen, in denen VALUE steht, komplette Prozedur nachstehend
in Delphi gabs da kein Problem
Code: Alles auswählen
procedure Tbody.DBNavigatorMieterPost;
var
BM_Mieter : TBookmark;
nam, vorn : String;
begin
DaMod1.Qy_mieter.Open;
DaMod1.Qy_mieter.Edit;
nam := DaMod1.Qy_mieterName.Value; { Datenfeld NameVorname automatisch füllen }
vorn := DaMod1.Qy_mieterVorname.Value;
DaMod1.Qy_mieterNameVorname.Value := nam + vorn;
DaMod1.Qy_mieterDatum.Value := date;
DaMod1.Qy_mieterGeschl.Value := DaMod1.Qy_anredeGeschlec.Value;
BM_Mieter := DaMod1.Qy_mieter.GetBookmark;
DaMod1.Qy_mieter.DisableControls;
DaMod1.Qy_mieter.Post;
DaMod1.Qy_mieter.Open;
DaMod1.Qy_mieter.EnableControls;
end;