merhaba; tablo adları, alan adları, form adlarında Türkçe karakter kullanmayınız, ayrıca boşlukta bırakmayınız. sitemizde bulunan yapılmaması gereken ölümcül hataları okuyunuz. dediğiniz gibi yaptım. tabloda birim maliyet, hesaplanmış yapmışsınız düzeltip. vba kod bölümüne yazdım.
Me.BirimMaliyet = Me.SabitGiderler / (Me.Tonaj * 40) satırındaki
Me.BirimMaliyet = Me.SabitGiderler / Me.Tonaj * 40
(me.tonaj*40) içinde olması farklı tutar çıkartır.
onu dikkate alıp düzeltmenizi yapınız.
geri bildirimde bulununuz.
Kod:
Dim SoRGu As String
Dim rS As New ADODB.Recordset
SoRGu = "SELECT Sum(SabitGiderler.Tutar) AS ToplaTutar FROM SabitGiderler;"
rS.Open SoRGu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Me.SabitGiderler = rS!toplatutar
Me.BirimMaliyet = Me.SabitGiderler / (Me.Tonaj * 40)
rS.Close: Set rS = Nothing
Örnek_ozguryasin.rar
(Dosya Boyutu: 31,05 KB | İndirme Sayısı: 5)
POWER 'un Çekirgesi :=)
ozguryasin,
23-09-2009 tarihinden beri
AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. 
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
