AccessTr.neT

Tam Versiyon: raporda Sıra no eklemek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
ARkadaşlar raporda görünen verilerime Sıra no ekleyerek 1den başlayıp sıralamak istiyorum.
Nasıl yapabilirim.
Raporu tasarımda açın ve veri alanlarının başına bir metin kutusu ekleyin, denetim kaynağına =+1 yazın. Bu metin kutusunun veri sekmesine geçerli toplam bölümüne de hayır dışında durumunuza uygun bir değer seçin. Bu metin kutusunun her veri satırı için otomatik saydığını göreceksiniz.
Mehmet bey öncelikle teşekkürler cevabınız problemimi çözdü. bi sorumda bunu form üzerinde nasıl yapabiliriz acaba
Örnek ekleseydiniz iyiydi.
Sayın Mehmet hocam,
Teşekkür ederim. Benimde işime yaradı
(30/11/2012, 12:09)metehan16 yazdı: [ -> ]Mehmet bey öncelikle teşekkürler cevabınız problemimi çözdü. bi sorumda bunu form üzerinde nasıl yapabiliriz acaba

Bununla ilgili olarak arşivimde bir bilgi buldum. ALINTI olduğunu belirtmek isterim. Aşağıda veriyorum:

Alıntı:Form a sıra numarası eklemek için form a bir fonksiyon yazmak gerek.
Aşağıdaki kodu form unuzun kod bölümüne en başa ekleyin. Bunun için form a tıklayıp herhangi bir event ine girin ve cod builder i seçin.
Çıkan hazır kodu /sub / end sub) silin ve aşağıdaki kodu Option Explicit in altına kopyalayın.

Function GetLineNumber()
' "GetLineNumber" Fonksiyonu Microsoft Knowledge Base (Q120913)
' de verilmiştir, bu kodun tek farkı performans için;
' F, KeyName, KeyValue
' değişkenleri eklenmesi.
' Düzgün çalışması için KeyName ve KeyValue yu tablonuzun
' Key - Index alan adı ile değiştirin
' Form unuza bir text box ekleyin ve recordsource una;
' = GetLineNumber()
' Yazın

Dim RS As Recordset
Dim CountLines
Dim F As Form
Dim KeyName As String
Dim KeyValue
Set F = Form

' Bu iki Değişkeni Tablonuzun Key Alanının adı ile değiştirin.
KeyName = "KeyAlanAdı"
KeyValue = [KeyAlanAdı]

On Error GoTo Err_GetLineNumber

Set RS = F.RecordsetClone
' Find the current record.
Select Case RS.Fields(KeyName).Type
' Find using numeric data type key value.
Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
DB_DOUBLE, DB_BYTE
RS.FindFirst "[" & KeyName & "] = " & KeyValue
' Find using date data type key value.
Case DB_DATE
RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
' Find using text data type key value.
Case DB_TEXT
RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
Case Else
MsgBox "ERROR: Invalid key field data type!"
Exit Function
End Select
' Loop backward, counting the lines.
Do Until RS.BOF
CountLines = CountLines + 1
RS.MovePrevious
Loop
Bye_GetLineNumber: ' Return the result.
GetLineNumber = CountLines
Exit Function
Err_GetLineNumber:
CountLines = 0
Resume Bye_GetLineNumber
End Function

Form unuzda satır no su için ekleyeceğiniz textbox un RecordSource una;
= GetLineNumber()

yazın.