كل الانشطه

وعليكم السلام ورحمة الله وبركاته ,, ملف قيم وهام لمن يبحث عن المعلومة المفيدة . واحتواءه على روابط مراجع جميل جداً بتوسيع الفكرة والبحث الشامل عن معلومات تفيد صاحبها . الشكر موصول لصاحب القلم الأستاذ عارف حسان .

أهلا بأخي @ناقل ، يسعدني مرورك ةتعقيبك على الموضوع ، رغم انك تسرعت في الحكم علي 😁😁 بالعكس ، أساتذتي الخبراء من المستهدفين بالمشاركة في هذا النقاش ( طبعاً مع احترامي الكامل لحرية ابداء الرأي ) ، انظر .. وتعقيباً على ما أسلفت تالياً :- ففي الحسبان ان شاء الله ، ولكن الصورة والفكرة السابقة من الإصدار الأول للتجارب الأولى لجمع التعليقات والمعلومات التي نستفيد منها .. معلمي الفاضل @ابوخليل ، أُسعد بمشاركتكم ، واتمنى أن أصل في النهاية إلى أداة تحقق الجزء الأكبر من فكرتها وهدفها .. بانتظار توجيهاتكم وإفاداتكم وتصويبكم لي لطرق تسهم في إنجاح المشروع .. معلمي الفاضل @jjafferr ، يسعدني توجيهكم لي لهذه الروابط ، وانا فعلاً قد قرأتها بشكل غير مفصل ، ولكن للمحاولة لرسم خطواتي التي سأبدأ بها ، وطبعاً لا بد من تغيير اتجاهي في الوقت الحالي واتجاه بوصلتي ، ولكن بهدف البدء بخطوات صحيحة تالياً .. أما فيما يخص الكود الذي استخدمته كتجربه ، فيسعدني توجيهك من موقع مايكروسوفت ، دلالة على أن المصادر التي يجب علي اتباع نهجها يجب أن تكون موثوقة لاحقاً .. أخي الأستاذ @kkhalifa1960 ، يسعدني تعليقكم ومروركم ، وإثراءكم وملاحظتكم كثيراً .. ونأمل أن نتعرف على أفكاركم لاحقاً باحثين عن سبيل واسع الأفق لتحقيق المطلوب . أما فيما يخص هذا الجزء .. فطبعاً صديقي وحبيبي @ابو جودي ، من الذين أشاركهم أفكاري وأستنير بتعليقاتكم ، حاله حال أساتذتي ومعلميني الأفاضل ( دون استثناء طبعاً ) . لكن وضعه الحالي الصحي قد يجعل تعليقاته متاحة فيما بيننا خارج المنتدى . ( يعاني من كسر في يده اليمنى حالياً شافاه الله وعافاه شفاء عاجل غير آجل ) . وباسمي وباسم المنتدى نيابةً نتمنى له الشفاء القريب بإذن الله . أشكر لكم جميعاً مروركم وقريباً سنبدأ بطرح الفكرة من بدايتها ( النسخة الأولى من الأداة ) ، ومع توجيهاتكم معلميني وأساتذتي وأخواني ، سنبدأ بتصحيح المسارات الخاطئة عند وجودها وإنجاح الفكرة .

يوجد اخطأ يا موسى 1- كود او دالة تتعرف على نوع الحقل اذا كان للمرفقات او حقل مفتاح اساسي يتغير كود من SQL الى DOA ما يشتغل وكود فحص كل حقل في SQL الى فارغ استبدل كل من Null 2-تعرف على علاقات الجدول وضبط النموذج اذا كان نموذج فرعي 3.4.To 7 ( هدية بسيطة طورها وصلة في الى الرابع هذي الاولى شغال ( ياخذ كافة العلاقات الجداول ويحفظها في الجدول عند اعادة ربط الجداول يعيد اعادة ربط العلاقات تحذير كل العقود الي عندك بين الشركات والافراد لبيع قاعدة البيانات يجب ابلاغ اعلان بالمحكم اذا ما رد عليك مو تنذره عند بيع بيانات للشركات تحتوي على سجلات قضائية او بيانات حساسة لتعدي على سيادة الدولة تعتبر جريمة وتعدين على العملات الرقمية بطريقة الخاطأ لاستهلاك الكهرباء تعتبر مخالف الطريقة الصحيحة تشتري صناديق شحن الكهرباء ما تعبي فيها ديزل ولا بانزين فقط تشحن الصناديق لتشغيل لثلاث ايام دون تعدي على العداد الكهرباء المهم بيع بيانات للشركات او المؤسسات ويحول البيانات الى عقود باطن من طرف واحد لرفع تصنيف التجاري لمعرفة اعادة فحص عقود الباطن وتأكد من اقول المتعاقدين لم يتعاقد وتكون مع طرفين سمسار ملاك العقارات قبل البيع الاصول وطرح وطرف الثاني شركات المقاولات والقديمة تجارة عامة ومقاولات بدفع مبلغ رمزي لحجز البيع لاتمام انجاز عقد العقاري الوهمي وشاحنتين 2 عمال شوي ويزيد ويزيد عدد العقود الحل لتخريب عليهم كل عقد باطن يصدق لجهة برقم تسلسلي قبل فحص التصنيف عند ادخال الرقام فارغ او غير صحيح يعرض للجهات المختصة للتأكد من صحة بيانات التعاقد سيكون عقوبة على كافة الشركات التي تبيع للطرف الثالث كان في دولتك والمصيبة في دول خارجية قاعدة بيانات حساسة للمواطنين من غير تصريح ولا تفويض ولا ترخيص اكثرهم جه عقارية وتمليك واجار وبيع اصول مش حلو بيشوفوا ناس على ناس بيخذو الفكرة الزاي انت تكون بلغت ما طرحت له الفكرة تشري القاعدة من طرف الاخر للمواطنين والمقيمين ولا انت تبيع فحالة كل من الشركات كانت الكترونية او عقارية تفصح للبيع البيانات للتجارة هدف البيع والربح من طرف الثالث كان محلي او اجنبي اعتقد ستحب الاجهزة والسيرفرات مع قاعدتها واعتقد الغرامة تصل الى سحب النشاط ... Objects List 3.0.rar

اعتقد بعد هذه الكوكبة من علمائنا الافاضل ..... وفي هذا الموضوع المهم والحيوي واقتراب موعد عدم اثراء أي برامج تعتمد عى 32 بت ...... وحتى تحصين برامجنا التي نعمل عليها . لابد من مناقشتها وهنا فرصة عظيمة لذلك . ولكي تتم المناقشة لابد من مشاركة مهندسنا (أبو جودي) الذي نأمل أن يشاركنا في هذا الطرح . تحياتي للجميع .

السادة الأفاضل الكرام خبراء أوفيسنا (Excel) السلام عليكم جميعا ورحمة الله وبركاته طبتم وطابت أوقاتكم بكل خير وبعد بداية أود أن أنوه إلى أن الملف المرفق نتيجة لجهد عملاقين من عمالقة المنتدى وهما: الأستاذ @عبدالله بشير عبدالله والأستاذ @محمد هشام. ولا أنسى عملاق آخر وهو الأستاذ @Foksh الذي أثرى الحوار العلمي فيما بينهم؛ وحقيقة تمتعت برقي أخلاقهم وأدب حوارهم الذي يفوق الوصف كل ذلك مع تمكنهم العلمي من أدواتهم جيدا مصحوبا بتواضع العلماء؛ نفعنا الله بعلمهم وزادهم علما؛ وجزاهم الله عنا خير الجزاء. · قمت بإنشاء: (Macro1) و (Macro2) و (Module3) و (Module4)؛ كما هو موضح بملف العمل المرفق حيث: · شيت (search DATA) مرتبط بـ (Macro1) وهذا مبين في (Module3). · وشيت (search معاشات) مرتبط بـ (Macro2) وهذا مبين في (Module4). · المطلوب · أن يصبح شيت (SEARCH) هو شيت البحث الرئيس لما يحتويه شيت (search DATA) وشيت (search معاشات) ثم يتم حذف كلا الشيتين لعدم الحاجة إليهما. ·أو · ضم شيت (search معاشات) إلى شيت (search DATA) وحذف شيت (search معاشات) لعدم الحاجة إليه بعد أن يصبح شيت (search DATA) هو شيت البحث الرئيس وتغيير اسمه ليكون شيت (SEARCH). ملاحظة · أمكنني البحث بأي من محتويات الخلايا (M4:A4) ماعدا الخليتان: (G5) محافظة الميلاد (المظللة باللون الأصفر) و (K5) يوم الخروج للمعاش (المظللة باللون الأصفر)؛ ولا أعلم سببا لذلك؛ في كلا من شيتي: (search DATA) و (search معاشات). شاكر لكم حسن تعاونكم مسبقا ولكم خالص الشكر والتقدير والاحترام. ضم ماكرو1 وماكرو2 معا وتوحيد البحث في شيت واحد.xlsb

مازبط معي للاسف

شكرا أستاذ بارك الله فيك وجزاك الله خيرا أرغب أن تعدل لك الكود بحيث يعرض فقط أول 51 صف غير فارغ في العمود G

وعليكم السلام اهلا اخي فادي 🙂 اهم شيء في هذا الموضوع، هو الرجوع الى تعليمات مايكروسوفت في التعامل مع دوال نواة 64 بت ، في الرابط التالي: https://www.microsoft.com/en-us/download/details.aspx?id=9970 ملف النص في الرابط اعلاه يعطيك تفاصيل الدالة على نواة 64 بت. المثال الذي استعملته انت، وانا متأكد بأنك كنت حريص في انتقاء الدالة، توجد به 3 فروقات عن الدالة في ملف مايكروسوفت (السطر الثاني من ملف مايكروسوفت) : والمسألة لا تتوقف عند هذا السطر فقط، فهناك دوال معقدة تحتاج الى استعمال if# في دالتي الخاصة. رجاء قراءة الموضوعين التاليين ، فطريقة العمل تختلفان ، وفيهما بعض الامثلة المختلفة: . .

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

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

جرب هدا Sub ConvertDates() Dim WS As Worksheet, lastRow As Long, i As Long Application.ScreenUpdating = False Set WS = ActiveSheet lastRow = WS.Cells(WS.Rows.Count, "L").End(xlUp).Row For i = 2 To lastRow If IsDate(WS.Cells(i, "L").Value) Then WS.Cells(i, "M").Value = DateValue(WS.Cells(i, "L").Value) WS.Cells(i, "M").NumberFormat = "mmm dd, yyyy" Else WS.Cells(i, "M").Value = "" End If Next i Application.ScreenUpdating = True End Sub

في اللغة العربية، لا يمكن وضع ثلاث حركات (الفتحة، الضمة، الكسرة) على حرف واحد في نفس الوقت. كل حركة من هذه الحركات تدل على صوت مختلف للحرف، وبالتالي لا يمكن أن ينطق الحرف بثلاثة أصوات مختلفة في نفس اللحظة. ما قد يقصد بالسؤال: الجمع بين الحركة والشدة: قد يلتبس الأمر على البعض بين الحركات الأساسية والشدة. الشدة (ـّ) توضع فوق الحرف لتضعيف لفظه (أي كأنه مكتوب مرتين)، ويمكن أن يصاحبها حركة (فتحة، ضمة، كسرة). فمثلاً، "مُحَمَّد" (الميم مضمومة، الحاء مفتوحة، الميم مشددة ومفتوحة). هنا، الحرف المشدد يحمل حركة (الفتحة في هذه الحالة)، لكن الشدة نفسها ليست حركة إعرابية بل علامة تضعيف. المدود والحركات: حروف المد (الألف، الواو، الياء) هي في الأصل حركات طويلة (الفتحة الطويلة، الضمة الطويلة، الكسرة الطويلة). فمثلاً، الألف الممدودة (آ) هي اجتماع همزتين، الأولى مفتوحة والثانية ساكنة، وتُلفظ ألفاً ممدودة. لكن هذا لا يعني وضع ثلاث حركات على حرف واحد. مثلثات قطرب: هذه ظاهرة لغوية نادرة وليست قاعدة عامة، حيث تتغير دلالة الكلمة بتغيير حركة حرف واحد فيها، مثل: "الغَمْرُ" (الماء الكثير) و"الغِمْرُ" (الحقد) و"الغُمْرُ" (الرجل الذي لم يجرب الأمور). لكن هنا، يتم تغيير الحركة في كل كلمة على حدة، وليس وضع الحركات الثلاث على نفس الحرف في نفس الكلمة. الخلاصة: لا يوجد خط أو طريقة في اللغة العربية تسمح بوضع ثلاث حركات (فتحة وكسرة وضمة) على حرف واحد في نفس الوقت. كل حركة من هذه الحركات تدل على صوت محدد للحرف.

وعليكم السلام ورحمة الله تعالى وبركاته اخي @AMIRBM 1) الأفضل هو تجاهل الصفوف الفارغة في عمود G بدلا من تقييد العرض بـ 51 صف فقط لأنك بذلك تمنع عرض أي بيانات جديدة تضاف لاحقا بعد الصف 51 أي إدخال جديد لن يظهر في الـ ListBox الكود يصبح محدودا وغير ديناميكي 2) بعد معاينة الملف لاحظت انك اسم الجدول على ورقة العمل باسم Tableau5 بينما الكود يشير إلى Tableau1 وهذا سيؤدي حتما إلى ظهور خطأ عند التشغيل لأن الكود يبحث عن جدول غير موجود وهده النقطة يمكننا تجاوزها إدا فهمنا ما تحاول فعله بالاعتماد على نطاق البيانات مباشرة من الورقة دون الحاجة لاستخدام جدول محدد أو إسمه مما يجعل الكود أكثر مرونة ولا يتأثر بتغيير الأسماء أو حذف الجداول وكدالك عرض كل الصفوف التي تحتوي على بيانات فعلية فقط مهما كان عددها 3) إذا كنت متأكد أن تقييد العرض على 51 صف فقط هو المطلوب ويراعي ظروف عملك يمكننا تعديل الكود ليقوم بعرض أول 51 صف من البيانات الفعلية فقط في النهاية الأمر يعود لاختيارك حسب متطلباتك هل ترغب أن أعدل لك الكود بحيث يعرض فقط أول 51 صف غير فارغ في العمود G ؟ أو تفضل التعديل الديناميكي الذي يعرض كل الصفوف الفعلية ويتجاهل الفراغات ؟

مشكورين جميعكم ولاكني جربت كل المحاولات لم تزبط معي للاسف يطلع لي #VALUE! هل ممكن عن طرق كود ممكن يزبط معي

تفضل التقرير حسب ماطلبت مع العلم هذا أخر مالديا بالنسبة للجداول لأني ما أقدر أعيد برمجة البرنامج ككل . تمنياتي لك بالتوفيق . DDFinding Differences-FINAL_8.rar

خط حلمي محمود لرموز الرياضيات

بالتأكيد، هذه مشكلة شائعة عند دمج المراسلات من Excel إلى Word، وتحدث لأن Word لا يتعرف تلقائيًا على تنسيق التاريخ الصحيح من Excel في بعض الأحيان، ويعامله على أنه رقم تسلسلي (وهو كيفية تخزين التواريخ داخليًا في Excel). إليك خطوات لحل هذه المشكلة: الطريقة الأولى: استخدام محولات الحقول (Field Switches) في Word (الأكثر شيوعًا وفعالية) أكمل عملية دمج المراسلات: قم بدمج المراسلات كالمعتاد حتى تظهر التواريخ كأرقام في مستند Word المدمج. حدد حقل التاريخ في Word: في مستند Word المدمج، حدد الرقم الذي يمثل التاريخ (مثل 44321). اضغط على Shift + F9: هذا سيحول الحقل من عرضه العادي إلى عرضه الكودي (مثل { MERGEFIELD "تاريخ_الميلاد" }). أضف محول التنسيق (Date-Time Picture Switch): داخل الأقواس المعقوفة، بعد اسم الحقل، أضف محول تنسيق التاريخ. يكون بالشكل التالي: للتاريخ الكامل (يوم/شهر/سنة): \@ "dd/MM/yyyy" لليوم والشهر فقط: \@ "dd MMMM" للتاريخ مع اسم الشهر (مثلاً: 25 مايو 2024): \@ "dd MMMM yyyy" مثال: إذا كان الحقل هو { MERGEFIELD "تاريخ_الميلاد" }، فبعد التعديل سيصبح: { MERGEFIELD "تاريخ_الميلاد" \@ "dd/MM/yyyy" } أو { MERGEFIELD "تاريخ_الميلاد" \@ "dd MMMM yyyy" } ملاحظة: تأكد من أن هناك مسافة واحدة بين اسم الحقل و\@. اضغط على F9: بعد إضافة المحول، اضغط على F9 (أو Fn + F9 على بعض لوحات المفاتيح) لتحديث الحقل. سيتم الآن عرض التاريخ بالشكل الصحيح. كرر العملية لكل حقول التاريخ: ستحتاج إلى تكرار هذه العملية لكل حقول التاريخ التي تظهر بشكل غير صحيح. حفظ التغييرات في المستند الرئيسي (Master Document): إذا كنت تريد تطبيق هذا التغيير على جميع عمليات الدمج المستقبلية، قم بإجراء هذه التعديلات في مستند دمج المراسلات الرئيسي (قالب Word) قبل حفظه. الطريقة الثانية: تغيير تنسيق الخلايا في Excel (أقل شيوعًا في حل هذه المشكلة بالتحديد) على الرغم من أنك ذكرت أن التواريخ مكتوبة بشكل صحيح في Excel، إلا أنه في بعض الأحيان يمكن أن يساعد إعادة التأكد من تنسيق الخلايا في Excel: افتح ملف Excel: افتح ملف Excel الذي تستخدمه كمصدر للبيانات. حدد عمود التاريخ: حدد العمود الذي يحتوي على التواريخ. انقر بزر الماوس الأيمن: اختر "تنسيق الخلايا" (Format Cells). اختر "تاريخ" (Date): تأكد من أن الفئة محددة على "تاريخ" (Date) واختر التنسيق المطلوب (مثل 14/3/2012 أو 14 آذار 2012). تأكد من نوع البيانات: في بعض الأحيان، قد تكون البيانات مكتوبة كنص على الرغم من أنها تبدو كتواريخ. لتجنب ذلك، حاول إدخال تاريخ جديد في خلية فارغة بالعمود الذي تريد تنسيقه، ثم اسحب مقبض التعبئة (Fill Handle) لأسفل لتطبيقه على باقي الخلايا، أو استخدم "نص إلى أعمدة" (Text to Columns) لتحويلها. احفظ ملف Excel: احفظ التغييرات في ملف Excel. أعد دمج المراسلات في Word: أعد تشغيل عملية دمج المراسلات في Word. نصائح إضافية: تجنب نسخ التواريخ ولصقها كنصوص: إذا كنت تقوم بنسخ التواريخ من مكان آخر، تأكد من لصقها كقيم أو كتواريخ، وليس كنصوص. اختبار على مجموعة صغيرة: قبل دمج مستند كبير، اختبر التغييرات على مستند دمج مراسلات صغير يحتوي على بضعة سجلات فقط. إعادة توصيل مصدر البيانات: في بعض الأحيان، قد يساعد فصل مصدر البيانات عن مستند Word وإعادة توصيله مرة أخرى. (من تبويب "المراسلات" -> "تحديد المستلمين" -> "استخدام قائمة موجودة" ثم إعادة تحديد ملف Excel). الخلاصة: الطريقة الأولى (باستخدام محولات الحقول \@ "dd/MM/yyyy") هي الأكثر فعالية والأسهل لتصحيح تنسيق التواريخ في دمج المراسلات. آمل أن يساعدك هذا الحل

وعليكم السلام ورحمة الله وبركاته اشارك برأي من باب المشاركة ولست خبيرا ,,,,, لأنك انت من طلب من غير الخبراء المشاركة 😃 عن تعديل الكود اعتقد يجب النظر في كل المتغيرات والدوال مثلا هناك دوال تحتاج الى تعديل للعمل في بيئة 64 bit مثل ::::::::::::::: 1. FindWindow 2. GetWindowLong / SetWindowLong 3. GetTickCount 4. ShellExecute 5. Sleep 6. GetSystemMetrics 7. GetCursorPos 8. OpenProcess 9. CreateFile والله اعلم

السلام عليكم ورحمة الله وبركاته ،، في طور تحسين الأداة الجديدة ( لم يعلن عنها بعد ) ، للتعامل مع الأكواد التي تعمل على 32 ولا تعمل على 64 ، ما زال العمل جاري على تحسين أداء الأداة ، بحيث من خلال النقاش المفتوح نأتي للوصول الى أفضل أداء ونتيجة . مرفق صورة توضيحية للوضع الحالي للأداة ، مع طرح مثال لكود قبل وبعد التحويل الناتج من الأداة . الكود الذي تمت التجربة عليه كمثال ( لا الحصر ) :- Option Compare Database Option Explicit Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As _ Any) As Long Public Const WM_SETREDRAW = &HB Public Sub FillChildren(twTree As MSComctllib.TreeView, rst As dao.Recordset, _ ByVal nChild As MSComctllib.nodX, _ strParentField As String, strIDField As String, _ strTextField As String, Optional strTextField2 As Variant, Optional strTextField3 As Variant, Optional strTextField4 As Variant, Optional strTextField5 As Variant, _ Optional strKeyPrefix As String, _ Optional varImage As Variant, _ Optional varImageRst As Variant, _ Optional fBold As Boolean) On Local Error GoTo FillChildren_Err Dim strCriteria As String, IMAGE As Variant, strPrefix As String, strText As String, newnodx As MSComctllib.nodX If strKeyPrefix = "" Then strPrefix = "a" Else strPrefix = strKeyPrefix End If If Mid(nChild.key, 2) = "0" Then strCriteria = BuildCriteria(strParentField, rst.Fields(strParentField).Type, "=" & Mid(nChild.key, 2) & " or is null") Else strCriteria = BuildCriteria(strParentField, rst.Fields(strParentField).Type, "=" & Mid(nChild.key, 2)) End If rst.FindFirst strCriteria Do Until rst.NoMatch strText = Nz(rst(strTextField), " ") If Not IsMissing(strTextField2) Then strText = strText & (" " + rst(strTextField2)) If Not IsMissing(strTextField3) Then strText = strText & (" " + rst(strTextField3)) If Not IsMissing(strTextField4) Then strText = strText & (" " + rst(strTextField4)) If Not IsMissing(strTextField5) Then strText = strText & (" " + rst(strTextField5)) If Not IsMissing(varImageRst) Then IMAGE = rst(varImageRst) End If If (Not IsMissing(varImage)) And (Len(Nz(IMAGE)) = 0) Then IMAGE = varImage End If IMAGE = Nz(IMAGE, "Default") Set newnodx = twTree.Nodes.Add(nChild, tvwChild, strPrefix & rst(strIDField), strText, IMAGE) rst.FindNext strCriteria Loop FillChildren_End: On Error Resume Next Exit Sub FillChildren_Err: Select Case Err.Number Case 35601, 35603 'Image not found!!! IMAGE = "FlagDefault" Resume Case 35602 'key not unique!!! Set newnodx = twTree.Nodes(strPrefix & rst(strIDField)) Resume Next Case Else MsgBox "Error in FillChildren!!! " & Err.Number & Err.Description Stop Resume End Select End Sub النتيجة من الأداة بعد التحسينات والتعديلات :- 'Code converted to 64-bit compatibility By Foksh ( Officena.Net ) 'Generated on: 2025-05-23 15:22:26 'Tool version: Ver : 1.0 Option Compare Database Option Explicit #If VBA7 Then Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As Long, lParam As Any) As Long #Else Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long #End If Public Const WM_SETREDRAW = &HB Public Sub FillChildren(twTree As MSComctllib.TreeView, rst As dao.Recordset, _ ByVal nChild As MSComctllib.nodX, _ strParentField As String, strIDField As String, _ strTextField As String, Optional strTextField2 As Variant, Optional strTextField3 As Variant, Optional strTextField4 As Variant, Optional strTextField5 As Variant, _ Optional strKeyPrefix As String, _ Optional varImage As Variant, _ Optional varImageRst As Variant, _ Optional fBold As Boolean) On Local Error GoTo FillChildren_Err Dim strCriteria As String, IMAGE As Variant, strPrefix As String, strText As String, newnodx As MSComctllib.nodX If strKeyPrefix = "" Then strPrefix = "a" Else strPrefix = strKeyPrefix End If If Mid(nChild.key, 2) = "0" Then strCriteria = BuildCriteria(strParentField, rst.Fields(strParentField).Type, "=" & Mid(nChild.key, 2) & " or is null") Else strCriteria = BuildCriteria(strParentField, rst.Fields(strParentField).Type, "=" & Mid(nChild.key, 2)) End If rst.FindFirst strCriteria Do Until rst.NoMatch strText = Nz(rst(strTextField), " ") If Not IsMissing(strTextField2) Then strText = strText & (" " + rst(strTextField2)) If Not IsMissing(strTextField3) Then strText = strText & (" " + rst(strTextField3)) If Not IsMissing(strTextField4) Then strText = strText & (" " + rst(strTextField4)) If Not IsMissing(strTextField5) Then strText = strText & (" " + rst(strTextField5)) If Not IsMissing(varImageRst) Then IMAGE = rst(varImageRst) End If If (Not IsMissing(varImage)) And (Len(Nz(IMAGE)) = 0) Then IMAGE = varImage End If IMAGE = Nz(IMAGE, "Default") Set newnodx = twTree.Nodes.Add(nChild, tvwChild, strPrefix & rst(strIDField), strText, IMAGE) rst.FindNext strCriteria Loop FillChildren_End: On Error Resume Next Exit Sub FillChildren_Err: Select Case Err.Number Case 35601, 35603 'Image not found!!! IMAGE = "FlagDefault" Resume Case 35602 'key not unique!!! Set newnodx = twTree.Nodes(strPrefix & rst(strIDField)) Resume Next Case Else MsgBox "Error in FillChildren!!! " & Err.Number & Err.Description Stop Resume End Select End Sub باب النقاش مفتوح لأي تعليقات وتوضيحات وتحديثات للجميع .. الأداة حصرية وليس لها أي أساس في أي موقع أجنبي أو عربي ( فقط في أوفيسنا ) *ملاحظة :- الدعوة للنقاش لا تقتصر على من لديه خبرة في آكسيس فقط . أيضاً أخوتنا الأساتذة برتبة ( خبير ) الذين أشعر أنهم غير معنيين بالمشاركة بمواضيع أخوتهم الأساتذة في هذا المنتدى هم معنيين خصوصاً بالمشاركة وإبداء الرأي ، وأرجو ان لا تكون هذه العبارة في غير محلها 😎 . نحن نتكاتف هنا لنتشارك معرفتنا وعلمنا الذي علمنا إياه الله - ولا علم إلا علمه . لذا متأملاً منهم خصوصاً مشاركتنا أفكارهم .

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

إحدى النكاشات الفكرية التي تدور في رأسي ، على سبيل المثال :- 1. التعامل مع الحمل المتعدد 😅 الولادة تكون أبكر عادة ، فمثلاً:- المعدل الطبيعي للولادة في التوائم = التوأم الثنائي : بين الأسبوع 36–37 التوأم الثلاثي : غالبًا قبل الأسبوع 34 لذا ، ومن وجهة نظري بحكم دراستي للتمريض ، لا يستخدم الأسبوع 40 كموعد قياسي لتقدير الوزن أو الطول . 2. التعامل مع سكري الحمل 😁 دول نقطتين خطروا في بالي ، قلت أسمعهم للهندسة 🤗 . لا أقصد بناءً مشروع كامل ، ولكن تمرين لأصابع ايدك التانية 😇 .

فعلاً ،، أصبت في هذا ، وانا لست معتاداً على هذا السكون 😅 . أما بالنسبة للتكة ، فـ دي حكايتها حكاااااية 🤣 أما بالنسبة للأستاذ @ابو جودي فألف سلامة عليك ، يعاني من كسر في يده اليمنى 🥺، ونتمنى له الشفاء العاجل يارب العالمين. ( يا رب ما كونش فتنت 😇 )

بسم الله ما شاء الله عمل رائع جزاك الله كل خير

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