(06/04/2019, 00:12)haliliyas yazdı: yabancı bir siteden buldum dilerim işinize yarar
önce bir modül eklenip aşağıdaki kodları yazın
oluşturulacak sorgunun temel mantığı aşağıdadır siz bunu değil daha aşağıdaki kısmı kullanacaksınız
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
sonra da sorgunuzun kodunu aşağıdaki kodla değiştirinSELECT RowNumber(anahtaralan) As SiraNo
FROM tabloadı
WHERE ResetRowNumber()
ORDER BY AlanAdı;
Sorgu 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;
MÜKEMMELSİN HOCAM EMEKLERİNİZE SAĞLIK