Private Sub Form_Open(Cancel As Integer)
Komut0
End Sub
Sub Komut0()
Dim i As Integer
Dim rs As New ADODB.Recordset
rs.Open "tblTaksit", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Dim asd As Integer
If rs.EOF <> True Then
Do
Select Case rs("Tarih")
Case Is < Date
asd = asd + rs("TaksitTutar") * "0,0016" * (Date - rs("Tarih"))
End Select
rs.MoveNext
Loop Until rs.EOF
End If
Me.txtGecikenTaksit = asd
Set rs = Nothing
End Sub
bu senin şu andaki verilerini tablodaki tüm verilere göre toplamı alır ancak burda bir çok kişi olacağını varsayarsak bir sonraki aşamada bu kodu kişi kayıtlarına göre süzdürmelisin
Deneme.rar
(Dosya Boyutu: 18,67 KB | İndirme Sayısı: 16)
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla