sorunum şu; formda bir adet lookupcombobox kullandım ve bunu tabloma bagladım. programı çalıştırdıgımda lookup etkın ve içine tablodan degerler geliyor. buraya kadar problem yok. fakat;
tabloya yeni bir deger ekledıgımde ben bu degerin lookup a gelmesini beklerken, ekleme işleminden hemen sonra lookup pasif duruma geçiyor. hata vermıyor program kırılmıyor formun dıger tum elemanları saglıklı çalışıyor ama dedıgım gıbı ekleme işleminden sonra lookup pasif oluyor.
tahmınımce tablonun açık kapalı olmasıyla alakalı bı durum var ama ıcınden cıkamadım. kodları veriyorum yardım edebilirseniz çok sevinirim tekrardan kolay gelsin iyi çalışmalar.
eklemenin yapıldıgı yordam:
Kod: Tümünü seç
procedure TPersonel.Unvan_YeniClick(Sender: TObject);
label yer;
begin
yer:
UN:=AnsiUpperCase(InputBox('Ünvan Ekleme','Yeni Ünvan Giriniz',''));
if not (UN='') then begin
with DRY_DataModule.UNVAN_AQ do
begin
SQL.Clear;
SQL.Add('Select Unvan From UNVAN WHERE Unvan=:Unvan');
Parameters[0].Value:=UN;
Open;
if DRY_DataModule.UNVAN_AQ.RecordCount>0 then
begin
ShowMessage('Ünvan Listenizde Mevcut!');
goto yer;
end
else begin
DisableControls;
SQL.Clear;
SQL.Add('Insert into UNVAN(Unvan) VALUES(:Unvan)');
Parameters[0].Value:=Un;
EnableControls;
ExecSQL;
Close;
end;
end;
end
else
CloseQuery;
