Skip to main content

AccessTr.neT M.


raporda Sıra no eklemek

raporda Sıra no eklemek

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

"Lütfen olumlu veya olumsuz geri dönüş yapınız... " writed by POWER


"sen başla en başta gerektiği yerde elimizden geleni https://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin


Cevapla
Çözüldü #2
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.

İnadına, ille de Accesstr.net...
Cevapla
...........
Çözüldü #3
Mehmet bey öncelikle teşekkürler cevabınız problemimi çözdü. bi sorumda bunu form üzerinde nasıl yapabiliriz acaba

"Lütfen olumlu veya olumsuz geri dönüş yapınız... " writed by POWER


"sen başla en başta gerektiği yerde elimizden geleni https://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin


Cevapla
Çözüldü #4
Örnek ekleseydiniz iyiydi.

"Her tercih, bir vazgeçiştir"

Cevapla
...........
Çözüldü #5
Sayın Mehmet hocam,
Teşekkür ederim. Benimde işime yaradı

İnsanlara Teşekkür Etmeyen Allaha Şükretmez!!!!!!!
Cevapla
Çözüldü #6
(30/11/2012 12:09)metehan16 Adlı Kullanıcıdan Alıntı: 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.

İnadına, ille de Accesstr.net...
Cevapla
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da