ناقل

مشاركة مع اخي @Foksh استخدم هذا Dim rpt As Variant Dim ReportsList As Variant ReportsList = Array("Report1", "Report2", "Report3") For Each rpt In ReportsList DoCmd.OpenReport rpt, acViewNormal Next rpt

اضم صوتي لصوت مشرفنا الغالي

وهذا حل ثالث اقصر Function JosephusOneLine(n As Integer) As Integer JosephusOneLine = 2 * (n - 2 ^ Int(Log(n) / Log(2))) + 1 End Function

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

ههه ..... انا اشارك ام ممنوع من المشاركة 😷

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

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

جزاك الله خيرا ... يبدو المشكلة لدي

تفضل بارك الله فيك ..................

صدقت ... عارف طريقة المرور على السجلات .... ولكن المشكلة في برنامج الواتس تظهر رسالة ولابد التدخل يدويا ... حاولت برمجيا ولكن يبدو اني وقتها كنت احتاج احتسي فنجان قهوة حتى اروق وافكر صح ... احاول اليوم ان شاء الله تعالى وربنا ييسر وسبب سؤالي ان استاذنا @Foksh اعتقد لم يضمن الاداة في تحديثه الجديد مرسال

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

جزاك الله خيرا استاذي الفاضل @ابو جودي الان اكملت دراستك الاكواد وفهم تفاصيل عملها ..... ممتازة الفكرة جدا بارك الله في عملك وعلمك وعمرك

سامحني اخي الكريم بسؤال ::::: ما هي فائدة هذا الملف CLR_Fallback

العين لا تعلو على الحاجب 😁

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