kanory

طيب انظر هذا ..................

مشاركة مع استاذي المهندس @Eng.Qassim هل تريدها بهذه الصورة في استعلام ........

فقط كررها مع اضافة شرط ثان وهو الجنس .... sifa: IIf([sin]>=20 And [jins]="ذكر";"قائد";IIf([sin]>=18 And [jins]="ذكر";"جوال";IIf([sin]>=15 And [jins]="ذكر";"كشاف متقدم";IIf([sin]>=11 And [jins]="ذكر";"كشاف";IIf([sin]>=6 And [jins]="ذكر";"شبل";IIf([sin]>=20 And [jins]="انثى";"قائده";IIf([sin]>=18 And [jins]="انثى";"جواله";IIf([sin]>=15 And [jins]="انثى";"مرشدة متقدمة";IIf([sin]>=11 And [jins]="انثى";"مرشدة";IIf([sin]>=6 And [jins]="انثى";"زهرة")))))))))) انظر المرفق لتفهم مقصودي ........ sma - Copie.accdb

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

الكود يقوم بتصدير الملف المرفق فقط وليس لتحويل الملف .. فلو كان الملف المرفق pdf يقوم بتصديرة الى pdf واذا كان الملف jpg بقوم بتصديره الى jpg اي لا يقوم بتحويل الملفات ....

بارك الله فيك .... نعم هذا ما كنت اقصده ....

تفضل <><><><><><> احصاء عدد الصفوف.accdb

كلامك صحيح استاذي @Eng.Qassim

شاهدت اما هنا او في منتدى اخر ملف معمول بالاكسس كان تقوم بالبحث في جميع منتديات الاكسس ولكن للاسف لا تتحدث البيانات فيه ....

مشاركة من استاذي المهندس قاسم بعد وضع الكود الذي تفضل به البشمهندس وحول القاعدة الى accede بذلك لن يتمكن اي شخص من الدخول للاكواد .....

هل هذا التصور صحيح .......

الغي هذا الحدث وجرب ......

أخي الاعتذار شيم الكبار دائما ...... بارك الله فيك .... بالعكس انت كبرت في اعيننا ....

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

وعليكم السلام ..... ماذا تقصد سؤال نعم لا ... هل تقد رسالة تحذير مثلا ام ماذا وضح ...

وعليكم السلام ورحمة الله وبركاته ممكن عن طريق استعلام الحاق عمل ذلك بشرط عدم الحاق حقل الترقيم التلقائي لانه قد يتكرر اذا لم تستطع ارفق مثال مبسط وبه بيانات وهمية لمساعدتك

ما شاء الله تبارك الله ملك دمج المتصفح مع الاكسس الاستاذ @أبو إبراهيم الغامدي بارك الله فيك .....

هدية رائعة من شخص رائع اتشرف ان اكون اول من يرد ويشكر بارك الله فيك اخي @Moosak

هل هذا الباركود صادر من الميزان اللالكتروني ؟؟؟

وما هو امتداد الملف الان ....؟؟

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

اذا لم يعمل معك ... انقل الاكواد للمثال لديك ... وجرب

جرب المرفق التالي ................ Database1 (15).accdb

طيب شوف كدة ..... kan_b.accdb

طيب انظر الصور لتعرف موطن التعديل .... <><><><><><><><><> تفضل ملفك بعد التعديلات الاخيرة المطلوبة وتصحيح بع الاخطاء التي ذكرتها لك اما انا فعادة استخدم شاشة واحدة لتوزيع ارقام الجلوس واللجان معا ,,,,, انظر طريقتي <><><><><><< كتشنة الرقم السرى واللجان.accdb