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
yardımcı olacak biri yok mu??
- 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
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.
