Açılan kutunun güncelleme sonrasındaki kodları şu şekilde değiştirin:
Kod:
Dim memo As String
Dim Bas As Long, Bit As Long
Bas = DateSerial([Secilen_Ay].[Column](1), [Secilen_Ay].[Column](2), 4)
If [Secilen_Ay].[Column](2) = 12 Then
Bit = DateSerial([Secilen_Ay].[Column](1), 1, 3)
Else
Bit = DateSerial([Secilen_Ay].[Column](1), [Secilen_Ay].[Column](2) + 1, 3)
End If
Me.BasTarih = Bas
Me.BitTarih = Bit
Me.KayitSayisi = DCount("*", "Ana", "Tarih Between " & Bas & " And " & Bit)
[hedef Sorgu alt formu].Requery
Metin20 = KayitSayisi - Metin18
If Metin20 > 0 Then
memo = Metin20
Metin20 = "+" + [memo]
Else
End If
Diğer konuda ise yapacağınız şey, programın mantığını tamamen değiştirmekten geçer. Müşterileri ayrı işleri ayrı tablolarda tutmanız ve birbiriyle ilişkilendirmeniz gerekir, Form üzerinde müşteri tablosu, alt form olarak da oba bağlı çalışan ve süzülen alt form aracılığı ile işlemler tablosu yer almalı. Şahsen ben bunu yapmaya kalkarsam programı yeniden yazmam gerekir ki, benim zaten teknik servis programımı bu sitenin örneklerinde sevgili Ozan yayınlamıştı. Yani böylr bir çalışmam var..
Siz başlayın ben destek olurum.
Kolay gelsin)