نجوم المشاركات

السلام عليكم اهم النقاط التي يجب اعتبارها عند انشاء شجرة العائلة 1- الاهتمام بمعرف الفرد .. فالافضل ان يكون رقم الهوية (الرقم القومي ) ، وان لم يتهيأ ذلك فيجب تخصيص كل جدول بنطاق محدد من الارقام ، وهذا الأخير هو الذي عملت به في هذا المثال . والسبب ان الجداول كثيرة حيث ان كل جيل او طبقة لهم جدول يخصهم ، وغالبا نحتاج ضم الجميع في استعلام واحد لإجراء بعض العمليات الخاصة التي تستلزم ضمهم ولهذا وجب الاهتمام بمعرف الفرد . 2- تسمية الجداول والاستعلامات بأسماء يمكن من خلالها المقارنة بين هذه الاسماء برمجيا .. والتعرف عليها لمناداتها عند اللزوم اتمنى ان تجدوا الفائدة والمتعة . شجرة أوفيسنا.rar

لا يوجد في جهازي (ارفان فيو) فقمت بتحميله لا يوجد في جهازي اكروبات لذا حذفت مكتبته من المكتبات .. عليك ملاحظة ذلك بحثت وحاولت احقق الفكرة ونجحت في الصور .. ولكنه لم يتعرف على ملف pdf ايضا الكود يقوم بتحويل صيغ الملفات .. كل ما عليك عمله هو تغيير صيغة الملف الوجهة لا اعلم لماذا لم يتعرف على ملف pdf .. قد يكون لمكتبة acrobat دخل في ذلك .. لا اعلم او ان لـــــ (ارفان فيو) اعدادات خاصة المصدر test2.rar

ممتاز ولكن يحتاج الى اضافة معالجة الخطأ عند اضافة قيمة نصية

بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته اساتذتي واخوتى هذا الملف به فهرس لجميع المنتدي ليسهل البحث للاعضاء يوجد فورم يمكنك البحث بها كما يمكنكم استخدام الفلتر العادي وبمجرد الضغط على اي نتيجه من نتائج البحث يتم فتح صفحتها في المنتدي ولا انسي فضل استاذي الكبير ياسر خليل على المساعده في عمل الملف تم تحديث الملف يوم الخميس الموافق 10 - 04 - 2025 فهرس منتدي الاكسيل.xlsb

السلام عليكم اعضاء الكنترول الكرام اضع بين ايديكم شيت كنترول جدارات _ قسم حاسبات " الصف الاول "_ مفتوح المصدر يشتمل على ♦ شيت الرصد ♦ شهادات التيرم الاول ♦ شهادات نهاية العام ♦ تحديد الاوائل في الشهادة " هذا العمل خالصا لوجه الله تعالى " hasbat_1_gdarat.xlsm

تمام استاذى الغالى الله يفتح عليك

بما إنه أجنبي ، فربنا مسامحك ههههه

مش لو الجميل بتاعى اصلا انا سارقاه حضرتك من منتدى اجنبى😃

افهم من كلام حضراتكم اذا كان نظام الجهار 32 بت فلا يجوز تثبيت غير اوفيس 32 بت

في مداخلة قبل سنوات اخبرني الاستاذ محمد عن تجربته مع نظام dos وبحسبه بسيطة يكون عمره في حدود ما اشار ⬇️ اللهم اجعلنا واياكم ممن طال عمره وحسن عمله اخونا الشايب

جرب فكرتي ، قد تعجبك 0.accdb

ما شاء الله يسلم يمينك على المجهود ويجعله فى ميزان حسناتك

عمل جميل جداً ، ولكن لي نقطة وملاحظة صغيرة . لو جعلت المرفق يعمل على النظامين ( 64 / 32 ) لكان الجميل ازداد جمالا

آخر صف يتم حسابه على العمود A والصواب العمود B لأن A فارغ يمكنك تغيير هذا السطر lr = .Cells(.Rows.Count, "A").End(xlUp).Row إلى lr = .Cells(.Rows.Count, "B").End(xlUp).Row ولا يقوم الكود بحذف المصدر بالتوفيق

التعديل الأخير للنسخ الإحتياطي اليومي ، بدون حذف النسخ القديمة ، تفضل Backup New.zip

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

استاذى الجليل تأمر يا أفندم If Not IsNumeric(x) Then MsgBox "Not numeric..." Else With Me.Recordset .FindFirst "catcods=" & Me.x If .NoMatch Then MsgBox "Not found" End If End With End If

الف الف سلامه عليك استأل الله الكريم رب العرش العظيم ان يشفيك شفاء لا يغادر سقما

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

انا في قمة السعادة والله بالنقاش في موضوعي والاستفادة من ارائكم الرائعة اللي استفدت منا كتير وكمان انا جربت الكود والموديول وشغال كويس جدا شاكر فضلكم مرة تاني اخوتي الكرام @شايب @Foksh

ايه النحس دة ؟🤣

بعد التجربة المتكررة الملف يفي بالغرض هذا هو المطلوب عمل أكثر من رائع ربي يجعلها في ميزان حسانتك و ربي يزيد في علمك إن شاء الله

أبدعت ، جزاك الله كل خير أستاذ @شايب هذه المعلومة ما خطرت في بالي للأسف

اخي انت واضع شرط انه لو قيمة الخلية قيمتها اصغر من 0 تظهر كلمة NEED PRODUCTION والخلية تتضمن -2 عادي =IF(E11>0, "There is stock", IF(E11<0, "NEED PRODUCTION", "critical no stock"))

وعليكم السلام ورحمة الله تعالى وبركاته تفضل جرب =IF(B22="","", INDEX(Feuil2!$G$4:G24, MATCH(B22, Feuil2!$D$4:D24, 0),1)) مع تغير Feuil2!$G$4:G24 باسم العمود المراد جلب بياناته في باقي الاعمدة او =IF(B22<>"",INDEX(Feuil2!E:E,AGGREGATE(15,6,ROW(Feuil2!E$4:E$24)/(Feuil2!$D$4:$D$24=B22),ROWS(C22:C22))),"") مع التغيير هنا بما يناسبك (Feuil2!E:E,AGGREGATE(15,6,ROW(Feuil2!E$4:E$24) =IFERROR(VLOOKUP(Feuil1!$B22,Feuil2!$D$4:$M$24,2,0),"") مع استبدال رقم 2 برقم العمود المراد جلب بياناته او =IF(B22="","",XLOOKUP(B22,Feuil2!$D$4:$D$24,Feuil2!$E$4:$E$24)) التقرير-اليومي 2022 مبرمج.xlsm

هذا الخطا اذا كنت تستخدم اصدار 64 فلا يكفي اضافة ptrsafe وانما نحتاج تغيير نوع المتغير من long الى LongPtr مرفق مثال من موقع اجنبي قمت بتعديله بشكل سريع demo of inputbox with mask.mdb

نعم صحيح ، ولكني قمت بتجربتها وكان هناك رسالة خطأ في جملة الكود hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) ما اضطرني إلى اقتراح الفكرة أعلاه إلا إذا كان هناك توضيح لنوع الخطأ وسببه .

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

طيب يا استاذة نمشى خطوةخطوة معلش مخى طخين حبتين من فضلك جربى الشق الاول New Microsoft Access Database.accdb

طيب ايه رايكم فى كود صعنون وابن حلال بعد تحديث مربع نص البحث X With Me.Recordset .FindFirst "catcods=" & Me.x If .NoMatch Then MsgBox "Not found" End If End With

وعليكم السلام يمكن استخدام أداة السلينوم والتي يمكن تسطيبها في الإكسيل والتعامل معها برمجياً من خلال VBA .. ويوجد موضوعات قدمتها في أكاديمية الصقر بخصوص هذه الأداة ولكن المنتدى هنا يمنع فيه وضع الروابط الخارجية.

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