ناقل

تفضل ‏‏Data_Base_1.accdb

هل هذا هو المطلوب اولا .... لاني عملته لك باستعلام واحد

وعليكم السلام الرقم للقاعدة او لمحرر الاكواد

مشاركة مع اخي @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 اعتقد لم يضمن الاداة في تحديثه الجديد مرسال

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