Sn. elmariachi,
Ben bakana kadar sn. mehmetdemiral çözümü göndermiş.
Benimki de boşa gitmesin, bende en azından nerelerde yanlışınız olduğunu yazayım dedim.
PROJE_BEDEL_HESABI_MAKİNE adlı raporun kayıt kaynağında,
hiç bir alanını kullanmadığınız halde BOLUM ve CEVAP adlı tablolar var ve gruplama yapılmış. Bunlara gerek yok.
Yapı Sınıfı bazındaki verileri YAPI_BIRIM_MALIYETI tablosundan alabilmek için, GRUP adlı tablodaki YAPI_SINIFI adlı alanı, YAPI_BIRIM_MALIYETI adlı tablodaki YAPI_SINIFI adlı alanla bağlamanız gerekir.
Raporda kullandığınız,
Metin22=Forms!Grup_Düzelt_Formu!Metin377
Metin28=Forms!Grup_Düzelt_Formu!Metin373
alanları yanlış. Grup_Düzelt_Formu adlı formdaki şu alanların değerini buraya yaz demişsiniz ama rapor çalışırken belirttiğiniz form açık olmuyor ve dolayısıyla bir şey getiremiyor.
Kayıt kaynağını düzelttiğinizde, YAPI_BIRIM_MALIYETI tablosundaki ilgili alanları direkt kullanabilirsiniz.
---
"Grup_Düzelt_Formu" adlı formda, hata veriyordu çünkü kayıt kaynağına eklediğiniz alanlar aslında Grup tablosunda yok. Olmadığı içinde, grup tablosunda bir değişiklik yapıldığında, bu alanların düzelmesi diye bir şey de yok. Dolayısıyla, bu bilgileri yine raporda olduğu gibi YAPI_SINIFI adlı alan üzerinden YAPI_BIRIM_MALIYETI tablosunu kullanan açılır kutuyu kullanarak alabilirsiniz. Grubun yapı sınıfı alanını değiştirdiğinizde, bağlı alan olduğu için o verilerde otomatik olarak düzeltilip görüntülenecektir.
Yine aynı şekilde Kaydet butonunda kullandığınız aşağıdaki kodlar,
Kod:
Dim KayitNo, InsaatYeri, YapiSinifi, M2Maliyet, HizmetSinifi
KayitNo = DCount("*", "GRUP", "GRUP_ADI='" & Me.frm_TANIMI & "'")
InsaatYeri = DCount("*", "GRUP", "INSAAT_YERI='" & Me.[Metin372] & "'")
YapiSinifi = DCount("*", "GRUP", "YAPI_SINIFI='" & Me.[Kutu375] & "'")
M2Maliyet = DCount("*", "GRUP", "YAPI_M2_MALIYETI=" & Me.[Metin377])
HizmetSinifi = DCount("*", "GRUP", "PROJE_HIZMET_SINIFI='" & Me.[Metin373] & "'")
hiç bir işe yaramıyor. Bir şeyleri saydırmışsınız ama niye ve neyi saydırdınız ve ne kodda ne için kullanacaksınız anlamadım ve kaldırdım.
Bağlantılar üzerinde uğraşırken biraz kafanız karışmış sanki.
Forumdaki örnekleri inceleyip, biraz daha denemeler yapmalı ve daha çok çalışmalısınız.
Bağlantılara hakim olduğunuzda işiniz çok kolaylaşacaktır.
Proje_Seruz.rar
(Dosya Boyutu: 66,66 KB | İndirme Sayısı: 11)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
#1
