(17/08/2022, 16:12)berduş yazdı: tablonuza otomatik sayı alanı eklense sıkıntı olur mu?
o da kayıt numarası gibiolur diye düşünüyorum
sonradan geçmiş tarihe kayıt girildiği için yine otomatik sayı büyük olacak
Public StoredRowNumber As Variant
Public OldlastField As Variant
Function RowNumber(TheField) As Integer
If OldlastField = TheField Then
'nada
Else
ResetRowNum
End If
StoredRowNumber = StoredRowNumber + 1
RowNumber = StoredRowNumber
OldlastField = TheField
End Function
Function GetRowNum(TheField) As Integer
GetRowNum = StoredRowNumber
End Function
Function ResetRowNum()
StoredRowNumber = 0
'OldFieldItem = Null
End Function
SELECT A.CARKOD, A.TARIH, A.TUTAR, (SELECT Sum(B.TUTAR)
FROM (SELECT CDbl(CLng([CARTH001]![TARIH]) & "," & [CARTH001]![Id]) AS Sira, CARTH001.CARKOD, CARTH001.TARIH, CARTH001.Id, CARTH001.ISLEMTIPI, CARTH001.BA, CARTH001.TUTAR, CARTH001.ACIKLAMA, CARTH001.ISLTARIH, CARTH001.KAYITNO, CARTH001.BELGENO
FROM CARTH001
ORDER BY CARTH001.CARKOD, CARTH001.TARIH) As B
WHERE (((B.CARKOD)=A.CARKOD) AND ((B.Sira)<=A.Sira) )
GROUP BY B.CARKOD ) AS Bakiye, A.ISLEMTIPI, A.BA, A.ACIKLAMA, A.ISLTARIH, A.KAYITNO, A.BELGENO
FROM (SELECT CDbl(CLng([CARTH001]![TARIH]) & "," & [CARTH001]![Id]) AS Sira, CARTH001.CARKOD, CARTH001.TARIH, CARTH001.Id, CARTH001.ISLEMTIPI, CARTH001.BA, CARTH001.TUTAR, CARTH001.ACIKLAMA, CARTH001.ISLTARIH, CARTH001.KAYITNO, CARTH001.BELGENO
FROM CARTH001
ORDER BY CARTH001.CARKOD, CARTH001.TARIH) AS A
ORDER BY A.CARKOD, A.Sira;
isterseniz sorguyu 2 parça halinde de oluşturabilirsinizSELECT A.*, (SELECT Sum(B.TUTAR)
FROM CARTH001 As B
WHERE (((B.CARKOD)=A.CARKOD) AND Int(B.[TARIH])+B.[ID]/2147483648<=Int(A.[TARIH])+A.[ID]/2147483648)
GROUP BY B.CARKOD ) AS Bakiye
FROM CARTH001 AS A
ORDER BY A.CARKOD, A.TARIH, A.ID;