أبو آدم

قيد العمل

جميل أخي الوزير

حياكم الله شكرا

إخوتي الفضلاء التطبيق المرفق يغطي كافة أزرار التنقل بين السجلات Navigation Buttons و توليفة حالاتها يغطي Back و Next و New و First و Last مع مربع نص لاظهار عدد السجلات مع توليفة أحواله مع امنياتي بعموم الفائدة و الله من وراء القصد ... - اعادة توجيه للمشاركة NA_Navigation Buttons.rar

أزرار التنقل بين السجلات Navigation Buttons و عداد السجلات Record Counter تطبيق العبد الفقير لرحمة ربه نارت لبزو / أبو آدم https://www.officena.net/ib/topic/81343

يرجى تخصيص موضوع جديد للسؤال الجديد شكرا

أخي رعد هل فكرت باستخدام tabbed form

أخي عبد الفتاح انا جاهز و بالخدمة شكرا

اخي العزيز حفظ مرفق واحد في مربع الحوار المرفقات، انقر فوق حفظ باسم. يظهر مربع الحوار حفظ مرفق. استخدم القائمة حفظ في للانتقال إلى الموقع الجديد للملف، ثم انقر فوق حفظ. حفظ جميع المرفقات في مربع الحوار المرفقات، انقر فوق حفظ الكل. يظهر مربع الحوار حفظ المرفقات. استخدم القائمة بحث في للانتقال إلى الموقع الجديد لملفاتك، ثم انقر فوق حفظ. ........... Save a single attachment In the Attachments dialog box, click Save As. The Save Attachment dialog box appears. Use the Save in list to navigate to the new location for your file, and then click Save. Save all attachments In the Attachments dialog box, click Save All. The Save Attachments dialog box appears. Use the Look in list to navigate to the new location for your files, and then click Save.

أخي طاهر هناك مشاركات عديدة ... أي كود استخدمت ... شكرا

يقول خبراء بان الخلافات المزعومة بين Exists و INفي التقنية و الاداء ناتجة عن عدم ادراك (implementations, limitations,bugs ) التطبيقات و المحددات او الحدود و الاخطاء لدى البعض ، و عموما ناتجة في غالبها عن قصور في فهم صحيح لقواعد البيانات . إن التحليل السليم وإحسان تعريف وإنشاء الجداول، ودقة الإحصاءات، وتكوين قاعدة بيانات سليمة ، لها تأثير على خطة التنفيذ للقاعدة وبالتالي على مقاييس الأداء والفاعلية . و للتفصيل نقول ، لا بد من ادراك المشغلات و الجمل و غاياتها و استيعاب تطبيقاتها و محدداتها ( حدودها ) قبل التعامل معها و / أو اختيار أي منها ، فلا بد من تطابق غايتنا من الاستخدام مع الغاية التي جعلها المطورون لهذا المشغل او الجملة ، بالاضافة لمراعاة الحدود و السرعة الافتراضية لاظهر النتائج و الوصول للغايات. و ابتداءا ... لماذا لا نتحقق من الناس الذين طوروا تلك المشغلات في أنظمتهم؟ الجواب المباشر من Microsoft يقول بان : IN Determines whether a specified value matches any value in a sub query or a list. لتحديد ما إذا كانت قيمة محددة تطابق أي قيمة في استعلام فرعي أو قائمة. EXISTS: Specifies a sub query to test for the existence of rows. تخصيص استعلام فرعي لاختبار وجود صفوف. و بالبحث في الغايات نجد أن : Exists مشغل يتحقق من وجود نتيجة استعلام فرعي ، يختبر المشغل ما إذا كان طلب البحث الفرعي يجلب صفا واحدا على الأقل ليعود بالقيمة True، اما اذا لم يتم إرجاع أي بيانات ، يقوم هذا المشغل بالعودة بالقيمة FALSE. Exists هو: · مشغل مقارنة comparison operator · يستخدم في جملة Where ليقيم شرط It Exists · يخبرك اذا كان الاستعلام قد عاد باي نتيجة · يعود بالقيمة True اذا كان الاستعلام الفرعي يحتوي أي صف SELECT agent_code,agent_name,working_area,commission FROM agents WHERE exists (SELECT * FROM customer WHERE grade=3 AND agents.agent_code=customer.agent_code) ORDER BY commission; IN مشغل يقوم بالتحقق من قيمة ضمن مجموعة من القيم مفصولة بفواصل واسترجاع صفوف الجدول المطابقة ، ويرجع بالقيمة 1 عندما تكون قيمة البحث الموجودة ضمن النطاق وخلاف ذلك يرجع بالقيمة 0. يمكن أن تكون قيمة التحقق قيمة نصية ، سلسلة أو كلمة أو جملة (string , word , sentence ) ، أو قيمة رقمية ، ويمكن أيضا التحقق من هذه القيم ضمن مجموعة من القيم مفصولة بفواصل واسترجاع الصفوف التي تحتوي على هذه القيم . SELECT * FROM agents WHERE working_area IN(‘London’,’Mumbai’,’Chennai’); و بالتنقيب بين ملاحظات المطورين و المستخدمين في باب الغايات و باب السرعة ، نورد لكم بعض الملاحظات و التطبيقات من هنا وهناك : IN يدعم فقط علاقات المساواة (أو عدم المساواة عندما يسبقه Not). وهو مرادف ل = أي / = بعض، على سبيل المثال select * from t1 where x in (select x from t2) ; Exists يدعم أنواع مختلفة من العلاقات، والتي لا يمكن التعبير عنها باستخدام IN ، على سبيل المثال select * from t1 where exists (select null from t2 where t2.x=t1.x and t2.y>t1.y and t2.z like '℅' || t1.z || '℅' ) ; في IN لا يمكن مقارنة أي شيء مع NULL ، ولكن شرط Exists يمكن مقارنة كل شيء مع NULL . عندما لا تعرف ان كان السجل موجودا أم لا، يجب عليك اختيار EXIST عندما يكون طلب البحث الداخلي لجلب ألاف الصفوف، سيكون Exists هو الخيار الأفضل عندما يكون طلب البحث الداخلي لجلب صفوف محدودة ، سيكون IN أسرع هذا عموم القول و بعض تفصيله .....

أبشر أخي العزيز قيد الرد ...

SQL EXISTS يتم استخدام مشغل EXISTS لاختبار وجود أي سجل في استعلام فرعي ، حيث يعود بالناتج True إذا قام الاستعلام الفرعي بإظهار سجل واحد أو أكثر ، و بالنتيجة تحصل على قائمة بالسجلات المطابقة للشروط . عبارة SQL التالية تعود بالناتج True و تسرد قائمة بالعملاء اللذين تم التعامل معهم ابتداء من منتصف الشهر 12 SELECT CustomerName FROM Customers WHERE EXISTS (SELECT ProductName FROM Products WHERE CustomerId = Customers.CustomerId AND strDate < #15/12/2017#); و بناء الجملة يتم كما يلي : SELECT column_name(s) FROM table_name WHERE EXISTS (SELECT column_name FROM table1_name WHERE condition);

عموما أخي العزيز تفضل ... https://www.officena.net/ib/topic/38385-كشكول-vba-متجدد/?page=5&tab=comments#comment-517266

حفظ معلومات سجل في النموذج ، في أي جدول يتم اختياره ، سواء لتجنب الحفظ التلقائي أو لاضافة سجل في جدول ثاني ، .... باستخدام INSERT INTO Dim insertstring As String insertstring = "INSERT INTO Table2 (strCode, strName, strDate) VALUES ('" & _ TxtCode.Value & "','" & _ TxtName.Value & "','" & _ TxtDate & "');" DoCmd.RunSQL insertstring

حفظ السجل عبر الكود من النموذج من الافكار الدارجة لتجنب الحفظ التلقائي يستخدم لحفظ جزء او كل معلومات السجل من النموذج لجدول آخر خلف زر الأمر CmdSave إستخدم الكود التالي Private Sub CmdSave_Click() Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("Table2") With rst .AddNew .Fields("strCode") = TxtCode.Value .Fields("strName") = TxtName.Value .Fields("strDate") = TxtDate .Update End With End Sub

هذه جمالية مشاركة العقول شكرا

أنت الرائع أخي عبد الفتاح سرني مرورك شكرا

حياك الله ابا ابراهيم أحب انا منك ان تتابع وتمر على المشاركات ، فمرورك و اخوتك الطيبون يسرنا ، علنا ننال مزيد أجر من تكرار مروركم سرني و ابهجني مرورك شكرا

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

أخي أحمد قمت بالتطبيق ولم تظهر رسالة الخطأ ولم أجد في الكود الحقل محل الاعتراض وهو date_n ضمن الحقول بالتطبيق تم اضافة 44 سجل لشهر ديسمبر في الجدول WORKERS_NAPSA ، قمت بحذفها ، و باعادة التطبيق فقام باضافة 44 سجل دون اي اعتراض ؟؟

أو إستخدم الجملة select Field1 from Table1 where Field1 = ( select max(Field1) from Table1 where Field1 < ( select max(Field1) from Table1 ))

للتعرف على ثاني أعلى قيمة SELECT Min(Field1) AS Top2 FROM table1 WHERE (((table1.[Field1]) In (SELECT TOP 2 Field1 from table1 ORDER BY Field1 DESC))); أو select Field1 from Table1 where Field1 = ( select max(Field1) from Table1 where Field1 < ( select max(Field1) from Table1 ))

أخي عماد في محرر SQL لاستعلام جديد إنسخ الكود التالي بعد تعديل اسم الجدول و اسم الحقل ، كما هو لديك SELECT Min(Field1) AS Top2 FROM table1 WHERE (((table1.[Field1]) In (SELECT TOP 2 Field1 from table1 ORDER BY Field1 DESC))); مرفق التطبيق والله من وراء القصد ... شكرا NA_Top2.rar

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