Toplam Gelmiyor.

dsezgin · 21-11-2023, 18:23

Form üzerindeki formül uygulanması, metin kutularının birbirini etkilediğinden Tur hatası alınmakta.
Örneğiniz de form veri girişi metin kutularında cursor tavrı yeni satir olarak kalmış, default yapmalısınız.
Hesaplama seklini de VBA da düzenledim, uygulama dosyasını inceleyip, projenize uyarlayabilirsiniz.

.rar

ÜrünMaliyetModül.rar (Boyut: 37,34 KB / İndirilme: 9)

ankaram · 22-11-2023, 09:36

Kardeşim hakkını helal et yordum seni.Excelde yapmak istediğimi yaptım
Exceldeki verileri girip aynısını accessdede almak istiyorum.En son senin düzenlediğinde giriş yaptım.Ama sarı renkli toplamı almak istiyorum.Sonuç çıkmıyor.Sana zahmet son defa baksan olmuyorsa .Hayırlısı.Eline sağlık

dsezgin · 22-11-2023, 13:13

(22-11-2023, 09:36)ankaram demiş ki: Excelde yapmak istediğimi yaptım
Exceldeki verileri girip aynısını access de almak istiyorum.

Excel formüllerini uyarlarsınız.

Visual Basic
Sub Hesaplama()
Dim Sayac As Long
Dim MalMlz, MalIsc, Diger As Double
For Sayac = 0 To 10
If Sayac <= 5 Then MalMlz = MalMlz + (Nz(Me.Controls("[Ekle" & Sayac & "Ek]"), 0) * Nz(Me.MalzemeFiyatı, 0)) Else Diger = Diger + Nz(Me.Controls("[Ekle" & Sayac & "Ek]"), 0)
If Sayac <= 4 Then
    If Me.Controls("[GözSayısı" & Sayac & "]") > 0 Then MalIsc = MalIsc + Nz(Me.İşçilik, 0) / Nz(Me.Controls("[GözSayısı" & Sayac & "]"), 0)
End If
Next Sayac
Me.Maliyet = MalMlz + MalIsc + Diger
End Sub

ankaram · **Kayıt Tarihi:** 21.08.2010

(22-11-2023, 13:13)dsezgin demiş ki:

(22-11-2023, 09:36)ankaram demiş ki: Excelde yapmak istediğimi yaptım
Exceldeki verileri girip aynısını access de almak istiyorum.

Excel formüllerini uyarlarsınız.

Visual Basic
Sub Hesaplama()
Dim Sayac As Long
Dim MalMlz, MalIsc, Diger As Double
For Sayac = 0 To 10
If Sayac <= 5 Then MalMlz = MalMlz + (Nz(Me.Controls("[Ekle" & Sayac & "Ek]"), 0) * Nz(Me.MalzemeFiyatı, 0)) Else Diger = Diger + Nz(Me.Controls("[Ekle" & Sayac & "Ek]"), 0)
If Sayac <= 4 Then
    If Me.Controls("[GözSayısı" & Sayac & "]") > 0 Then MalIsc = MalIsc + Nz(Me.İşçilik, 0) / Nz(Me.Controls("[GözSayısı" & Sayac & "]"), 0)
End If
Next Sayac
Me.Maliyet = MalMlz + MalIsc + Diger
End Sub

Teşekkürler kardeşim.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Dsum Ile Toplam Alırken Tarih Aralığınıda Süzme Yaptırma Sorunu	kesoka	2	145	07-04-2024, 16:13 Son Mesaj: kesoka
	[FORM] Veri Girişine Bağlı Olarak Veri çeşidi Toplam Sayısının Artması	M_Kemal_Askeri	2	102	07-03-2024, 20:03 Son Mesaj: M_Kemal_Askeri
	Kümülatif Toplam Ve Orantı	snapper	8	242	26-09-2023, 14:00 Son Mesaj: halily
	Rapordaki Hatalı Toplam	gokaytasci	5	226	09-02-2023, 15:30 Son Mesaj: dsezgin
	Aramada ıstenen Gelmiyor	BeyTor	10	334	10-01-2023, 22:59 Son Mesaj: onur_can
	[SORGU] Puantaj Sorguda Isim Gelmiyor	VARLIK66	6	260	09-01-2023, 10:19 Son Mesaj: onur_can
	Aramada Istenen Gelmiyor	ankaram	2	160	29-12-2022, 13:56 Son Mesaj: ankaram
	Formdaki Toplam Raporda Görünmüyor.	ankaram	7	326	01-11-2022, 10:21 Son Mesaj: ankaram

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL