jjafferr

السلام عليكم 🙂 في الرابط المرفق ، انا ارفق الملفات اللي اريدها ، بصيغة Blob ، في حقل OLE ، في قاعدة البيانات (mdb او accdb) ، وكود لاستراد الملف لقاعدة البيانات ، وكود لتصدير الملف الى القرص الخارجي ، وهناك كود لجعل الملف يعمل مباشرة ، عن طريق احد النماذج (يصدر الملف الى مجلد Windows Temp ، ويقوم بجعل الملف يعمل المطلوب منه 🙂 ) . جعفر

وعليكم السلام اخوي حسنين 🙂 ضعنا بين الدروس ومختلف الاكواد اعمل فينا خير ، واجمع كود الموضوعين في كود واحد ، وخلي الكود يقرأ صيغة الملف المطلوب تشغيله ، ثم يشغله بالكود المناسب ، واذا صيغة الملف غير عن wav او mp3 ، فخلي البرنامج الافتراضي يشغله 🙂 وخلي الكود في الموضوع ، وبطريقة مناداة الدوال ، وبمثال مرفق 🙂 جعفر

حيالله اخوي شفان 🙂 بالاضافة الى اقتراح اخوي شفان 🙂 اذا كان عندك برمجة جديدة لا توجد في الاكسس 2007 ، مثل: Data Macro : الماكرو المضمن Navigation Forms : https://www.tutorialspoint.com/ms_access/ms_access_navigation_form.htm فلا يستطيع الاكسس 2007 فهمها ، لأنها اصلا غير موجودة فيه. جعفر

شكرا جزيلا اختي الفاضله ، فنحن بالفعل محظوظين بوجود هذه الكوكبة من الخبراء بيننا 🙂 وحسب قوانين المنتدى ، رجاء وضع سؤال واحد لكل مشاركة ، فرجاء فتح موضوع جديد وكتابة السؤال فيه ، ورجاء ان تعطي جميع المعلومات وبالتفصيل ، و عنوان صفحة الانترنت ، لأن الجميع سيحاول قبل ان يرد عليك🙂 جعفر

وعليكم السلام 🙂 المفروض انها تفتح ، إلا اذا لم تكن عملت تحديث للاوفيس 2007 !! فهناك بعض الميزات الموجودة في 2010 والتي تم إضافتها الى تحديثات 2007 🙂 واليك روابط حزم التحديث الموجودة للاوفيس 2007: Microsoft Office 2007 System (with 2007 Microsoft Office Suite Service Pack 1 (SP1)) Microsoft Office 2007 System (with 2007 Microsoft Office Suite Service Pack 2 (SP2)) Microsoft Office 2007 System The 2007 Microsoft Office Suite Service Pack 3 (SP3). جعفر

نعم ، يبدأ بالرقمين 00 (في الواقع هناك ارقام اخرى فيها 00 ، لهذا السبب يجب ان نبدأ بمسافة ثم صفرين "00 ") ، ولكن لا نعطيه طول ، وانما نقول له لما ينتهي الرقم ونحصل على "مسافة فارغة" بعده ، فهذه المسافة هي تعطي الطول الصحيح ، وبغض النظر عن طول الرقم ، يعني بالنسبة لبرنامجي انا ، الكود يكون: iMobile_x: Mid([All],InStr([All]," 00")+1,InStr(InStr([All]," 00")+2,[All]," ")-InStr([All]," 00")-1) وبالنسبة الى برنامجك ، الكود يكون: iMobile_x: Mid([Comment],InStr([Comment]," 00")+1,InStr(InStr([Comment]," 00")+2,[Comment]," ")-InStr([Comment]," 00")-1) جعفر

في الواقع الارقام في قاعدة البيانات غير صحيحة !! فمثلا الرقم 00971026678588 والصحيح هو 0097126678588 يعني طوله 13 رقم !!

نعم ، لأن هذا الكود معمول خصيصا لارقام هذا الموضوع ، وانت قمت في الكود بحل هذه الاشكالية بوضع الرقم 14 (اي طول رقم الهاتف) ، والذي لا يحل مشكلة ارقام سلطنة عمان وهي 13 رقم ، مثل 0096812345678 ، فالطريقة التي يمكن ان نحل هذه المشكلة ، هي بأن يكون هذا الرقم متغير ، نأخذ قيمته من النموذج الرئيسي مثلا ، سواء لطريقتي او طريقتك 🙂 جعفر

السلام عليكم 🙂 يا بشمهندس ابا جودي ، الوحدات النمطية وعرفنا سببها ، ولكن ليش بقية الكود في حذف كائنات الاستعلامات ، ثم عملها مرة ثانية بالكود !! يعني كان يكفينا: DoCmd.SetWarnings False 'اوقف الرسائل التحذيرية 'احذف بيانات الجدول DoCmd.RunSQL "DELETE * FROM tbluaecompaniesSplitData" 'الحق البيانات docmd.openquery "qryGetData" DoCmd.SetWarnings True 'شغل الرسائل التحذيرية العضو الغير محترف لما يشوف كل هذه الاكواد يتلخبط ، ويعتقد ان الكود المعقد هو السبيل الصحيح في مثل هذه الاعمال ، والبديل عن الاستعلام البسيط !! وهذا ما حصل لأخونا وائل عبد الرحمن (واللي الآن متواجد بيننا بإسم مستعار ، فأهلا وسهلا به بيننا محافظا على قوانين المنتدى مثلنا) ، فأخونا ضاع بين الاكواد ، ولايزال ضايع وتايه ، بينما كنت قد اخبرته بأن الاستعلام هو اسهل وافضل الطرق !! واشكرك على ملاحظتك جعفر

السلام عليكم 🙂 همم ، ماشاءالله ، يعني عندكم فرح ، وكل الخبراء حاضرين مع الاخ Barna ، وانا ما اشارك !! مشاركتي تختلف عن مشاركاتكم ، بالاستعلام ، وبس ، وبجميع الحقول 🙂 . . اما بالنسبة الى الاخطاء ، فما اردت ان امضي وقت اكثر على الاستعلام وتصدي مكان الخطأ ، فلما نلحق هذه البيانات في الجدول ، فلن تظهر هناك ، وفي التقرير تم ايقافها 🙂 جعفر 1054.uae-com.accdb.zip

السلام عليكم 🙂 وفي توقيع اخوي @ابوخليل عنده هذا البرنامج 🙂 جعفر

الموضوع اصبح جزء من

في الواقع عملت على النسخة التالية من برنامج الرابط ، بعدة اضافات ، والاهم ، انك تقدر تنادي الوحدة النمطية اللي تقوم بالعمل ، وترسل لها البيانات ، بسطر واحد ، وهي تقوم بباقي العمل 🙂 جعفر

السلام عليكم 🙂 اخي كاسر 🙂 الكود اللي استعملته ، بإستخدام الامر Dcount ، واللي هو عبارة عن استعلام خاص للجمع 🙂 فانت تعمل 20 استعلام لتحصل على المطلوب 🙂 فقمت انا بعمل هذا الاستعلام ، واللي اخذت المعايير من كودك ، وبدون تغيير فيها SELECT Abs(Sum([العمر] Between 0 And 14 And [الجنس]='ذكر')) AS T21, Abs(Sum([العمر] Between 15 And 20 And [الجنس]='ذكر')) AS T22, Abs(Sum([العمر] Between 21 And 30 And [الجنس]='ذكر')) AS T23, Abs(Sum([العمر] Between 31 And 40 And [الجنس]='ذكر')) AS T24, Abs(Sum([العمر]>=41 And [الجنس]='ذكر')) AS T25, Abs(Sum([العمر] Between 0 And 14 And [الجنس]='أنثى')) AS T27, Abs(Sum([العمر] Between 15 And 20 And [الجنس]='أنثى')) AS T28, Abs(Sum([العمر] Between 21 And 30 And [الجنس]='أنثى')) AS T29, Abs(Sum([العمر] Between 31 And 40 And [الجنس]='أنثى')) AS T30, Abs(Sum([العمر]>=41 And [الجنس]='أنثى')) AS T31, Abs(Sum([طبيعة الإعاقة]='حركي' And [الجنس]='ذكر')) AS T51, Abs(Sum([طبيعة الإعاقة]='ذهني' And [الجنس]='ذكر')) AS T52, Abs(Sum([طبيعة الإعاقة]='سمعي' And [الجنس]='ذكر')) AS T53, Abs(Sum([طبيعة الإعاقة]='بصري' And [الجنس]='ذكر')) AS T54, Abs(Sum([طبيعة الإعاقة]='متعدد الإعاقة' And [الجنس]='ذكر')) AS T55, Abs(Sum([طبيعة الإعاقة]='حركي' And [الجنس]='أنثى')) AS T58, Abs(Sum([طبيعة الإعاقة]='ذهني' And [الجنس]='أنثى')) AS T59, Abs(Sum([طبيعة الإعاقة]='سمعي' And [الجنس]='أنثى')) AS T60, Abs(Sum([طبيعة الإعاقة]='بصري' And [الجنس]='أنثى')) AS T61, Abs(Sum([طبيعة الإعاقة]='متعدد الإعاقة' And [الجنس]='أنثى')) AS T62 FROM العمر; ومن استعلام واحد حصلت على جميع نتائجك 🙂 . وعملت نسخة من تقريرك ، وحذفت الكود ، وحفظته باسم rpt_NEW ، وكله تمام 🙂 بس الفرق هو ، سرعة اظهار التقرير 🙂 جعفر 1051.Handicapées -kaser906l.accdb.zip

هممم في الواقع ، ولأول مرة ابوح بهذا الشيء بالتفصيل : في الفترة بين 2003 و 2007 كنت اشارك في المنتدى الاجنبي https://www.experts-exchange.com/members/jjafferr.html وفي سنة 2005 اصبحت احد افضل 15 مشارك/خبير في منتدى الاكسس هناك https://www.experts-exchange.com/questions/21454217/jjafferr-Top-15-Overall-HOF.html وتدرّجت الى ان وصلت الرقم 10 على ما اتذكر ، وحصلت على اعلى شهادة يُعطيها الموقع آنذاك Genuis 🙂 لهذا السبب ، صدقني لما اقول ، ولازلت مُصر ، بأني لم ارى استعمال WebBrowser كما تستعمله انت ، كنموذج يحاكي بقية كائنات قاعدة البيانات 🙂 جعفر

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

وعليكم السلام 🙂 واهلا وسهلا بك في قسم الاكسس 🙂 في الواقع سؤالك غير واضح ، فعادة لا نرفع مشروع VBA بطريقة مستقله ، وانما يكون جزء من قاعدة البيانات ، وهذه طريقة ربط جداول الاكسس مع مجموعة مستخدمين: جعفر

السلام عليكم 🙂 ممكن لوسمحت تشرح هذه النقطة ، فلم اسمع بها سابقا !! جعفر

وعليكم السلام 🙂 هذا الرابط قد يفيدك جعفر

السلام عليكم 🙂 متابع دردشة الشباب ، في موضوع شيّق 🙂 جعفر

وعليكم السلام 🙂 عادة ما يحتاج تمسك مفتاح الشفت لتشغيل برنامجي ، ولكن ، اذا كان برنامجك فيه كود عند فتح البرنامج ، فيجب مسك مفتاح الشفت ، وعدم تركه الى ان ينتهي عمل برنامجي 🙂 جرب برنامجي على احد برامجك التي لا تحتاج الى مسك الشفت ، وبعدين جرب اللي يحتاج مسك الشفت ، واخبرنا النتيجة 🙂 جعفر

وعليكم السلام 🙂 حياك الله 🙂 جعفر

اخي الفاضل 🙂 عندما يكون عندك ملف بصيغة zip او rar ، فمعناه ان بداخله ملف او مجموعة ملفات او مجلد او مجلدات ، وعلشان تستخدم هذه الملفات ، فيجب ان تخرجها من ملف الـ zip . انا ارفقت لك ملف مضغوط بصيغة zip ، وبداخله قاعدة البيانات ، وعلشان تشتغل على قاعدة البيانات ، يمكنك ان تخرجها من الملف المضغوط الى اي مجلد في الكمبيوتر ، ثم تستعملها. الصورة التي ارفقتها انت في مشاركتك السابقة : . تشير الى انك لم تخرج قاعدة البيانات من الملف المضغوط ، وانما فتحتها من الملف المضغوط ، وعليه تحصل على هذه الرساله من الملف المضغوط. جعفر

هاي النسخة رقم 2 من الرابط اعلاه ، جعفر

النسخة رقم 2 ، والتي لا نتعامل مع الكود ، وانما بواجهة فقط 🙂 جعفر