Could not convert variant of type (null)... (Çözüldü)

[KoPilot]

Herkese Merhaba;

Çok küçük bir veresiye defteri programı yaptım. Yaptım yapmasına ama gel gör ki müşteri eklemek istediğimde aşağıdaki hatayı alıyorum.



Müşteri ekleme formunu açan bir buttonum var butonun kodları şöyle

Kod: Tümünü seç

procedure TAnaForm.BitBtn3Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_Alici, Frm_Alici);
  DM.Dset_musteri.Insert;
  Frm_Alici.Show;
end;

Bu formumda da dataset kayıt kodundan başka kod yok. (dbeditlerle de denedim normal editlerle de ikisinde de sonuç aynı)

Alıcı formunu gösteren kodda hata veriyor (Frm_Alici.Show; ayrıca modal da denedim). Debug yapıp F8 ile (veya F7 ile) ilerlemeğe çalıştığımda buradan ileri gitmiyor.

Veritabanımda müşteri tablosunda bulunan alanlar

Kod: Tümünü seç

Must_no - Primary key - integer - not null
Must_adi - varchar - not null
Must_soyadi - varchar - not null
must_resim - blob 

Delphi7 - Firebird kullanıyorum...
Yardımlarınızı bekliyorum.
Eyvallah...

[KoPilot]

Kimsenin başına gelmedi mi böyle olay...
Gerçi gogle amcaya göre başına gelenler var ama çözümleri bana göre değil.

[conari]

hatalı bir bilgi giriyorsunuz.
must_resim - blob alanı büyük ihtimal.

[KoPilot]

Farklı yerlerde kullandığım bir şey, burada ne gibi bi yanlışlık yapmış olabirim ki?

[KoPilot]

Arkadaşlar verdiğim kısa rahatsızlık yüzünden özür dilerim...
Programı adım adım baştan yaparak hatayı buldum sonunda biraz uğraştırdı ama bulmuş olmamın gururu ile mutlu ve umutluyum ))

Hata: Müşteri tabloma (ki kendileri MASTER oluyorlar) yeni kayıt eklemek için butona tıkladığımda detail tabloda o kayıta gelen null alandan oluyormuş. Alakası da şu müşteri hesaplarının toplamını veren bir querym var hesaplama koduda müşteri datasetimin afterscrol olayında idi. Herşey aynı çözümü null alanı kontrol ederek buldum şöyle ki:

Kod: Tümünü seç

if (detail_dataset.fieldbyname('tutar').isnull) then
begin
 kodlar....
 exit;
end else
kodlar...

Belki birine lazım olur diye uzattım da uzattım tekrar özür dilerim...