أبو آدم

كان هذا نص رد الأخت زهرة باحدى المنتديات العربية ردا على نفس الاستفسار أتمنى لك الفائدة ؟؟؟؟؟؟

أخي العزيز في 2010 أظن (ومما قرأت) أن الضغط والإصلاح يكون أفضل من خلال قاعدة أخرى ... و فوق كل ذي علم عليم .............

أخي العزيز فؤاد أتمنى عليك لاحقاً إختيار عنوان واضح الدلالة لفحوى الموضوع أما ما خضناه من تجارب متواضعة (يوصلني شخصياً) لقناعة بأن التعديل في ملفات mde محاولات عبثية لا تثمر عن نتائج حقيقية. والله أعلم ... وفوق كل ذي علم عليم .................. تم تعديل العنوان لتوضيح الدلالة ..................

جزيتم خيراً """ سهل ممتنع """ بارك الله بكما .......... تمت الاجابة

بارك الله بك .....................

أخي العزيز هل هذه تفي بالغرض .... Private Sub Form_Close() Dim stDocName As String Me.ss.Requery DoCmd.SetWarnings False stDocName = "update2" DoCmd.OpenQuery stDocName, acNormal, acEdit DoCmd.SetWarnings True End Sub

متابعة ...

مع تقديري لمساهمات الإخوة ... سأُوافيك بالمتاح .. لمّا يتاح ......

إخوتي الفضلاء أخي الحبيب أبو خليل أرفق لكم ما فتح الله به عليّ ، مما أدركت من طلبك أخي الحبيب (آملاً أن أكون قد أحسنت الفهم عنك) أهم ما في المسألة الإلتزام بما أسلفت ذكره في المشاركة 6 من تأكيد على تنسيق وأتمتة إسم الملف. وفي المرفق نسخة من مجلد الملفات لإعادة النسخ في المجلد xx . جرِّب ووافني بالنتيجة ........ والله من وراء القصد ................ NA_DeleteFiles.rar

أخي الحبيب ألا إني أُحبك في الله شَكر الله لك ، وأحسن اليك اللهم إني أسألك من خير ما سألك منه نبيك محمد صلى الله عليه وسلم ونعوذ بك من شر ما استعاذ منه نبيك محمد صلى الله عليه وسلم ، وأنت المستعان وعليك البلاغ . ولا حول ولا قوة إلا بالله . اللهم إني أسألك علماً نافعاً وأعوذ بك من علم لا ينفع.

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

الحمدلله الذي بفضله تقضى الحاجات (تمت الاجابة)

أخي العزيز بالتعامل مع التطبيق الذي أرفقته بمشاركتك أيقونة التصدير الى إكسيل (عندي) متاحة !! هل يمكن أن ترفق لنا صورة !!! ...........

﴿لاَ يُكَلِّفُ اللّهُ نَفْساً إِلاَّ وُسْعَهَا ﴾ [البقرة/286]. إخوتي الفضلاء ... أحبتي في الله كنت بينكم من سنوات أخاً محباً لكم في الله ، طالباً للعلم ما قُدّر لي ، مسخراً ما علّمني ربي لمنفعة إخوتي وأقراني ما سعيت يوماً و الله حسيبي إلا لنشر علم مَنّ الله به عليّ ، ﴿وَمَا أَسْأَلُكُمْ عَلَيْهِ مِنْ أَجْرٍ إِنْ أَجْرِيَ إِلَّا عَلَى رَبِّ الْعَالَمِينَ﴾ [الشعراء/127]. بذلت غاية جهدي أن أوجه النية وأُحسن توجيهها كي تكون خالصة لوجه الله تعالى فإن أحسنت معكم فاذكروني بخير و ليكن لي عندكم دعوة طيبة بظهر الغيب ، أنتفع بها ، ﴿ يَوْمَ لا يَنفَعُ مَالٌ وَلا بَنُونَ * إِلا مَنْ أَتَى اللَّهَ بِقَلْبٍ سَلِيم ﴾ [الشعراء/88 و 89]. وإن أسيئ فهمي أو لم يحسن أي أخ منكم الفهم عني ، وإن قصرّت مع أي منكم أو وعدته وما أوفيت ، فليس قصداً مني ، ولكن قدًر الله وما شاء فعل ، ولله الأمر من قبل ومن بعد ، فإن قُضيت الحاجات فبقدر الله وفضله وتيسيره وفتح منه ، وما عجزت عن تنفيذه فليس نكثاً لوعد أو عهد ، وجئت اليوم أحدثكم بأنني ألتزم ما إستطعت وإخوتي فإن قصّرت فاعذروني و أخصّ من وعدته بشيئ لم أستطع تنفيذ ، فليسامحني تَصّدقاً منه عليّ. ﴿أَفَمَن يَعْلَمُ أَنَّمَا أُنزِلَ إِلَيْكَ مِن رَبِّكَ الْحَقُّ كَمَنْ هُوَ أَعْمَى إِنَّمَا يَتَذَكَّرُ أُوْلُواْ الأَلْبَابِ الَّذِينَ يُوفُونَ بِعَهْدِ اللّهِ وَلاَ ينقُضُونَ الْمِيثَاقَ﴾ [الرعد: 19] و روى عبادة بن الصامت رضي الله عنه أن رسول الله صلى الله عليه وسلم قال : ( اضمنوا لي ستا من أنفسكم أضمن لكم الجنة : اصدقوا إذا حدثتم، وأوفوا إذا وعدتم، وأدوا إذا ائتمنتم، واحفظوا فروجكم، وغضوا أبصاركم، وكفوا أيديكم) رواه أحمد 323/5 والله من وراء القصد

أخي الحبيب إستكمالاً لما تفضل به أخي Bluemind وتحقيقاً لما في استطرادك بالطلب الأخير (إن كنت قد أحسنت الفهم عنك) ، يعدل الكود كما يلي: Private Sub txtqus_AfterUpdate() Dim intQNo As Integer Dim strSQL2 As String Dim intStuNo As Integer Dim intQf As Integer Dim LResponse As Integer Dim strSQL As String On Error Resume Next intQNo = Forms!stuInfoo!txtqus.Value intStuNo = Forms!stuInfoo!no.Value intQf = DLookup("[nos]", "degree", "[nos] = " & Forms![stuInfoo]![no]) If intQf > 0 Then LResponse = MsgBox("مسجل للطالب سجلات سابقة ، هل ترغب بإستبدالها", vbYesNo, "Continue") If LResponse = vbYes Then strSQL = "DELETE FROM [degree] " & _ "WHERE [nos] = " & Forms![stuInfoo]![no] CurrentDb.Execute strSQL, dbFailOnError Forms!stuInfoo!Subform_degree1.Form.Requery Else End If End If For i = 1 To intQNo strSQL2 = "INSERT INTO degree (nos,noQ) Values(" & Forms!stuInfoo!no & ", " & i & ")" CurrentDb.Execute strSQL2, dbFailOnError Next i Forms!stuInfoo!Subform_degree1.Form.Requery End Sub والله من وراء القصد ..........

علّمني ربي أن الدعوات الطيبات تلهج بها ألسنة ذاكرة وقلوب خاشعة ، وهي زاد المحبة بين الإخوة. جزيت خيراً آملاً أن تكون حاجتك قد قضيت !! ............

أخي الفاضل الفضل لله من قبلُ ومن بعد ، ولا منةَ بيننا ملاحظة: جدول الأحياء : أضف اليه حقلاً برمز الدولة الى جانب رمز المدينة ، وعدّل شروط مصدر الصف t3 في النموذج

أللهم آمين تفضل أخي الفاضل آملاً أن يكون هذا مرادك ......... ........... Private Sub Form_Current() Me.t2.Requery Me.t3.Requery End Sub

أخي العزيز ما رأيك أن نتعاون لنطور هذا " البدائي جداً" ليصبح مناسباً لحاجاتك !! ........... شكراً للأخ aimanano على التفاعل

أخي الدهشوري أشغلنا العنوان ، حتى نوضح ما تريد ، لتحصل على ردّ مناسب فلا تغضب منّا ... و أمهل إخوتك ..... الإخوة الفضلاء في المنتدي للرفع

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

أنسب أن تعيد النظر في تصميم وروتين النموذج ليسهل التطبيق بانتظار ردّك ...............

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

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

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