ابوخليل

الاخ العزيز حمادة عمر : عظم الله اجرك وجبر مصابك وغفر لوالدك انا لله وانا اليه راجعون

سأغير الطلب اعلاه اذا لم يمكن تحقيقه . فيكون المطلوب : جلب نتيجة العملية الى Book2

الاستعلام هو Qryemploye , ونستخدمه بدلا من الجدول employees حتى نضع داخله ما نريد من معايير

السلام عليكم ورحمة الله وبركاته وبعد : اخواني الكرام لا اعلم ان كان هذا الموضوع قد تطرق اليه ام لا ؟ علما اني وجدت موضوعا يتحدث عن جمع عدة ورقات في ورقة واحدة ولكنها تختلف عن الطريقة التي اريدها في التنفيذ . 1- اريد جميع الاسماء الموجودة في الورقات في المرفق Book1 ان تضم الى الورقة الأولى مع ادراج رقم الصف ورقم الفصل كما هو موضح في الورقة الأولى والثانية . 2- واريد ان يتم تنفيذ العملية من الزر الموجود في Book2 وجزاكم الله خيرا Downloads.rar

جميع التقارير والنماذج لان مصدر البيانات اصبح الاستعلام وليس الجدول نعم .. فتح الله عليك فعند تسجيل موظف جديد : الوضع الافتراضي له سيكون ( في الخدمة : نعم ) وعند ازالة العلامة سيختفي من البرنامج بمعنى انك لست بحاجة الى نقله الى جدول جديد

نقص المكتبات يمكن ان يكون بسبب نسخة الاوفيس وعلى كل حال غالبا قواعد البيانات الجديدة عند انشائها تشتمل على المكتبات الموضحة في الصورة

هناك احتمالين : 1- نقص مكتبات: ولكن الوحدة النمطية الخاصة بالتفقيط لا تحتاج لذلك 2- امان الماكرو : يجب التأكد من تخفيض الامان الى الحد الادنى ولكن الفحص عن قرب هو الوسيلة الاكيدة في اكتشاف الخلل

يبدوا انك تتكلم عن الاعمدة داخل جداول اكسس طبعا تختلف عن اكسل فالجداول في اكسس عبارة عن اوعية لحفظ البيانات ولا يتم التعامل معها مباشرة وانما التعامل من خلال الواجهات ملحوظة : هناك من الواجهات ما يشبه الجداول مثل نموذج البيانات انظر المرفق بيانات.rar

انظر الآن اظهرنا الاستعلام يتم الحسم الآن من المجموع ويمكنك الزيادة والنقصان بكل سلاسة وانظر عند اعداد الراتب : من ازلنا العلامة من امامه لن يظهر في التقرير ولاحظ القيمة الافتراضية لخانة الاختيار في الجدول : تم ضبطها لتكون مفعلة رواتب 6.rar

كما ذكرت لك نحتاج لاعادة الاستعلام ونستغني عن الكود لا املك الآن الوقت الكافي فامهلني ..

من واقع تجربة : الافضل تجنب ذكر اي شخص عند المواضيع الجديدة ولا بأس ان يأتي الشكر لاحقا بعد حل المشكلة يفترض اننا نعيد استعلام الالحاق ليسهل العمل وهي سهلة 1+2+3 ... وهكذا يجب جعل مصدر البيانات استعلاما بدل الجدول لا انصح بذلك بل يبقى في الجدول مع عدم ظهوره في التقارير وهذا يا عزيزي يستحق موضوعا جديدا عن جدارة

القوسين المعقوفين نضعهما حين يكون اسم الحقل او الجدول يتكون من كلمتين وبينهما مسافة فارغة لذا ينصح بعدم ترك فراغات عند تسمية الكائنات بل نستعيض عن ذلك بــ العلامة تحت السطر ( _ ) او نميز الحرف بجعله كبير

حتى تكون الطريقة مرنة ويمكن التحكم بالسجلات المطلوبة فلا بد من انشاء جدول يحتوي على حقل للتاريخ وحقل لعدد السجلات المطلوبة ومن خلال النموذج يمكن للمدير تحديد التاريخ وعدد السجلات انظر المرفق يوضح الفكرة db44.rar

تمت الاجابة عليه هنا http://www.officena.net/ib/index.php?showtopic=51284

عجيب ! ولكنه موجود وانظر الصورة ما السبب ؟ هل لأني قمت بتحويل المثال الى mdb لاني اعمل على الاصدار 2003 هذا الأمر لم يحدث معي من قبل جرب المرفق الآن db5.rar

استخدام الحروف الانجليزية في كتابة اسماء الحقول والنماذج وغيرها يساعد كثيرا على سرعة تعلم اللغة البرمجية تم التعديل على المثال حسب الطلب db4.rar

لحل المسألة ارى انك تحتاج الى عدة ضوابط واكواد ارفق مثالا بالمطلوب للتعديل واحرص ان يكون على امتداد mdb

للوصول الى حل مرضي يلزم ان نوظف الدالتين المعدلتين TrimAll ، ReplaceAll واحدة لحذف جميع المسافات الفارغة ، الداخلية والتي على الاطراف والثانية لتغيير حرف التاء المربوطة الى هاء والناتج سيستخدم فقط للمقارنة واستخراج المكرر وقد تم عمل ذلك في المرفق التكرار.rar

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

"أرجو سعة الصدر" : حيث ان التوضيح اعلاه مفهوم

اجعل نسخة من مصدر النموذج اجعلها مصدر صف لمربع التحرير اذا لم تصل الى حل مرضي ارفق مثالك للتعديل عليه

افتح له موضوعا جديدا وعنوانا يخصه بارك الله فيك ،،، تمت الاجابة

الشكر مقدما لأخي ابي آدم على التنسيق اخي الكريم جرب استبدال هذا السطر : iNext = Val(Mid(vLastY, 9, 4)) + 1 بهذا : iNext = Val(Mid(vLastY, 6, 5)) + 1

برنامج يقوم بتحويل عبارات SQL الى كود تفتح الاستعلام على التصميم وعلى عبارة sql ثم تنسخها وتلصقها في البرنامج المرفق وهو سيقوم بالمهمة وينسخ في الذاكرة الكود المحول . كل ما عليك فعله بعد اللصق داخل الحدث هو ان تستبدل كلمة strsql = مع علامة يساوي تستبدلها بــ : Docmd.RunSQL ولا تنسى ان تجعل الكود بين علامتي تنصيص مزدوجتين تحويل SQL إلى VBA.rar

استخدم خاصية البحث وستجد الكثير انظر هنا http://www.officena.net/ib/index.php?showtopic=43701#entry253436 وهنا http://www.officena.net/ib/index.php?showtopic=43096#entry248624