ترقيم تلقائى بشرط

[ميزو القوصى]

 ترقيم تلقائى بشرط

ميزو القوصى قام بنشرموضوع في قسم الأكسيس Access

السلام عليكم عايز كود v.b Access وذلك لعمل ترقيم تلقائى بشرط على حسب اسم الصنف بمعنى مثلا ماوس مسلسل برقم 1 ثم 2 الخ.... وكذلك لوحة مفاتيح برقم 1000 ثم 1001وهكذا والحدث يكون لجدول موجود وليس ادخال سجلات جديدة

•  منذ 34 دقائق
•  
• • الترقيم التلقائى

prodcut.accdb

[ابو البشر]

استخدم هذا .......

    Dim x As Integer, mov_st As String
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("SELECT prodcut.id, prodcut.prodcut FROM prodcut ORDER BY prodcut.prodcut;")
    rst.MoveFirst
    x = 1
    mov_st = rst!prodcut
    Do While Not rst.EOF
        If mov_st <> rst!prodcut Then
            x = 1
            mov_st = rst!prodcut
        End If
       rst.Edit
       rst!id = x
       x = x + 1
       rst.Update
       rst.MoveNext
    Loop
    MsgBox "تم توزيع الارقام ", vbInformation + vbMsgBoxRight + vbOKOnly, "برنامج"
    rst.Close
    Me.Refresh

 

[ميزو القوصى]

شكرا جزيلا على الرد

هل هذا الكود يكتب الحدث  ( بعد التحديث)

 

[ابو البشر]

17 دقائق مضت, ميزو القوصى said:

شكرا جزيلا على الرد

هل هذا الكود يكتب الحدث  ( بعد التحديث)

 

ممكن نعم او تحت حدث الضغط على زر مثلا

حسب احتياجك

[ميزو القوصى]

شكرا جزبلا 

 

[ميزو القوصى]

استسمحك اخى وقد اثفلت علىك  اريد ان اضيف كود كل صنق يزيد الترقيم بزيادة عن الصنف الذى قبله بمعنى صنف ( ترس) مثلا يبدا برقم1 ثم 2 والصنف الذى يبيه يبدا 1000 ثم 1001 وهكذا

وارفق الملف ولك جزبل الشكر والعرفات

اصناف.accdb

[ميزو القوصى]

ستسمحك اخى وقد اثفلت علىك  اريد ان اضيف كود كل صنق يزيد الترقيم بزيادة عن الصنف الذى قبله بمعنى صنف ( ترس) مثلا يبدا برقم1 ثم 2 والصنف الذى يبيه يبدا 1000 ثم 1001 وهكذا

وارفق الملف ولك جزبل الشكر والعرفات

اصناف.accdb

[ابو البشر]

منذ ساعه, ميزو القوصى said:

ستسمحك اخى وقد اثفلت علىك  اريد ان اضيف كود كل صنق يزيد الترقيم بزيادة عن الصنف الذى قبله بمعنى صنف ( ترس) مثلا يبدا برقم1 ثم 2 والصنف الذى يبيه يبدا 1000 ثم 1001 وهكذا

اين النموذج الذي يتم من خلالة ادخال الاصناف

[ميزو القوصى]

تفضل يا استاذى

اصناف.rar

تم تعديل يوليو 1, 2023 بواسطه ميزو القوصى

[ميزو القوصى]

السلام عليكم ورحمة الله

عذرا ياسيدى ارسلت الى حضرتكم النموذج المطلوب لعل يكون المانع خيرا 

 

تم تعديل يوليو 2, 2023 بواسطه ميزو القوصى