Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
30/11/2012 10:15
Konu Sahibi
metehan16
Yorumlar
5
Okunma
1617
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
metehan16

metehan16

Aktif Üye
45925
 Belirtilmemiş
 24
 142
 08/02/2012
24
 Belirtilmemiş
 
 Ofis 2007
 13/05/2019,07:43
Çözüldü 
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



mehmetdemiral

mehmetdemiral

Uzman
17
Me.... De....
 54
 219
 4.943
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 17/07/2019,12:55
Çözüldü 
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...

...........
metehan16

metehan16

Aktif Üye
45925
 Belirtilmemiş
 24
 142
 08/02/2012
24
 Belirtilmemiş
 
 Ofis 2007
 13/05/2019,07:43
Çözüldü 
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



yorum70

yorum70

Aktif Üye*
25666
Ay.... Şa....
 48
 148
 1.184
 08/10/2010
71
 Ankara
 
 Ofis 2013 64 Bit
 22/10/2016,21:00
Çözüldü 
Örnek ekleseydiniz iyiydi.



"Her tercih, bir vazgeçiştir"


...........
suleymanteber

suleymanteber

Aktif Üye
35731
Sü.... TE....
 45
 35
 136
 14/05/2011
5
 İstanbul
 
 Ofis 2007
 19/03/2016,16:34
Çözüldü 
Sayın Mehmet hocam,
Teşekkür ederim. Benimde işime yaradı


İnsanlara Teşekkür Etmeyen Allaha Şükretmez!!!!!!!

mehmetdemiral

mehmetdemiral

Uzman
17
Me.... De....
 54
 219
 4.943
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 17/07/2019,12:55
Çözüldü 
(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...

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Sorgudaki Sonuçların Raporda Gösterilmesi derebeyi 6 201 04/07/2019, 09:11
Son Yorum: derebeyi
Çözüldü Raporda Boş Alan Sorunu Yunus Bozkurt 7 300 03/06/2019, 04:22
Son Yorum: halily
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 177 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü Raporda Kenar Boşluklarını Sıfırlama sertac76 6 346 04/04/2019, 14:01
Son Yorum: halily
Çözüldü Mail Gönderirken Gövdeye Yazı Aralarına Resim Eklemek Ve Satır Ara Boşlukları zetyu 6 453 22/03/2019, 23:52
Son Yorum: zetyu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.