أبو آدم

أخي العزيز كيماس عذراَ على تأخر الردّ ، فقد كنت ظننت أنني قمت بالردّ ... الأفضل أن تكون : عدد سجلات الحقل + مجموع قيم سجلات الحقل 34+ -4 = 30 والله أعلم ، وفوق كل ذي علم عليم CountOfNo:Count[Health Problem]+Sum([Health Problem]) والله من وراء القصد ... وهو حسبي .. ................

ممكن توضيح الغاية من الكود الذي تبحث عنه !!! ... لإصدقائك ولن يبخلوا عليك بما لديهم ... ............

تفضل .......... ................. NA_UPpageset.rar

لجلب قيمة لقاعدة البيانات الحالية من قاعدة بيانات خارجية ، من جدول محدد ومن حقل محدد على شرط القيمة الأعلى (مثلاً) أو غير ذلك من تصفية أو بحث أو غيره ، وذلك عن طريق جملة SQL ، فالأمر يتعلق بفتح القاعدة الخارجية و إجراء اللازم ثم مغادرتها بعد الحصول على النتائج المرجوة. المسار : E:\NA_LinkDetach2003.mdb الجدول: Symbols_Companies_markets الحقل: NoID اسم مربع النص في النموذج : vMaxField1 بالتالي يصبح الكود كما يلي: Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String strSQL = "SELECT Max([Symbols_Companies_markets].[NoID]) AS [MaxOffield1]" _ & "FROM [Symbols_Companies_markets] IN 'E:\NA_LinkDetach2003.mdb';" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) vMaxField1 = rs!MaxOfField1 rs.Close Set rs = Nothing

أخي العزيز المسار : E:\NA_LinkDetach2003.mdb الجدول: Symbols_Companies_markets الحقل: NoID اسم مربع النص في النموذج : vMaxField1 بالتالي يصبح الكود كما يلي: Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String strSQL = "SELECT Max([Symbols_Companies_markets].[NoID]) AS [MaxOffield1]" _ & "FROM [Symbols_Companies_markets] IN 'E:\NA_LinkDetach2003.mdb';" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) vMaxField1 = rs!MaxOfField1 rs.Close Set rs = Nothing آملاً أن تتحقق لك الفائدة !! والله من وراء القصد .. وهو حسبي .........

أخي العزيز المرفق لا يكون دائماّ للتوضيح ن لا بل يكون للتوضيح ... و التعديل ... والتطبيق. شكراً .............

أخي العزيز لا بأس عليك ، إنما هي نصيحة ... ومنهج علمّي تعلمناها .. نوّد أن يصلكم من باب النصيحة . إليكم المرفق أخوتي الفضلاء ........ وبإنتظار الردود والاستفسارات !! والله من وراء القصد .. وهو حسبي .... ..................... NA_LinkExcelSheet.rar

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

عند التعامل مع الجداول المرتبطة يفضل عند تشغيل التطبيق إجراء الربط ، وعند إنهاء التطبيق إلغاء الإرتباط بحذف الجداول المرتبطة ، ولإجراء هذا الأخير نستخدم الوحدة النمطية التالية : Public Function DetachAllTables() Dim db As Database Dim tdf As Object Set db = CurrentDb() For Each tdf In db.TableDefs If tdf.Attributes = dbAttachedTable Then DoCmd.DeleteObject acTable, tdf.Name End If Next tdf db.TableDefs.Refresh Set db = Nothing End Function كلمات مفتاحية : وحدة نمطية ، حذف الجداول المرتبطة والله من وراء القصد ........... .......................

قيمة تلقائية في مربع التحرير و السرد !! لدي مربع تحرير وسرد يعتمد في مربع تحرير وسرد آخر ، أريد بعد الخروج من المربع الأول أن يظهر في المربع الثاني قيمة الصف الأول بشكل تلقائي قبل الإختيار !!! نستخدم الكود التالي في المكان المناسب حسب الحال ( مثلاً :في حدث بعد التحديث أو حدث عند الخروج للمربع الأول ) Me!ValueToFind.Requery Me!ValueToFind.Value = Me!ValueToFind.ItemData(0) على إعتبار أن ValueToFind إسم مربع التحرير والسرد المستهدف (بالإجراء) !!! ... .................

أخي العزيز أبا تميم جزيت خيراً على ما قدمت جهد طيب وتفاعل مشكور مع موقعكم وملتقاكم الذي يكِنّ كل الإحترام والتقدير لجميع منتسبيه وزواره. أثمن عالياً ما قدمت بروح طيبة ، وانما يدّل ذلك على طيب خلقك وبساطتك وسمو محبتك لإخوتك وما يجمعك معهم. مع إحترامي وتقديري لشخصكم الكريم مع تمنياتي بدوام المتابعة للشريط لتطويره وبقائه دوماً كما يجب أن يكون. .................

جزيت خيراً أخي العزيز فكرة جميلة ... وإسقاط ذكي شكراً لك

حبذا لو أنك زودت إخوتك ببعض التفاصيل ، كي يتمكنوا من مساعدتك بالمطلوب ..............

أخي العزيز حاول الاستفادة من الرابط .......... http://www.officena.net/ib/index.php?showtopic=39192 ................

أخي العزيز دون الدخول في كثير من التفاصيل ، نجيب مباشرة على تساؤلاتك القيمة المسجلة في حقل نعم/لا للخيار نعم هي -1 القيمة المسجلة في حقل نعم/لا للخيار لا هي 0 من التجارب و البحث هدانا الله لهذه الطريقة الإلتفافية باستخدام الدالة Sum بدلا من الدالة Count، للحصول على عدد اجابات نعم في الحقل المعني ، حيث نقوم بجمع القيم المسجلة في الحقول للحصول على عدد الإجابات نعم ، والتي تمثل -1 في كل حقل ، وعند جمعها (ولتكن 4 سجلات) -1 + -1 + -1 + -1 = -4 وللحصول على رقم موجب يمثل بالنتيجة عدد الخيارات ، نضرب الناتج في -1، أي -4 * -1 = 4. أما حساب الخيار (لا) فهي مسألة أخرى ... والله أعلم ، وفوق كل ذي علم عليم ...........

أخي العزيز إطلع على الإستعلام Query1 ... فيه الحلّ بإذن الله ... والله من وراء القصد ..... ............. NA_CountYesNoQuery.zip

تطبيق الترتيب التصاعدي والتنازلي و تفقيط الأعداد من 1 - 100 ........... كطلب الأخ الشاعر ........ ومساهمة الأخ أحمد خلف وتطبيق نارت لبزو http://www.officena.net/ib/index.php?showtopic=41272 .....................

تابع المرفقات على الرابط ......... http://www.officena.net/ib/index.php?showtopic=41272 ...........

أخي العزيز المرفق فيه حلَ تفصيل على قياس حاجتك وبحجم رغبتك ... عزيزي .. لا يجوز أن يكون حقل النسبة نصياً (حولته لرقم) ، وطبقنا نصيحة أخيك أحمد ، وأضفت لك وحدة نمطية لتحويل الأرقام من 1 الى 100 لأحرف عربية ، من خلال M_Tarteeb ، وطبقتها في النموذج. جرب المنتج النهائي ووافني بالنتيجة ... لأخيك أحمد ، ولي عندك دعوة بظهر الغيب ... طيبة والله من وراء القصد .... .............. NA_Tarteeb.rar

فكرة لتثبيت مسار ملف إكسيل وربط ورقة محددة منه بالأكسيس كجدول مرتبط ، عبر الكود ...... كطلب الأخ nash60 ........ وتطبيق نارت لبزو http://www.officena.net/ib/index.php?showtopic=41267 ....................

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

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

أخي العزيز هذا وذاك متاحان ولكن حبذا لو وضحت لي بالتحليل و التوضيح الروتين المطبق !! ................

أخي العزيز أيمن طلبك واضح ، ولكن ما هو الشكل المبتغى للنتيجة ، استعلام أو نموذج ام تقرير!؟ ................

أخي العزيز إصبر علينا قليلاً ، فلما يتاح طلبك نجيب عليك قريباً بإذن الله آملاً بتعاون الإخوة ....... ...........