AccessTr.neT

sorun raporun yapısından kaynaklanıyor galiba)
raporun gruplaması farklı ayarlanmış

ayarlarını resimdeki gibi değiştirip dener misiniz

(05/04/2019, 23:16)haliliyas yazdı: [ -> ]sorun raporun yapısından kaynaklanıyor galiba)
raporun gruplaması farklı ayarlanmış

ayarlarını resimdeki gibi değiştirip dener misiniz

Sıralama Konusunda Çözümümüzü Bulduk ALLAH RAZI OLSUN Fakat Son Kalan işim SıraNo

sırano da tarihe göre mi olacak?

(05/04/2019, 23:28)haliliyas yazdı: [ -> ]sırano da tarihe göre mi olacak?

Evet

yabancı bir siteden buldum dilerim işinize yarar
ö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ız

SELECT RowNumber(anahtaralan) As SiraNo

FROM tabloadı 

WHERE ResetRowNumber()

ORDER BY AlanAdı;

sonra da sorgunuzun kodunu aşağıdaki kodla değiştirin
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;

(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

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ız

SELECT RowNumber(anahtaralan) As SiraNo

FROM tabloadı 

WHERE ResetRowNumber()

ORDER BY AlanAdı;

sonra da sorgunuzun kodunu aşağıdaki kodla değiştirin
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