Eole exception with.... hatası

[true_false]

merhabalar IB/Fb ikilisinden yararlanıyorum;
tek bir form içinde iki table kullanıyorum aşağıda kodda (if den çıktıktan sonra )
Eole exception with message column unkown kasalar hatasını alıyorum

Kod: Tümünü seç

procedure TFRM_CARI_GROUP.FormCreate(Sender: TObject);
begin
  IF Not(DM_Data.CDS_CARI_GRP1.Active) then DM_Data.CDS_CARI_GRP1.Open;
  If (DM_Data.CDS_CARI_GRP1GRUP1_ADI.Value <> '' ) Then begin
     DM_Data.CDS_CARI_GRP2.Close;
     DM_Data.CDS_CARI_GRP2.CommandText := 'SELECT * FROM CARI_GRUP1 WHERE GRUP1_ADI = '+DM_Data.CDS_CARI_GRP1GRUP1_ADI.Value+' ORDER BY GRUP2_ADI';
     DM_Data.CDS_CARI_GRP2.Open;
  End;
  ustalt:= 1;
  kontrol;
  ActiveControl := DB_EDT_GRP1;
end;

not vermiş olduğunuz güzel cevaplar için teşekkürler.

[aslangeri]

S.A.

hangi if den çıktıktan sonra 1. if mi 2. if mi.

Open ettiğin tabloların fieldlarına bak bakalım kasalar diye bir şey varmı.

Kolay gelsin.

[true_false]

A.S
ikinci iften çıktıktan sonra bu hatayı veriyo
kasalar diye field yok ama data olarak kasalar diye önceden girdiğim grup adım var.

daha açık olmak için table larımı neden kullandığımı ve ne yapmak istediğimi izah edeyim
grup1 ve grup2 aynı il ilçe kavramı olarak kullanacağım
örn
grup1 :genel giderler bu alan adı altında
grup2 :fatura giderleri,maaş gidereleri,kira vs..vs
arttırılabilir.
quotudstr kullanmadığım için olabilirmi diye düşündüm fakat sonuca ulaşamadım

[aslangeri]

S.A.

Kod: Tümünü seç

DM_Data.CDS_CARI_GRP2.CommandText := 'SELECT * FROM CARI_GRUP1 WHERE GRUP1_ADI = '+DM_Data.CDS_CARI_GRP1GRUP1_ADI.Value+' ORDER BY GRUP2_ADI'; 

satırını

Kod: Tümünü seç

DM_Data.CDS_CARI_GRP2.CommandText := 'SELECT * FROM CARI_GRUP1 WHERE GRUP1_ADI = '''+DM_Data.CDS_CARI_GRP1GRUP1_ADI.asstring+''' ORDER BY GRUP2_ADI'; 

şeklinde değiştir.
Sanırım grup1_adi "kasalar" geliyor. tırnak içinde olmadığı için onuda field ismi gibi algılıyor. bulamayınca da bu hatayı veiyor.
Kolay gelsin.

[true_false]

teşekkürler aslan saol gene ufkumu açtın fakat senin denediğin gibi olmasada birazcık değişimler sonucu doğruya ulaşmam zaman aldı.
merak edersen sana kod

Kod: Tümünü seç

  If (DM_Data.CDS_CARI_GRP1.FieldValues['GRUP1_ADI'] <> '' ) Then begin
  DM_Data.CDS_CARI_GRP2.Close;
    DM_Data.CDS_CARI_GRP2.CommandText := 'SELECT * FROM CARI_GRUP2 WHERE GRUP1_record_id = '+QuotedStr(DM_Data.CDS_CARI_GRP1RECORD_ID.AsString)+' ORDER BY GRUP2_ADI';
  DM_Data.CDS_CARI_GRP2.Open;
  DM_Data.CDS_CARI_GRP2.Append;
  End;

teşekkürler.