Yeni bir modul açalım ve bu kodları yazalım

[color=#FF0000]Public Function hatagec()
On Error Resume Next
End Function
Public Function BuGun()
BuGun = Date
End Function
Public Function Ileri()
DoCmd.GoToRecord , , acNext
End Function
Public Function Geri()
DoCmd.GoToRecord , , acPrevious
End Function
Public Function EnBas()
DoCmd.GoToRecord , , acFirst
End Function
Public Function EnSon()
DoCmd.GoToRecord , , acLast
End Function
Public Function Yeni()
DoCmd.GoToRecord , , a

[/color]Arkadaşlar,
ekli dosyada da göründüğü gibi sürekli formda verileri sorgulatmaktayım ve ürünleri toplamını formun altındaki metin kutularına ( =Topla(Nz(ToplaURUN1))[color=#FF0000] )aldırmaktayım. ile toplatmaktayım.

Ancak ürünlerin toplamını çok yavaş yapmakta (şuan burada çok hızlı gibi görünüyor ancak ben kendi çalışmama uyguladığımda 15-20 saniye sonra (bazen daha fazla bile oluyor) ) verileri toplayarak görünüyor.

Acaba bu toplamı hızladırmak için ne yapmalıyım?
V