- 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