ترقيم تلقائي

[زائر]

السلام عليكم

عندي قاعدة بيانات فيها أسماء طلاب وفي حقل رقم الجلوس بالجدول فارغ أمام كل اسم.. 

عايز طريقة اكتب أرقام الجلوس، اول رقم مثلاً 5000 الاكسس يكمل الباقي علي نفس التسلسل 5001 ثم 5002 وهكذا.. 

وشكراً 

[محمد احمد لطفى]

تفضل شاهد هذا الموضوع 

 

اقتباس

 

وهناط طريقة أخرى 

 

اقتباس

 

تم تعديل مايو 5, 2023 بواسطه محمد احمد لطفى

[زائر]

قاعدة البيانات من خلال الجدول.. يعني بالجدول جميع البيانات جاهزة ماعده حقل الرقم . محتاج إضافة لها بالجدول.. وليس من خلال النموذج 

[kanory]

2 دقائق مضت, albadr said:

قاعدة البيانات من خلال الجدول.. يعني بالجدول جميع البيانات جاهزة ماعده حقل الرقم . محتاج إضافة لها بالجدول.. وليس من خلال النموذج 

استخدم هذه الشيفرة .............

Sub Macro1()
    Dim startNumber As Long
    Dim endNumber As Long
    Dim prefix As String
    Dim rs As DAO.Recordset
    
    prefix = "someprefix" 'change this to your desired prefix
    startNumber = Me.txtStartNumber.Value 'get the start number from the text box on the form
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM YourOriginalTable ORDER BY SomeColumn") 'open a recordset of your original table
    
    If Not rs.EOF Then 'check if the recordset is not empty
        rs.MoveFirst 'move to the first record
        Do Until rs.EOF 'loop through the records
            rs.Edit 'edit the current record
            rs!SeqNumber = prefix & Format(startNumber, "0000") 'assign the sequential number with prefix and format to the SeqNumber field
            rs.Update 'update the current record
            startNumber = startNumber + 1 'increment the start number by 1
            rs.MoveNext 'move to the next record
        Loop
    End If
    
    rs.Close 'close the recordset
    Set rs = Nothing 'clear the recordset variable
    
End Sub

 

[زائر]

ممكن شرح تتكتب فين.. ويتم تغير فيها ايه؟ وشكراً 

[kanory]

8 دقائق مضت, albadr said:

ممكن شرح تتكتب فين.. ويتم تغير فيها ايه؟ وشكراً 

تلصق الكود في النموذج وتعدل البيانات المشروحة في الكود السابق حسب بيانات جدولك ثم تحت حدث الزر تضع هذا النداء Call macro1

او ارفق مثال مبسط للتعديل عليه

[زائر]

منذ ساعه, kanory said:

ارفق مثال مبسط للتعديل عليه

 

Database15 (1).accdb

[kanory]

تفضل <><><><><><<><

 

Database15 (1).accdb