النهر العطشان

شكرا الى الاستاذ Shivan Rekany على سعة صدره والى الاساتذة الكرام الاستاذ ابو ياسين المشولي والاستاذ ابو عارف المحترمون . جعلها الله في ميزان حسناتكم ورفعكم درجة . وهو المطلوب وشكرا

شكرا الى الاساتذة الكرام على ابداعاتكم جعلها الله في ميزان حسناتكم . اسف على اطالتي عليكم لكن سعة صدوركم وافهم ان لكم رسالة نذرتم انفسكم في ايصالها للجميع . مما يجعلني اطلب . لدي جدول يحتوي على اربعة حقول احتاج كود واحد عند الضغط عليه يقوم بتصدير ثلاثة حقول الى اكسل بدون اختيارات . الكود يكون مثل الكود اعلاه DoCmd.OutputTo acOutputQuery, "QForExport", acViewPreview لكن يحتوي على الحقول الثلاثة باسمائها . وشكرا

شكرا استاذي الفاضل ابو ياسين المشولي المحترم

شكرا استاذي الفاضل Shivan Rekany المحترم جعلها الله في ميزان حستاتك لقد تم تجربة البرنامج وهو يعمل بصورة جيده لكن هل ممكن تنفيذ الشطر الثاني ام لا . وهو هل يمكن عمل كود واحد تحت حدث زر عند الضغط عليه يقوم بكل هذا ويتم تحديد الحقول من الكود نفسه . وشكرا .

استاذي الفاضل Shivan Rekany المحترم القاعدة الاخيره تم تجربتها وهي تعمل بنجاح هل لي بطلبين ضمن السؤال . 1- هل لي عندما اختار في الكومبوبوكس الثاني الحقل لا استطيع اختياره مره ثانيه كان يصبح باهت بعد اختياره . 2- هل يمكن عمل كود واحد تحت حدث زر عند الضغط عليه يقوم بكل هذا ويتم تحديد الحقول من الكود نفسه . وشكرا

عفوا الى الاساتذه الكرام الملف الاول لايعمل وجربته اكثر من مره لكن الملف الثاني تم تجربته وهو يعمل بنجاح شكرا

استاذي الفاضل Shivan Rekany المحترم القاعدة الاخيره تم تجربتها وهي تعمل بنجاح هل لي بطلبين ضمن السؤال . 1- هل لي عندما اختار في الكومبوبوكس الثاني الحقل لا استطيع اختياره مره ثانيه كان يصبح باهت بعد اختياره . 2- هل يمكن عمل كود واحد تحت حدث زر عند الضغط عليه يقوم بكل هذا ويتم تحديد الحقول من الكود نفسه . وشكرا

استاذي الفاضل عند تغيير الكود تمت عمل الازرار بنجاح فهل التغيير صحيح Private Sub EndForQuery_Click() Me.TxtForQuery = Me.TxtForQuery & " From " & Me.ChooseTble Me.EndForQuery.Enabled = False Me.CreateQuery.Enabled = True End Sub المؤشر باللون الاحمر من (False) الى (True)

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

شكرا استاذ Shivan Rekany على اجابتك لكن عند تشغيل قاعدة البيانات واختيار الجدول ومن ثم الحقول وبعد الضغط على زر (انهاء التحديد) تظهر لي هذه الرسالة وكما في الصورة المرفقه . وشكرا

استاذي الفاضل ابو ياسين المشولي المحترم تم تجربة الكود وعند كتابة رقم الهاتف يتكرر طلب ادخال رقم الهاتف . ما احتاجه انه عند ادخال رقم الهاتف اول مرة يتم نقل السجل فقط وتنتهي عملية النسخ بدون تكرار طلب ادخال رقم الهاتف . اما اذا تم ترك الحق فارغ وتم الضغط على زر (ok) فتبقى تتكرر رسالة ادخال رقم الهاتف الى يتم كتابة رقم الهاتف او الضغط على زر (cancel). لك كل الاحترام وشكرا test30.rar

استاذي الفاضل الرسالة (ادخل رقم التلفون) تظهر لي مرتين وتلغى اريد ان تلزمني على الادخال الا في حالة ضغط على زر (cancel) فتلغى عملية الادخال .

السلام عليكم استاذ ابو ياسين المشولي المحترم وهو المطلوب جعلها الله في ميزان حسناتك ورفعك درجة فوق درجتك . لكن هل يمكن جعل التعديل اجباري لان في الحالة اعلاه يمكنك الضغط على زر (ok) وبدون كتابة رقم الهاتف الجديد فيقوم بعملية نسخ القيد وترك حقل الهاتف فارغ . اريد ان اجعله لزاما عملية الادخال . وشكرا

السلام عليكم ارفق قاعدة بيانات تم كتابة الكود الخاص بها من قبل الاستاذ المبدع ابو ياسين المشولي المحترم حيث تقوم فكرة القاعدة عند كتابة رقم سجل في مربع (Text0) وعند الضغط على زر (نقل) يقوم بنسخ السجل من جدول (Students) الى جدول (Team) مع ابقاء السجل الاصلي . ما احتاجه هو عند نقل السجل يضهر مربع ادخال من خلاله استطيع تغيير حقل واحد محدد كان يكون حقل (tel) ثم نسخه الى جدول (Team) مع ابقاء السجل الاصلي في جدول (Students) بدون تغيير . وشكرا test25.rar

الاستاذ الفاضل ابو ياسين المشولي المحترم كود رائع من استاذ رائع شكرا لك جعلها الله في ميزان حسناتك .

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

للرفع

السلام عليكم شكرا الى الاساتذه الكرام على الاجابة راجعت المشاركات السابقة لكن لم اجد طلبي ما احناجه هو التعديل على الكود بحيث استطيح تحديد الحقول المراد تصديرها الى الاكسل عن طريق الكود ويفتح لي نافذه في المكان المراد تصدير الاكسل اليه كما في المثال المرفق وكود التصدير او اي كود يلبي طلبي وشكرا DoCmd.OutputTo acOutputTable, "Data", acViewPreview test 15.rar

السلام عليكم احتاج الى كود تصدير جدول في الاكسس الى اكسل لكن ليس كل الحقول اي اتحكم عن طريق كتابة الكود بالحقول المراد تصديرها الى اكسل . وشكرا test 15.rar

شكرا استاذ ابو ياسين المشولي على سرعة الاجابة جعلها الله في ميزان حسناتك بارك الله فيك تم

شكرا استاذ ابو ياسين المشولي على سرعة الاجابة جعلها الله في ميزان حسناتك وانا في انتظار اجابتك ان شاء الله

استاذ ابو ياسين المشولي المحترم هل يمكن التعديل على الكود بحيث يقبل نقل حقل (class) على الرغم من اني عامل الحقل من جدول وجاعله استعلام فاني احتاج ان يكون عباره عن حقل اختيارات . وهل تكرمت و اعطيتني الكود في حالة لا اريد ان يتكرر السجل وشكرا

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

شكرا استاذ ابو ياسين المشولي على سرعة الاجابة جعلها الله في ميزان حسناتك تم نقل السجل باستثناء حقل (class) فهو عبارة حقل اختيارات وهل يمكن ان تتم العملية بدون ظهور اي الرسالة ويتم تفريغ ال (Text0) بعد عملية النقل وشكرا

استاذي الفاضل نسخ السجل اي الابقاء عليه في الجدول الاول