Takıldığım yerlerde dsezgin hocamızın desteğiyle ve taruz hocamızın ders notlarıyla programımda baya ilerleme kaydettim.

Şimdi birkaç yerde takıldım. Yardım ederseniz çok sevinirim.

1- iki tarih arasındaki sorgulamada dsum işlevi çalışmıyor. Diğer filtre sorgulamalarımda dsum işlevi çalışıyor.

2- Takvim açılıp tarih seçtikten sonra liste kutusu hemen güncellemiyor. Bir kere enter e bastıktan sonra güncelliyor

3-Liste kutusunun başlıklarını değiştirebilirmiyim (sorgunun alan adını değiştirmeden)

Sub Hesaplama()
Dim Sayac As Long, Tk(3 To 11) As Double
For Sayac = 1 To Me.Liste107.ListCount - 1
Tk(3) = Tk(3) + Nz(Me.Liste107.Column(3, Sayac), 0)
Tk(4) = Tk(4) + Nz(Me.Liste107.Column(4, Sayac), 0)
Tk(5) = Tk(5) + Nz(Me.Liste107.Column(5, Sayac), 0)
Tk(10) = Tk(10) + Nz(Me.Liste107.Column(10, Sayac), 0)
Tk(11) = Tk(11) + Nz(Me.Liste107.Column(11, Sayac), 0)
Next Sayac
Me.UrMik = CLng(Tk(3))
Me.UrAgr = CDbl(Tk(4))
Me.UrSure = Int(Tk(5) / 3600) & "s " & Int((Tk(5) Mod 3600) / 60) & "dk " & (Tk(5) Mod 3600) Mod 60 & "sn"
Me.YmMik = CLng(Tk(10))
Me.YmAgr = CDbl(Tk(11))
End Sub

Liste107 yeniden sor satir sonrasina call Hesaplama ile sonuc alinabilir.

  BB-ERP1-9.rar (Boyut: 146,34 KB / İndirilme: 90)


1- iki tarih arasındaki sorgulamada dsum işlevi çalışmıyor. Diğer filtre sorgulamalarımda dsum işlevi çalışıyor.
Yukaridaki yontemi deneyiniz.

2- Takvim açılıp tarih seçtikten sonra liste kutusu hemen güncellemiyor. Bir kere enter e bastıktan sonra güncelliyor
Tarih kutuları bicim bolumu kısa tarih olarak ayarlayın ve otomatik sekme bolumunu evet yapın.

3-Liste kutusunun başlıklarını değiştirebilirmiyim (sorgunun alan adını değiştirmeden)
Satir kaynagindaki SQL'inde alan isimleri onune tanimlama yapip, iki nokta ile alan isimlerini yazabilirsiniz.