Merhaba;
Alternatif olarak ADO ile yapabilirsiniz. Çok hızlı sonuç verdiğini göreceksiniz..
Alt formdaki "son" isimli alanın güncelleştirme sonrasına alttaki kodu yazınız. Toplam aldığınız metin kutusunun denetim kaynağı boş olmalı yani ilişkisiz..
Kod:
Private Sub son_AfterUpdate()
Dim rs As New ADODB.Recordset
Dim bb As String
Me.Requery
bb = "SELECT sum(hakedistutarı) as beab FROM tablo2 where son=-1;"
rs.Open bb, CurrentProject.Connection
Forms![Tablo1]![Metin7] = rs("beab")
rs.Close
Set rs = Nothing
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.