+- 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ığı: Raporda Sıralama (/konu-raporda-siralama.html)
Raporda Sıralama - te-kin - 30/05/2018
iyi günler. yaptığım çalışmada raporda bir sıralama yaptırmam gerekiyor. Kural: aynı isme sahip kayıtlardan sadece tc si olanlara birer sıra numarası verdirerek sıralama yaptırmak. yardımcı olursanız seviirim. çalışma ektedir.. şimdiden teşekkürler
Cvp: Raporda Sıralama - te-kin - 30/05/2018
yardımcı olacak biri yok mu??
Cvp: Raporda Sıralama - ozanakkaya - 30/05/2018
- T_EKDERS isimli tabloya veri türü sayı olan rsira adında yeni alan ekle,
- Raporun kayıt kaynağındaki sorguya en sona tablodaki rsira alanını ekle,
- Rapordaki metin46'nın denetim kaynağını rsira olarak değiştir,
- Metin46'nın Geçerli Toplam özelliğini hayır olarak değiştir.
- Raporun açıldığında olayına aşağıdaki kodu ekle,
Dim Sql As String
Dim rsg As Recordset
Dim GSayi As Integer
SQL = "SELECT personelno, tcno, ekdersno, sirano, ucretsira, rsira FROM T_EKDERS ORDER BY personelno, sirano, ucretsira;"
Set rsg = CurrentDb.OpenRecordset(SQL)
GSayi = 1
rsg.MoveFirst
Do Until rsg.EOF = True
rsg.Edit
If Len(rsg!tcno) > 0 Then
rsg!rsira = GSayi
GSayi = GSayi + 1
Else
rsg!rsira = Null
End If
rsg.Update
rsg.MoveNext
Loop
Cvp: Raporda Sıralama - te-kin - 30/05/2018
sn.ozanakkaya tek kelimeyle muhteşemsin. iyi ki varsın " ACCESSTR". sadece kod açıldığında değilde, yüklendiğinde olayına eklenince çalıştı..
sorun çözülmüştür.
