ترقيم تلقائي

[قهرني الأوفيس]

السلام عليكم 

طلبي 

عند تسجيل كتاب جديد يكون رقم الصادر ( ترقيم تلقائي تسلسلي يتغير بتغير السنة )  

مثال : 2022/001   

2022/002

2022/003

2022/004

حتى بداية العام الجديد 2023    يكون 2023/001   2023/002   الخ

Database41.accdb

تم تعديل فبراير 8, 2022 بواسطه قهرني الأوفيس

[Barna]

2 دقائق مضت, قهرني الأوفيس said:

السلام عليكم 

طلبي 

عند تسجيل كتاب جديد يكون رقم الصادر ( ترقيم تلقائي تسلسلي يتغير بتغير السنة )  

مثال : 2022/001   

2022/001

2022/001

هل بحثت في المنتدى ولم تجد طلبك ؟؟؟

[قهرني الأوفيس]

@barna

نعم أخي طبقت هذا الموضوع https://www.officena.net/ib/topic/78391-بداية-كل-سنة-ترقيم-جديد/?_fromLogin=1

بس لما أضيف علامة / بين العام والرقم التلقائي لا يعمل الكود 

[قهرني الأوفيس]

😔

[Barna]

اهلا بك ...

بالمناسبة هناك طرق كثيرة للقيام بهذه المهمة ولكن خذ هذه على عجالة .... استخدمنا هذه الشيفرة ..... قم بالضغط على تسجيل جديد وسجل الكتب وأعلمنا بالنتيجة ...

Me.tafasel_alktab.Visible = True
Me.تسمية6.Visible = True
On Error Resume Next
    Dim Db As DAO.Database
    Dim Rc As DAO.Recordset
    Dim ChequesFound
    Dim ChequeNoStart As Long
    Dim ChequeNoEnd As Long
    Dim i As Long
    Set Db = CurrentDb
    Set Rc = Db.OpenRecordset("Barna")
    Do While Not Rc.EOF
        Rc.MoveNext
    Loop
    If Rc.RecordCount = 0 Then
     rkm_alktab = Year(Date) & "\" & "001"
     DoCmd.Requery
        GoTo cmdDisplay_Exit
        Else
    DoCmd.GoToRecord , "", acNewRec
        max_id = DMax("[Brojevtxti]", "barna") + 1
        rkm_alktab = Year(Date) & "\" & Right(max_id, 3)
        End If
cmdDisplay_Exit:
    Set Rc = Nothing
    Set Db = Nothing

تفضل ملفك ....

 

Database41.accdb

[قهرني الأوفيس]

في 8‏/2‏/2022 at 21:40, قهرني الأوفيس said:

barna

هذا هو المطلوب أخي barna بس المشكلة لما عدة سجلات يشير ويغلق البرنامج صورة مرفقة للمشكلة

[Barna]

21 دقائق مضت, قهرني الأوفيس said:

هذا هو المطلوب أخي barna بس المشكلة لما عدة سجلات يشير ويغلق البرنامج صورة مرفقة للمشكلة

البرنامج يعمل لدي دون مشاكل ..... انظر .....

 

[قهرني الأوفيس]

تسلم حفظك الله ،،، لعل المشكلة لدي في جهازي ،،، تسلم يعطيك الصحة والعافية  🌹

[Barna]

16 دقائق مضت, قهرني الأوفيس said:

تسلم حفظك الله ،،، لعل المشكلة لدي في جهازي ،،، تسلم يعطيك الصحة والعافية  🌹

حياك الله ..... وعشان ما يقهرك الاكسس .... هذه طريقة اخرى ربما ابسط ..... تفضل وجرب وأعلمنا بالنتيجة ...

    Me![r] = Me![sh] + 1
    Me![rkm_alktab] = x & "/" & Format(r, "000")

 

Database41.accdb

[قهرني الأوفيس]

هذا هو المطلوب كود بسيط وسهل ماقصرت أخي الحبيب Barna 

الحين احس روحي أني قهرت الأكسس هههههههههههه😄