Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/12/2009 14:52
Konu Sahibi
ozanakkaya
Yorumlar
9
Okunma
4596
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 41
 11.272
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,01:30
sayıların sıralı olmasını istediğiniz metin Kutusunun denetim Kaynağına

Kod:
=RowNum([Form])

yazın ve aşağıdaki kodları vb'ya ekleyin

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With
Exit_RowNum:
    Exit Function
Err_RowNum:
    If Err.Number <> 3021& Then
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function
Function GetLineNumberForm(f As Form)
    Dim rs As Recordset
    Dim frmMain As Form
    Dim frmCur As Form
    Dim strName As String
    Dim IsItSubForm As Boolean
    Dim strFName As String
    On Error Resume Next
    strFName = f.Parent.Name
    IsItSubForm = (Err = 0)
    On Error GoTo Err_GetLineNumber
    If IsItSubForm Then
        Set frmMain = f.Parent.Form
        strName = f.Name
        Set frmCur = frmMain(strName).Form
        Set rs = frmCur.RecordsetClone
    Else
        Set rs = f.RecordsetClone
        Set frmCur = f
    End If
        rs.Bookmark = frmCur.Bookmark
        GetLineNumberForm = rs.AbsolutePosition + 1
Bye_GetLineNumber:
       Set rs = Nothing
       Set frmMain = Nothing
       Set frmCur = Nothing
       Exit Function
Err_GetLineNumber:
       Resume Bye_GetLineNumber
End Function
Function Serialize(qryname As String, keyname As String, keyvalue) As Long
    Dim dbs As Database
    Dim rs As Recordset
    Set dbs = CurrentDb
    On Error GoTo Err_Serialize
    Set rs = dbs.OpenRecordset(qryname, dbOpenDynaset, dbReadOnly)
       On Error GoTo Err_Serialize
         Select Case rs.Fields(keyname).Type

            Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
            DB_DOUBLE, DB_BYTE
               rs.FindFirst "[" & keyname & "] = " & keyvalue

            Case DB_DATE
               rs.FindFirst "[" & keyname & "] = #" & keyvalue & "#"
            Case DB_TEXT
               rs.FindFirst "[" & keyname & "] = '" & keyvalue & "'"
            Case Else
               MsgBox "ERROR: Invalid key field data type!"
         End Select
        Serialize = Nz(rs.AbsolutePosition, 0) + 1
Err_Serialize:
        rs.Close
        dbs.Close
        Set rs = Nothing
        Set dbs = Nothing

End Function


Ek Dosyalar
.rar   SİRANO.rar(Dosya Boyutu: 15,71 KB / İndirme Sayısı: 262)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

accessman

Aktif Üye
Aktif Üye
 Belirtilmemiş
 2.367
 561
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
teşekkürler admin


@benbendedeilem

Kullanici Avatari

arzuu

desire
Aktivasyon Bekleyen
 29
 341
 38
 17/02/2009
 -
 
 Ofis XP
 24/04/2010,10:04
teşekkürler sledgeab.



Kullanici Avatari

benremix

Onursal Üye
Onursal Üye
RA.... SO....
 51
 4.441
 127
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 19/09/2018,20:51
Katkı ve paylaşım için teşekkürler. saygılar..


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi



Kullanici Avatari

C*e*l*o*y*c*e

Uzman
Uzman
ME.... B.....
 46
 3.130
 67
 29/10/2008
982
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,00:02
Teşekkürler kardeşim



Kullanici Avatari

Nurullah_Serdar

FaTSaLı
Aktif Üye
 36
 568
 21
 22/11/2008
189
 Giresun
 
 Ofis 2007
 01/07/2013,13:21
abi ellerine sağlık


İyiki Varsın Access Img-grin


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Sql --> Vba Convertör Access Formda. A.Kadir. 2 439 07/04/2018, 11:22
Son Yorum: akem
  [Özel Üyelerimiz İçin] Access 2007 ve 2010 da formda sağ tıklama alpeki99 18 6.299 03/09/2017, 13:52
Son Yorum: mengene2
  Formda arama yapmak ayhan2122 16 13.015 02/05/2016, 13:55
Son Yorum: aysunusta3
  Sürekli formda ayrı resim okileturc 12 5.165 16/01/2016, 23:21
Son Yorum: ferit39
  formda arama yada rehber olarak kullanabileceğiniz bir örnek kayaaltin 0 1.128 08/06/2015, 14:23
Son Yorum: kayaaltin

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