محمد طاهر عرفه

السلام عليكم تم نقل الموضوع الي قسم الوورد يرجي المتابعة هناك http://www.officena.net/ib/index.php?showt...t=0entry11574

أخي الكريم جرب استخدام المثال كما هو أولا أي أنشيء مثلا قاعدتين ق1 و ق2 و فى كل منها جدول واحد اسمه mmm به سجل واحد و ضع فى الاولي رقم 1000 و الثانية 2000 لتميز بينهما ثم عد الي ملف المثال السابق نشره و اكتب اسم الجدول mmm فى F_List و امسح باقي الحقول به ثم قم بعمل ربط يدوي لاول مرة فقط للجدول mmm مع ق1 ستجد القيمة الموجودة فى الجدول المرتبط هي 1000 و انظر الي قيمة الجدول المرتبط ثم غير الربط من النموذج الي ق2 و انظر القيمة الموجودة فى الجدول المرتبط ، هل تغيرت الي 2000 جرب التبديل عدة مرات ثم أخبرنا هي الموضوع يعمل أم لا ؟؟

جرب هذا الكود Dim fs, s Set fs = CreateObject("Scripting.FileSystemObject") s = fs.GetSpecialFolder(1) MsgBox s

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

قم يتصميم استعلام الاحاق بالطريقة العادية http://www.officena.net/ib/index.php?showtopic=605 افتح الاستعلام فى وضع ال sql انسخ الكود ضعه فى سطر واحد بين "" مع حذف ما قد يضاف من "" آليا اسبق ذلك بالامر Docmd.runsql مثال INSERT INTO DIALER ( Name, MOBILE ) SELECT DIALER.Name, DIALER.MOBILE FROM DIALER WHERE (((DIALER.Name)="mmmmm") AND ((DIALER.MOBILE)="0101010")); يتحول الي DoCmd.RunSQL "INSERT INTO DIALER ( Name, MOBILE )SELECT DIALER.Name, DIALER.MOBILE FROM DIALER WHERE (((DIALER.Name)='mmmmm') AND ((DIALER.MOBILE)='0101010'));" أو DoCmd.RunSQL "INSERT INTO DIALER ( Name, MOBILE )SELECT DIALER.Name, DIALER.MOBILE FROM DIALER" & _ "WHERE (((DIALER.Name)='mmmmm') AND ((DIALER.MOBILE)='0101010'));" لاحظ أن ال "," لما أصبحت داخل ال "," الخارجية تستبدل ب ' , ' و للكتابة فى سطر جديد ننهي الجملة ب " و نتبعها ب & ثم _ موضوع مرتبط ما هي أقصر الطرق لكتابة جمل ال SQL داخل الكود إدراج جمل SQL داخل ال VBA http://www.officena.net/ib/index.php?showtopic=50 و http://www.officena.net/ib/index.php?showtopic=954

بالنسبة للأول بعمل ربط لجدول بملف الاكسيل و الثاني بتصدير الجدول الي الاكسيل ، اما مباشرة أو بالكود و يوجد مثال علي موضوع الكود هنا النسخ الاحتياطي / التصدير / تغيير المسار http://www.officena.net/ib/index.php?showtopic=301&hl= مع ملاحظة وضع اسماء الجداول و الاستعلامات المطلوب تصديرها فى جدول E_List

ربما تقصدين ترقيم السجلات فى الاستعلام http://www.officena.net/ib/index.php?showt...ic=545&hl=ترقيم

أخي الكريم الجدول F_LIST من المفترض أن يحوي أسماء الجداوال التي تريد تجديد رابطها فهل قمت بذلك ، أم تركته بالاسماء الاصلية ؟؟

اعتقد أن السبب هو اصدار الميديا بلاير المحمل علي الجهاز جرب تحميل الاصدار التاسع

السلام عليكم يوجد جدول يتم تسجيل أسماء الجداول المراد ربطها به فهل قمت بذلك .؟؟

هذه الرسالة تظهر عند فتح ملف 2000 أو اكس بي باكسيس 97 أو عموما ملف باصدار لاحق ، تحاول فتحه باستخدام اصدار سابق

راجع مثال أبو هادي جيدا :pp:

حديث حول المتغيرات فى VB, لأبي هاجر http://www.officena.net/ib/index.php?showtopic=839&hl= اكتب بنفسك روتين فرعي أو وظيفة للأخ حارث http://www.officena.net/ib/index.php?showtopic=425&hl= ------------------------------------------- 4-1 إنشاء النماذج باستخدام المعالج 8-11-2003 مستوي مبتديء -------------------------------------------

المجموعة الأولي ( نشرت فى 5-7-2003 ) : 1-0 البداية 1-1 مقدمة الي الأكسس 1-2 مراحل إعداد البرنامج --------------------------------------------- المجموعة الثانية نشرت فى 8-7-2003 : 2-0 تصميم الجداول 2-1 إنشاء الجداول (1) 2-2 إنشاء الجداول (2) 2-3 إنشاء الجداول (3) 2-4 أنواع البيانات فى الأكسس --------------------------------------------- 2-5 المفتاح و الفهارس 12-7-2003 2-6 التعامل مع البيانات فى الجداول 12-7-2003 2-7 خصائص الحقول 1 (17/7/2003) 2-8 خصائص الحقول 2 19-7-2003 2-9 العلاقات بين الجداول 23-7-2003 2-10 أسلوب الرسم التخطيطي لعلاقات الكيانات 29-7-2003 --------------------------------------------- 2-11 مسودة تحليل نظام مشروع الدورة 1/8/2003 -------------------------------------------- 2-12 تصميم جداول المثال 6-8-2003 ------------------------------------------- وصلة دروس الاستعلامات من هنا

و بالنسبة للحفظ فعدل كود قبل الاغلاق الي ما يلي ( اضافة سطر ) Private Sub Workbook_Beforeclose(Cansel As Boolean) ActiveWorkbook.Save If BinNormalExit = True Then MsgBox "Remmber to back up yourwork " _ & "this application", vbExclamation, ApplicationTitle1 End If End Sub

بعد عمل الملف السابق تذكرت وجود كائن اسمه words يوفر الكود الي سطرين فقط بدلا من البحث عن المسافات بين الكلمات و عدها Sub CountwordsALLINFILE() ' Code By Mohamed Taher , www.officena.net Selection.WholeStory Mywords = Selection.Words.Count MsgBox Str(Mywords) + " words in all the file" End Sub Sub CountwordsSELECTION() ' Code By Mohamed Taher , www.officena.net Mywords = Selection.Words.Count MsgBox Str(Mywords) + " words in the selection" End Sub و الروتين الاول يقوم بعد كل الكلمات فى الملف ، و الثاني فى المساحة المظللة فقط

ما هي المعادلة التي تظهر فى خليتها هذه الاشارة ؟؟

اذا كنت ريدها فى الملف كله format backgound

واجهتني مشلكة فى تنفيذ الكود السابق أعددت ملف به عدد 2 ماكرو الاول يقوم بعد كل الكلمات فى الملف و الثاني يقوم بعد الكلمات فى المجموعة التي تختارها قبل تحديد الماكرو selection Countwords.rar

فى الاصدرات السابقة علي الاكس بي كان ذلك من Tools add-ins auto save و هذه كانت تزعج من يعمل علي ملفات كبيرة لتوقف العمل اثناء الحفظ أما فى الاكس بي فقد تم استبدال هذه الحاصية بموضوع ال autorecover Tools options save autorecover وأعتقد أنه هنا لا يحث حفظ للملف نفسه مثلما فى الاولي ، و انما يتم الاحتفاظ بنسخة أخري تظهر فقط عندما يتم الغلق بطرقة غير طبيعية مثل ctr+alt+delete او انقطاع الكهرباء فتظهر النسخة التي تم حفظها ليخيرك باستخدمها أم لا

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

مكنك اضافة عمود ليحسب تراكمي المضاف و آخر تراكمي المسحوب و بالتالي تكون المعادلة هي طرح التسهيلات ، و هذا يتم تثبيته بضغط F4 $A$1 و يضاف الي المعادلة منه تراكمي المضاف و تراكمي المسحوب أي يكون لديك متبقي من التسهيلات بعد كل عملية و تنفذ التنسيق الشرطي علي عمود المتبقي ككل و ليكن مائة صف مثلا

عند ارسال رسالة توجد لها خيارات منها نختار have replies sent to و نختار الاسماء من الزر أو نكتب العناوين و بينها فاصلة منقوطة

اما بالتوجه الي المواقع التي تعتقد بوجود الحل بها ثم البحث أو البحث العام فى موقع بحث و اقواها هو www.google.com

استخدام الدالة dmax لعمل ترقيم مسلسل http://www.officena.net/ib/index.php?showt...wtopic=1049&hl=