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

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

قم يتصميم استعلام الاحاق بالطريقة العادية 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=

باستخدام الامر docmd.movesize يمكنك تحديد مكان و حجم الشاشة فى حدث عند تغير المقاس للنموذج docmd.movesize 150,150,700,500 أي علي مسافة ا50 و 150 من أعلي يسار الشاشة و بعض 700 و ارتفاع 500 مثلا لتحديد المقاس فقط Private Sub Form_Resize() DoCmd.MoveSize , , 4600, 5300 End Sub

إذا أزل القوائم النمطية من البرنامج و ضع كلمة سر علي القاعدة لتصعيب الطريق علي من يريد الحصول عليها عن طريق الاستيراد

ليست هذه نسخة الديفيلوبر يبدو ان علينا الانتظار قليلا للحصول عليها