AccessTr.neT
raporda Sıra no eklemek - Baskı Önizleme

+- 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ıra no eklemek (/konu-raporda-sira-no-eklemek.html)



raporda Sıra no eklemek - metehan16 - 30/11/2012

ARkadaşlar raporda görünen verilerime Sıra no ekleyerek 1den başlayıp sıralamak istiyorum.
Nasıl yapabilirim.


Cvp: raporda Sıra no eklemek - mehmetdemiral - 30/11/2012

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.


Cvp: raporda Sıra no eklemek - metehan16 - 30/11/2012

Mehmet bey öncelikle teşekkürler cevabınız problemimi çözdü. bi sorumda bunu form üzerinde nasıl yapabiliriz acaba


Cvp: raporda Sıra no eklemek - yorum70 - 30/11/2012

Örnek ekleseydiniz iyiydi.


Cvp: raporda Sıra no eklemek - suleymanteber - 03/12/2012

Sayın Mehmet hocam,
Teşekkür ederim. Benimde işime yaradı


Cvp: raporda Sıra no eklemek - mehmetdemiral - 04/12/2012

(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.