önce bir modül eklenip aşağıdaki kodları yazın
Private lngRowNumber As Long
Public Function ResetRowNumber() As Boolean
lngRowNumber = 0
ResetRowNumber = True
End Function
Public Function RowNumber(UniqueKeyVariant As Variant) As Long
lngRowNumber = lngRowNumber + 1
RowNumber = lngRowNumber
End Function
oluşturulacak sorgunun temel mantığı aşağıdadır siz bunu değil daha aşağıdaki kısmı kullanacaksınızSELECT RowNumber(anahtaralan) As SiraNo
FROM tabloadı
WHERE ResetRowNumber()
ORDER BY AlanAdı;
sonra da sorgunuzun kodunu aşağıdaki kodla değiştirinSorgu kaynağı
SELECT [YAZDIR-2].IDNO, [YAZDIR-2].YIL, [YAZDIR-2].AYLAR, [YAZDIR-2].TARIH, [YAZDIR-2].HESAP, [YAZDIR-2].TUTAR, [YAZDIR-2].ACIKLAMA,RowNumber(IDNO) As RowNum
FROM [YAZDIR-2]
WHERE ((([YAZDIR-2].AYLAR) Like "*" & [Forms]![RAPOR-YAZDIR-GELİR]![M3]) and ResetRowNumber())
ORDER BY [YAZDIR-2].IDNO, [YAZDIR-2].TARIH;