حمدى الظابط

السلام عليكم يوجد مربع نص غير منضم باسم (الصف) ويوجد نموذج فرعى باسم email مصدر سجلاتة SELECT email.*, email.Id FROM email WHERE (((email.selcted)=Yes)) ORDER BY email.Id; يوجد استعلام باسم ( مجموعات الاميل ) الغرض من هذا الاستعلام البحث عن اسم اى مجموعة من خلال النموذج وهذا الاستعلام بيستمد اكواده من جدول الصف وعلشان الاستعلام يعمل بكفاءة لازم يكون مصدر سجلات النموذج هذا الاستعلام مع العلم ان كود SELECT لاغنى عنه فى مصدر سجلات النموذج فبذلك اصبح مصدر السجلات فى النموذج الفرعى مشترك بين استعلام البحث وبين SELECT توضيح اكثر يوجد جدولين واحد باسم(email ) والثانى باسم( الصف ) ويوجد استعلام باسم (مجموعات الاميل) ونموذج فرعى باسم(email) مصدر بيانات النموذج كود SELECT المذكور اعلاه وعندى استعلام لكى يعمل هذا الاستعلام يجب ايضا ان يكون فى النموذج مصدر السجلات فماذا نفعل للخروج من هذا المأذق هل نلجأ لطريقة اخرى ونستغنى عن الاستعلام لا اعلم فقد عجزت عن حل هذه المشكلة تحياتى وشكرى لمن يساعد او بقترح فكرة رسائل.rar

للرفع

السلام عليكم العزيز الغالى استاذ سامى الحداد تم التجربة على الكود الخاص بك ويعمل بكفاءة 100% ولكنه يضع فى حقل حالة الارسال رقم -1 وعند تم الارسال يتم حذف -1 ويضع نم الارسال والكود المرفق بعد التعديل مؤخوذ من الكود الخاص بك يلغى -1 فى حقل حالة الارسال والاتنين يعملو بكفاءة عالية وممتازة الاول يضع -1 فى حقل حالة الارسال والثانى يزيل -1 من حقل حالة الارسال والاثنين يعملو بكفاءة ولا يسعنى الا الشكر والاحترام والتقدير لشخصكم الكريم واشكر استاذ ابو احمد لمجهودة ومحولاته المستمرة للوصول الى افضل النتائج ربما اكون انا المقصر فى عدم توصيل له المعلومة والان استاذ سامى فى مشكلة ليس لها علاقة بعنوان الموضوع الذى تم حلها حلها الخمد لله ولكن المشكلة لها علاقة بنفس النموذج الموجود فى الموضوع هل اعرض المشكلة هنا استكمالا للموضوع ولا فى موضوع منفصل If Me.SELCTALL = True Then DoCmd.SetWarnings True DoCmd.RunSQL "UPDATE email SET[selcted]=True , SelectRow ='R' ", dbFailOnError ElseIf Me.SELCTALL = False Then DoCmd.RunSQL "UPDATE email SET[selcted]=Null , SelectRow ='T' ", dbFailOnError End If DoCmd.SetWarnings False DoCmd.Requery If Me.Dirty Then Me.Dirty = False

الغالى والمحترم بزيادة الكود يعمل بكفاءة 100% ولك جزيل الشكر ولكن هل ممكن بعد البحث وايجاد الاسم فى السجل تظهر الرسالة الخاصة به فى مربع النص الغير منضم ( يعنى ربط السجل مع مربع نص الرسائل بعد البحث)

اعتذر تم ارسال ملف خطأ وهذا هو الملف الذى يتم التعديل عليه رسائل.rar

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

السلام عليكم استاذى الجليل AbuuAhmed حرفT يعنى غلق السجل وحرف R يفتح السجل وهذا الحقل موجود يالجدول باسم SelectRow واخد قيمة افتراضية لكل السجلات حرف T وحقيقى انا شكر اهتمامك يأيجاد حل وانا لا اقصد احراجك على الاطلاق كل مافى الامر انى استحيت منك ومن اصرارك ومحولاتك على المساعدة وهذا لم يعطينى الحق ان اطلب تانى مساعدتك احراج منك ليس الا هذا الكود توصلت له بيفتح السجلات كلها ولكن لم يغلقها اريد تعديل عليه فتح وغلق Private Sub SELCTALL_AfterUpdate() DoCmd.SetWarnings True DoCmd.RunSQL "UPDATE email SET[SendStuts]=Null , SelectRow ='R' " DoCmd.Requery DoCmd.SetWarnings False End Sub

اترك لك الملف لتعديل وهل يجوز عمل زر للرسائل الفردى واخر للرسائل الجماعية كلا منهم بكود وهل ايضا يجوز تحميل مرفق او تقرير ملحوظة / فى حالة كتابة الرسالة فى txtmsg وذهبنا الى اى سجل فى حقل Message_text بالنقر المزدوج يتم نسخ الرسالة تحياتى وتقديرى رسائل.rar

السلام عليكم اولا / يوجد بالنموذج مربع تص غير منضم وعندالبحث عن اسم يكون فى مشكلة فى الكود وشكرا مقدما رسائل.rar

استاذ احمد اسعدت كثيرا بتواجدك وتعليقك على سؤالى اولا اشكرك على الحل وانا عكست الكود وخليت Message_text ينسخ الرسالة من txtmsg وتم الحل الحمد لله والفضل لله ولك وااكود الذى وضعته ولكن حضر سؤال فى ذهنى وهو ماذا لو اردت ان ارسل رسالة موحدة جماعية لكل العملاء اذا لابد من وجود كود ينسخ الرسالة من txtmsg الى كل العملاء بحقل Message_text مرفق الملف بعد التعديل اشكرك ولك تحياتى رسائل.rar

الراقى على الدوام صاحب اللمسات والابدعات الجميلة الاستاذ موسى البرنامج ينقسم الى عددت اقسام ارسال رسالة نصية بمرفق وبدون مرفق جمعية او فردية ارسال تقرير من قاعدة البيانات ارسال رسالة على الوتساب ماهى المشاكل اولا / عند ارسال تفرير مثال لو عندى 10 تقارير اريد ان ارسل احدهما اذا يجب اختيار التقرير المراد ارسالة من قاعدة البيانات ثانيا / عند ارسال رسالة بالوتساب انا عامل لكل عميل رسالة تختلف عن الاخر المشكلة / ماذا لو ارسلت رسالة جماعية بحاول ابحث عن كود عند الضغط على زر ينسخ الرسالة من مريع نص غير منضم الى سجلات حقل الرسالة -------------------------------------------------------------------------- نأتى الى الفنيات الاكثر دقة - اختلاف نسحة الونيدز والافيس من جهاز الى جهاز وكذلك تعربف اللعة العربية هل عند الارسال سوف ترسل الرسائل مشفرة ام واضحة لذلك يجب التجربة وعلشان نكون التجربة ناجحة لازم الاعضاء تترك الاميلات والارقام الخاصة بيهم للتجربة ونرسل لبعض وكل عضو يقول تجربته ويقول هو بيستعمل نوع نسخة الويبدوز والافيس ايه لان ممكن الرسالة لم تصل لحضرتك ولكن تصل الى عضو اخر فلابد من معرفة السبب - ومن ضمن المشاكل ايضا ان ترسل الرسائل وهمية يعنى يتم الارسال ولم تصل الرسالة لذلك المشاركة هتولد افكار وابدعات وعلى الخبراء المبدعين امثالك وامثال الخبراء الافاضل بالمنتدى ايجاد الحلول المناسبة للقضاء على هذه الفنيات وذولك لضمان ان تصل الرسالة للعميل مهما كان نوع الويندوز او الافيس او اللغة الخاص بيه ارجو ان اكون لخصت الموضوع وبالفعل البرنامج شبه جاهز على التجربة واستسمح حضرتك عند وضع الموضوع للنقاش يتم تفكيكة وشرحة جزء جزء للافادة لان معظم الاعضاء منتظرة خلاصة الموضوع دون تعب او جهد اقرر شكرى لاهتمامك بالامر ولك منى كل الاحترام واتقدير

للرفع

نتمنى له المزيد من التألق والابداع والف مبروك وكل الشكر لمتابعة ادارة المنتدى على ترقية من يستحق تحياتى وتقديرى

تحياتى وتقديرى

للاسف مازالت المشكلة موجودة بيتم فتح السجلات لكن عند الارسال يتعارض الكود مع الوحدة التمطية وجارى التجارب والبحث عن حل

انا كنت فاكر ان الموضوع يهم معظم المبرمجين ولكن واضح ان الموضوع لايهم احد غيرى

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

الغالى على القلب اشكرك على اصرارك على التواصل لحل ولكن للاسف مازالت المشكلة موجودة وتتوقف الوحدة النمطية عند هذا السطر StudentEmaile = rs.Fields("email_c")

للاسف مازالت المشكلة موجودة والكود يعارض وظيفة الوحدة النمطية حتى بعد التبديل

تمام هجرب وافيك بالنتيجة

السلام عليكم استاذى العزيز اشكرك على مشاركتك واهتمامك وبصراحة حل جميل وفكرة جميلة ومبدعة ورائعة ولكن عند التجربة الفعلية للكود الخاص بك وعند ارسال التقرير وجد تعارض الكود مع الوحدة النمطية الموجودة بالنموذج ويجعلها لاتقوم يواظفتها لذلك ارجو التعديل على الكود الخاص بى لانه مأخوذ من الوحدة النمطية الموجودة بالنموذج فهو يفتح السجلات ولكن لم يقوم بغلقها وهذا هو الكود ولك تحياتى Private Sub SELCTALL_AfterUpdate() DoCmd.SetWarnings True DoCmd.RunSQL "UPDATE email SET[SendStuts]=Null , SelectRow ='R' " DoCmd.Requery DoCmd.SetWarnings False End Sub

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

فى انتظار اراء الاخرين وجارى حاليا تسجيل فيديو لشرح البرنامج قبل عرض الملف شكرا لاهتمامك

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

السلام عليكم اشكر طلالتك الراقية والف مبروك على الترقية التى تستحقها بجدارة وامتياز تم تجربة الكود وللاسف بيفتح فتح وهمى وتظل السجلات مغلقة وطبعا انا السبب فى ذلك كان يجب عليا ارسال زر الارسال بعد فتح السجلات مع النموذج لتكون تجربة كود حضرتك على الواقع فارجو قبول الاعتذار وبشكرك على مجهودك ولك كل الاحترام وعملت محاولة لايجاد كود وتم التجربه والحمد لله بيفتح كل السجلات ولكن لم يقوم باغلقها وهذا هو الكود Private Sub SELCTALL_AfterUpdate() DoCmd.SetWarnings True DoCmd.RunSQL "UPDATE email SET[SendStuts]=Null , SelectRow ='R' " DoCmd.Requery DoCmd.SetWarnings False