Sub Ghesapla()
Dim rs As ADODB.Recordset
Dim sql As String
Dim ilk As Double, son As Double
Dim devir As Double, fgiren As Double, fcikan As Double, bakiye As Double
Dim i As Integer
Dim arr()
On Error Resume Next
Set rs = New ADODB.Recordset
sql = "SELECT id, AdıSoyadı, Kayıt_No, Islem_Tipi, Emanet, Tutarı, Giren, Cikan, Adet, Kayıt_Tarihi, Açıklama FROM tbl_veriler " & _
"WHERE Kayıt_No =" & [Forms]![FrmAna]![LstPer] & _
" ORDER BY id, Kayıt_Tarihi"
rs.Open sql, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
With rs
Dim rs3 As ADODB.Recordset
Set rs3 = New ADODB.Recordset
rs3.Open "Tbl_Yansıma", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
rs3.AddNew
fgiren = fgiren + .Fields("giren")
fcikan = fcikan + .Fields("cikan")
bakiye = fgiren - fcikan
rs3(0) = .Fields("id")
rs3(1) = .Fields("AdıSoyadı")
rs3(2) = .Fields("Kayıt_No")
rs3(3) = .Fields("Islem_Tipi")
rs3(4) = .Fields("Emanet")
rs3(5) = .Fields("Tutarı")
rs3(6) = IIf(IsNull(.Fields("giren")), "", .Fields("giren"))
rs3(7) = IIf(IsNull(.Fields("cikan")), "", .Fields("cikan"))
rs3(8) = bakiye
rs3(9) = .Fields("Adet")
rs3(10) = .Fields("Kayıt_Tarihi")
rs3(11) = .Fields("Açıklama")
rs3.Update
.MoveNext
Loop
End With
rs.Close
rs3.Close
Set rs = Nothing
Set rs3 = Nothing
End Sub
