+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Dcount Kavramı (/konu-dcount-kavrami.html)
Sayfalar:
1
2
Cvp: Dcount Kavramı - berduş - 05/04/2019
sorun raporun yapısından kaynaklanıyor galiba)
raporun gruplaması farklı ayarlanmış
![[Resim: do.php?imgf=10a23cce24c81.jpg]](https://accesstr.net/resim/do.php?imgf=10a23cce24c81.jpg)
ayarlarını resimdeki gibi değiştirip dener misiniz
Cvp: Dcount Kavramı - ferda23 - 05/04/2019
(05/04/2019, 23:16)haliliyas yazdı: sorun raporun yapısından kaynaklanıyor galiba)Sıralama Konusunda Çözümümüzü Bulduk ALLAH RAZI OLSUN Fakat Son Kalan işim SıraNo
raporun gruplaması farklı ayarlanmış
ayarlarını resimdeki gibi değiştirip dener misiniz
Cvp: Dcount Kavramı - berduş - 05/04/2019
sırano da tarihe göre mi olacak?
Cvp: Dcount Kavramı - ferda23 - 05/04/2019
(05/04/2019, 23:28)haliliyas yazdı: sırano da tarihe göre mi olacak?
Evet
Cvp: Dcount Kavramı - berduş - 06/04/2019
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 FunctionSELECT 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;Cvp: Dcount Kavramı - ferda23 - 06/04/2019
(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
