Yukarıda yazmış olduğunuz kod ile ilgili olarak; (Bu nedenle yeni konu açmadım. Yine de gerekiyorsa yeni konu açarım)
tblFaturayillar tablosuna sonradan "Yillikbedel" alanı ekledim. Aylık fatura işlendiğinde fatura tutarının "txtFaturatutari" , Faturayıillar tablosundaki Yillikbedel alanına eklenmesini istedim.
Bunun için 3. sıradaki kod satırını değiştirerek Toplamtutar değişkeni ekledim. Şu şekilde:
Dim Varmi, YilDegeri, Toplamtutar As Integer
25. Satırdaki if Varmi=0 then komutundan sonraki komutu şu şekil değiştirdim.
DoCmd.RunSQL "INSERT INTO tblFaturayillar (FirmaID, Yil,Yillikbedel) VALUES (" & rsSQL1.Fields("FirmaID") & ", '" & Me.akYil & "', '" & Me.txtFaturatutari & "')"
36. Satırdaki if Yildegeri>0 then satırından sonraki satırda Toplamtutar değerini tanımladım:
Yilliktoplam = Application.DLookup("Yillikbedel", "tblFaturayillar", "[FirmaID] = " & rsSQL1.Fields("FirmaID") & " And [Yil] = '" & Me.akYil & "'")
Yıllıktoplam ile form üzerindeki txtFaturatutarını nasıl toplatacağım?
Şu şekil yaptım
Application.DLookup("Yillikbedel", "tblFaturayillar", "[FirmaID] = " & rsSQL1.Fields("FirmaID") & " And [Yil] = '" & Me.akYil & "') = Yilliktoplam + Me.txtFaturatutari
Bütün noktalama işaretlerini denedim. Ama Syntax error hatası veriyor.
Yardımcı olursanız memnun olurum. Kolay gelsin.
Alt Tablolarda İşlemler
Bu Konudaki Yorumlar |
Alt Tablolarda İşlemler - Yazar: fenerli6774 - 19/11/2020, 13:22
RE: Alt Tablolarda İşlemler - Yazar: ozanakkaya - 19/11/2020, 18:55
RE: Alt Tablolarda İşlemler - Yazar: fenerli6774 - 22/11/2020, 16:28
RE: Alt Tablolarda İşlemler - Yazar: fenerli6774 - 29/11/2020, 23:56
Re: Alt Tablolarda İşlemler - Yazar: ozanakkaya - 30/11/2020, 00:08
RE: Alt Tablolarda İşlemler - Yazar: fenerli6774 - 30/11/2020, 00:39
|
Konuyu Okuyanlar: 1 Ziyaretçi