-
Posts
3,292 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
29
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أبو آدم
-
ما إمكانية التعديل على ملفات mde -- عنوان معدّل
أبو آدم replied to فؤاديحيى's topic in قسم الأكسيس Access
كان هذا نص رد الأخت زهرة باحدى المنتديات العربية ردا على نفس الاستفسار أتمنى لك الفائدة ؟؟؟؟؟؟ -
(تمت الاجابة) كود ضغط واصلاح قاعدة بيانات 2010 برمجيا
أبو آدم replied to alcasir's topic in قسم الأكسيس Access
أخي العزيز في 2010 أظن (ومما قرأت) أن الضغط والإصلاح يكون أفضل من خلال قاعدة أخرى ... و فوق كل ذي علم عليم ............. -
ما إمكانية التعديل على ملفات mde -- عنوان معدّل
أبو آدم replied to فؤاديحيى's topic in قسم الأكسيس Access
أخي العزيز فؤاد أتمنى عليك لاحقاً إختيار عنوان واضح الدلالة لفحوى الموضوع أما ما خضناه من تجارب متواضعة (يوصلني شخصياً) لقناعة بأن التعديل في ملفات mde محاولات عبثية لا تثمر عن نتائج حقيقية. والله أعلم ... وفوق كل ذي علم عليم .................. تم تعديل العنوان لتوضيح الدلالة .................. -
(تمت الاجابة) كيف نربط أمر برقم من لوحة المفاتيح مع صوت؟
أبو آدم replied to حامل المسك's topic in قسم الأكسيس Access
جزيتم خيراً """ سهل ممتنع """ بارك الله بكما .......... تمت الاجابة -
فائدة -- برنامج لمعرفة أرقام الآسكي للوحة المفاتيح (Ascii)
أبو آدم replied to حامل المسك's topic in قسم الأكسيس Access
بارك الله بك ..................... -
(تمت الاجابة) استعلام تحديث جدول من نموذج
أبو آدم replied to الموسى1423's topic in قسم الأكسيس Access
أخي العزيز هل هذه تفي بالغرض .... 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 -
الحفظ مباشرة على قرص متحرك (الفلاش ميموري)
أبو آدم replied to ahmedeg_eg's topic in قسم الأكسيس Access
متابعة ... -
(تمت الاجابة) حذف سجل ونقله الي جدول اخر
أبو آدم replied to mostafaatiya's topic in قسم الأكسيس Access
مع تقديري لمساهمات الإخوة ... سأُوافيك بالمتاح .. لمّا يتاح ...... -
حذف مستندات محددة في مجلد والإبقاء على أخرى حسب التاريخ والأقدمية
أبو آدم replied to ابوخليل's topic in قسم الأكسيس Access
إخوتي الفضلاء أخي الحبيب أبو خليل أرفق لكم ما فتح الله به عليّ ، مما أدركت من طلبك أخي الحبيب (آملاً أن أكون قد أحسنت الفهم عنك) أهم ما في المسألة الإلتزام بما أسلفت ذكره في المشاركة 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
-
المساعدة في قاعدة بيانات موظفين (عنوان معدل)
أبو آدم replied to الدهشوري's topic in قسم الأكسيس Access
أخي الدهشوري أشغلنا العنوان ، حتى نوضح ما تريد ، لتحصل على ردّ مناسب فلا تغضب منّا ... و أمهل إخوتك ..... الإخوة الفضلاء في المنتدي للرفع -
حذف مستندات محددة في مجلد والإبقاء على أخرى حسب التاريخ والأقدمية
أبو آدم replied to ابوخليل's topic in قسم الأكسيس Access
جزيت خيراً أخي الحبيب بالتجربة ... عند التعامل مع معلومات النظام -المتاحة- للملف تظهر بعض التناقضات ، وجدت مثلاً تاريخ الإنشاء اليوم الثامن عشر من الشهر وتاريخ آخر فتح للملف اليوم السابع عشر ، تبعاً لعمليات النسخ و النقل. ما هو قيد التجربة لدي يعتمد على تطويع المعلومات المتاحة - بافتراض أننا نتعامل مع نظام قائم لا نريد العبث به كثيراً- وبافتراض أن التسمية مؤتمته ومنهجية طبقاً لوقت إنشاء الملف. ثم ننشئ جدولاً بالملفات محتويات المجلد ، باستجلاب وتطويع منظومة من المعلومات تساعدنا لتحديد آخر ملفين تم إنشاؤهما ، وبالتالي حذف سجلات هاذين الملفين من الجدول. واعتماداً على ما بقي من سجلات في الجدول نقوم بحذف الملفات من المجلد بشرط التطابق مع معلوماتها في الجدول ... وبالتالي يبقى لدينا في المجلد احدث ملفين فقط والتطبيق قيد العمل بمراحله الأخيرة ...... ................. -
(تمت الاجابة) حذف سجل ونقله الي جدول اخر
أبو آدم replied to mostafaatiya's topic in قسم الأكسيس Access
أنسب أن تعيد النظر في تصميم وروتين النموذج ليسهل التطبيق بانتظار ردّك ............... -
الحفظ مباشرة على قرص متحرك (الفلاش ميموري)
أبو آدم replied to ahmedeg_eg's topic in قسم الأكسيس Access
أخي العزيز بالتحليل والتجربة و التدقيق ، نجد أن المسألة تتعلق بالنسخ الإحتياطي ، وخصوصية طلبك أنك تريد هذا النسخ أن يوجه لقرص متبدل ، وهو "الفلاشا" كما أسميتها والعلة هنا في توجيه عملية النسخ الاحتياطي (وليس الحفظ) للقرص المتبدل ، و هنا أنويه لمنطقية طرح الأخ عمرو ، وبالتالي ، يكون الروتين المتبع كما يلي: زرع ملف (مهما كان امتداده) على القرص المتبدل ، وعند الرغبة باجراء النسخ الاحتياطي ، يتم البحث عن هذا الملف وتحديد موقعه ، وتوجيه النسخ الاحتياطي للقرص المحدد. بادر في التنفيذ اذا ناسبتك الفكرة ، ونحن في العون ما قدّر لنا ............... -
أخي العزيز أنا أتفاعل معك كأي مستخدم بسيط ، دون تدقيق المرفق ... أطبق فقط و أوافيك بالنتائج تفاعلاً وتشجيعاً وإسناداً لجهدك الطيب. سيتم التحميل و التدقيق وموافاتك بالنتائج ، بإذن الله مع طمعنا بتفاعل الإخوة ........ ..................
-
حذف مستندات محددة في مجلد والإبقاء على أخرى حسب التاريخ والأقدمية
أبو آدم replied to ابوخليل's topic in قسم الأكسيس Access
إخوتي الفضلاء رغم بطئ الإنجاز لعوارض مانعة ، إلا أنني إقتربت من تفصيل كود يتناسب مع حاجات رفيق دربي إستخدام تاريخ الإنشاء للملف عليه بعض المحاذير بعدم الدقة عند النقل او النسخ أحياناً ، وبالتجربة يعطيني غالباً نتائج غير دقيقة معولاً على أن التسمية للملف مؤتمتة وتتم بشكل دقيق باستخدام السنة و الشهر واليوم و الساعة و الدقيقة ، سيتم بعون من الله تزويدكم بالكود قريباً ، وفق روتين منطقي بسيط . قيد التجربة لتجنب الأخطاء و العثرات ... وقد يبقى ما لا يخطر على البال ، من إستثناءات أمهلوني قليلاً وسأكون معكم بإذن الله والله من وراء القصد