قهرني الأوفيس قام بنشر فبراير 8, 2022 مشاركة قام بنشر فبراير 8, 2022 (معدل) السلام عليكم طلبي عند تسجيل كتاب جديد يكون رقم الصادر ( ترقيم تلقائي تسلسلي يتغير بتغير السنة ) مثال : 2022/001 2022/002 2022/003 2022/004 حتى بداية العام الجديد 2023 يكون 2023/001 2023/002 الخ Database41.accdb تم تعديل فبراير 8, 2022 بواسطه قهرني الأوفيس رابط هذا التعليق شارك More sharing options...
Barna قام بنشر فبراير 8, 2022 مشاركة قام بنشر فبراير 8, 2022 2 دقائق مضت, قهرني الأوفيس said: السلام عليكم طلبي عند تسجيل كتاب جديد يكون رقم الصادر ( ترقيم تلقائي تسلسلي يتغير بتغير السنة ) مثال : 2022/001 2022/001 2022/001 هل بحثت في المنتدى ولم تجد طلبك ؟؟؟ 1 رابط هذا التعليق شارك More sharing options...
قهرني الأوفيس قام بنشر فبراير 8, 2022 الكاتب مشاركة قام بنشر فبراير 8, 2022 @barna نعم أخي طبقت هذا الموضوع https://www.officena.net/ib/topic/78391-بداية-كل-سنة-ترقيم-جديد/?_fromLogin=1 بس لما أضيف علامة / بين العام والرقم التلقائي لا يعمل الكود رابط هذا التعليق شارك More sharing options...
قهرني الأوفيس قام بنشر فبراير 9, 2022 الكاتب مشاركة قام بنشر فبراير 9, 2022 😔 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر فبراير 9, 2022 مشاركة قام بنشر فبراير 9, 2022 اهلا بك ... بالمناسبة هناك طرق كثيرة للقيام بهذه المهمة ولكن خذ هذه على عجالة .... استخدمنا هذه الشيفرة ..... قم بالضغط على تسجيل جديد وسجل الكتب وأعلمنا بالنتيجة ... 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 2 رابط هذا التعليق شارك More sharing options...
قهرني الأوفيس قام بنشر فبراير 9, 2022 الكاتب مشاركة قام بنشر فبراير 9, 2022 في 8/2/2022 at 21:40, قهرني الأوفيس said: barna هذا هو المطلوب أخي barna بس المشكلة لما عدة سجلات يشير ويغلق البرنامج صورة مرفقة للمشكلة رابط هذا التعليق شارك More sharing options...
Barna قام بنشر فبراير 9, 2022 مشاركة قام بنشر فبراير 9, 2022 21 دقائق مضت, قهرني الأوفيس said: هذا هو المطلوب أخي barna بس المشكلة لما عدة سجلات يشير ويغلق البرنامج صورة مرفقة للمشكلة البرنامج يعمل لدي دون مشاكل ..... انظر ..... رابط هذا التعليق شارك More sharing options...
قهرني الأوفيس قام بنشر فبراير 9, 2022 الكاتب مشاركة قام بنشر فبراير 9, 2022 تسلم حفظك الله ،،، لعل المشكلة لدي في جهازي ،،، تسلم يعطيك الصحة والعافية 🌹 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Barna قام بنشر فبراير 9, 2022 أفضل إجابة مشاركة قام بنشر فبراير 9, 2022 16 دقائق مضت, قهرني الأوفيس said: تسلم حفظك الله ،،، لعل المشكلة لدي في جهازي ،،، تسلم يعطيك الصحة والعافية 🌹 حياك الله ..... وعشان ما يقهرك الاكسس .... هذه طريقة اخرى ربما ابسط ..... تفضل وجرب وأعلمنا بالنتيجة ... Me![r] = Me![sh] + 1 Me![rkm_alktab] = x & "/" & Format(r, "000") Database41.accdb 1 رابط هذا التعليق شارك More sharing options...
قهرني الأوفيس قام بنشر فبراير 9, 2022 الكاتب مشاركة قام بنشر فبراير 9, 2022 هذا هو المطلوب كود بسيط وسهل ماقصرت أخي الحبيب Barna الحين احس روحي أني قهرت الأكسس هههههههههههه😄 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان