Alt Formda Otomatik Sıra numarası verme
Tarih
28/01/2009 16:21
Konu Sahibi
kusvam
Yorumlar
4
Okunma
3033
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



kusvam
Üye
Kullanici Avatari
Üye
4
2
05/11/2008
0
Kocaeli
Ofis 2013 64 Bit
11/11/2016,13:12
Çözüldü 
Kendi müşterilerimi takip edeceği veritabani olusturmaya calisiyorum. Müşterilerin temel bilgilerini ana form olarak; ürün hareketlerini ise altform olarak düzenledim (bkz ekteki dosya). Müşterilere ürün gönderdiğimde alt forma işleyeceğim fakat müşterilere ürün gönderdiğimde “SıraNo” bölümü ardaşık şekilde artmasını istiyorum “SıraNo” bölümünü “otomatiksayı” yaptığımda sürekli artıyor ben ise her müşterimde artmasını istiyorum. Bu konuda yardımcı olacak varsa şimdiden teşekkür ederim..


Ek Dosyalar
.zip   SıraDene.zip (Dosya Boyutu: 30,22 KB / İndirme Sayısı: 65)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,20:09
Çözüldü 
Altformda sayıların sıralı olmasını istediğin metin Kutusunun denetim Kaynağına

Kod:
=RowNum([Form])

yaz ve aşağıdaki kodları altforma ekle

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

Cevapla


kusvam
Üye
Kullanici Avatari
Üye
4
2
05/11/2008
0
Kocaeli
Ofis 2013 64 Bit
11/11/2016,13:12
Çözüldü 
sledgeab
uygulamaya formda uyguladım çok zorda olsa başardım Teşekkür ediyorum.. eline sağlık
yalnız tabloya veriler işlenmiyor.. bu sorunu nasıl aşarım.. birde uyulamaya örnek üzerinde yaparsak çok sevinirim..
Cevapla


afil
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
19
1
08/11/2008
Ankara
Ofis XP
15/11/2012,00:29
Çözüldü 
evet bu kodlar çok işime yaradı ama sıra numaraları tablolara işlenmediği için rapor alırken bu sıra numaraları gelmiyor. bu konuda da yardımcı olursnaız sevinirim.
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,20:09
Çözüldü 
sn afil,
raporda sıra numarasının bulunduğu metin kutusunun denetim kaynağına

Kod:
=1


Geçerli Toplam'a da

Kod:
Tümü Üzerinde

yaz.

resim

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  alt veri sayfasındaki verileri formda görmak murat dikme 4 60 Dün, 18:14 murat dikme
Çözüldü satırdaki isimlerde otomatik klasör açma manyetix 18 3.712 Dün, 12:31 donepezil
  Tabloda Telefon numarası yoksa eklesin. 53rize 4 94 29/11/2016, 11:30 53rize
  Formda İsim yazdığımda tablodan veri gelmesi 53rize 6 159 27/11/2016, 13:36 53rize
  Access Formda Tümünü Seç Buton Olay Yordamı Ekleme ? mehami 7 316 25/11/2016, 18:36 mehami


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya