أبوبسمله

جزاكم الله خيرا اخوانى واساتذتى خالد ومحمد

وعليكم السلام اخى واستاذى العزيز @jjafferr نعم هذا ما قد جعلنى احاول ان اشرحها واهو على قد حالى استاذى العزيز واريد الاستفسار اكثر عن رقم 4 ارجو ايضاحها لنا اكثر استاذى العزيز { 2 } vbDatabaseCompare مقارنة بناء على قاعدة البيانات الخاصة بك تقبل تحياتى

بسم الله الرحمن الرحيم والصلاه والسلام على سيدنا محمد وآله وصحبه وسلم اخوانى واحبتى فى الله قد رأيت هذه الداله فى مثال قدمه اخى @خالد سيسكو واحببت مشاركتكم اياها لنتعلم سويا ونستفاد من تعليقات وتوضيحات اخواننا واساتذتنا جزاهم الله عنا كل خير شرح بسيط داله StrComp للمقارنه لها ثلاث برامتيرات 1 - النص الأول 2 - النص الثانى 3 - الاوبشين المراد StrComp ( string1, string2 [, compare ] ) compare = مقارنه 3 - الاوبشن يوجد له اربع قيم اختيارى هذا هو نوع المقارنة لأداء الخيارات الصحيحة هي: 1 - vbUseCompareOption { -1 } يستخدم الخيار مقارنة 2 - { 0 } vbBinaryCompare مقارنة ثنائية 3 - { 1 } vbTextCompare المقارنة النصية 4 - { 2 } vbDatabaseCompare مقارنة بناء على قاعدة البيانات الخاصة بك بالنسبه لقيمه النتيجه 0 تعنى النصوص متطابقه بالنسبه لقيمه النتيجه 1 تعنى ان النص الاول اكبر من النص الثانى بالنسبه لقيمه النتيجه -1 تعنى ان النص الثانى اكبر من النص الاول لا حظ النتيجه مختلفه بالرغم ان قيم النصين فى المره الاولى والثانيه متشابيهين ولكن اختلاف الاوبشين فالمقارنه قمت بالاستعانه بالبحث واليكم بعض الروابط https://support.office.com/ar-sa/article/الدالة-strcomp-a9a4531e-3b2a-4218-b139-f7442bc10b96?omkt=ar-SA&ui=ar-SA&rs=ar-SA&ad=SA https://bettersolutions.com/vba/strings-characters/option-compare.htm https://www.techonthenet.com/access/functions/string/strcomp.php وبشرح فيديو هو شرح ل PHP اتمنى ان اكون قد قدمت لكم معلومه مفيده واسال الله ان تنتفعوا بها وان قصرت فاعذرونى فاننى مبتدء واحاول جاهدا التعلم قدر الامكان المثال الاول واللذى استفدت منه هذه الداله لمقارنه الباسورد والمثال الثانى حاجه بسيطه لزوم الشرح وفى الاخير نسالكم الدعاء تقبلوا تحياتى وتمنياتى لكم جميعا بالتوفيق والنجاح طبتم واهتديتم اظهار كلمة المرور.rar StrCompText.mdb

جزاكم الله خيرا اخوانى واساتذتى وفقكم الله لما يحبه ويرضاه

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

الشكر لله ثم لاخي واستاذى جعفر على متابعتنا وتوضيح المشاكل وحلها هل ظهرت هذه الرساله بعد تغيير الاعدادات وعمل رستارت للجهاز ثم تشغيل البرنامج ام قبل عمل رستارت ؟

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

جزاك الله خيرا أخى @محمد ابوعبد الله ومشاركه مع اخى محمد الكود الموجود شغال فالنموذج ومظبوط تمام اذا اردتها فى استعلام تحديث كما فهمت انظر لا ستعلام 2 والكود الموجود به كالتالى Switch(Mid([natinal];8;2)="01";"القاهره";Mid([natinal];8;2)="02";"الاسكندريه";Mid([natinal];8;2)="03";"بورسعيد";Mid([natinal];8;2)="04";"السويس";Mid([natinal];8;2)="12";"الدقهليه";Mid([natinal];8;2)="13";"الشرقيه";Mid([natinal];8;2)="14";"القليوبيه";Mid([natinal];8;2)="15";"كفرالشيخ";Mid([natinal];8;2)="11";"دمياط") كمل بقى باقى المحافظات اذا كان هذا ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم Database1-111.accdb

الحمدوالشكر لله ثم لاخواننا واساتذتنا بالتوفيق اخى

جزاك الله خيرا اخى خالد

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

جزاك الله خيرا اخى @حلبي واياكم اخى العزيز ان شاء الله بفضله وكرمه وجزا الله خيرا كل اخواننا واساتذتنا اللذين تعلمنا ونتعلم منهم اخى واستاذى الحبيب @jjafferr اذا ممكن نختصر الكود ونجعله كالتالى If Len(text) < 0 Then فى انتظار مزيد من التعقيب والشرح الوافى منك اخى واستاذى @jjafferr تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق والنجاح وان يبارك لكم فى اعمالكم واهلكم

قد اجابك اخى خالد فالموضع الاخر لك

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

لانك قمت بزياده الحقول ولم تجعل الحدث فى الخروج من الحقل الاخير ممكن تضع كود اخى خالد فى مصدر عنصر التحكم لحقل التجميع او تغيير الحدث كما تحب او تضع زر امر وعند النقر يتم التجميع =[data1] & Chr(13) & Chr(10) & [data2] & Chr(13) & Chr(10) & [data3] بالتوفيق اخى

هل تقصد لديك اربع حقول مثلا اذا كان ما تقصده text = Me.date1 & vbCrLf & Me.date2 & vbCrLf & Me.date3 & vbCrLf & Me.date4 على ما فهمت من المقصود تقبل تحياتى

الحمدلله اللذى بنعمته تتم الصالحات جزاهم الله خيرا اساتذتنا الافاضل @jjafferr و @kha9009lid بالتوفيق اخى

جزاكم الله خيرا اخى خالد واخى جعفر اقترح ضم الموضوعين لانهم نفس السؤال وجزاكم الله خيرا اساتذتى الافاضل

اخى الفاضل جرب الكود التالى واخبرنا بالنتيجه DoCmd.OpenForm "formName", , , "[id]=" & me.id formName= اسم النموذج الذى سيتم فتحه id اسم حقل المعرف الذى = اسم حقل المعرف بالنموذج ان لم يظبط ارفق مثالك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

بعد اذن اخى ومعلمى جعفر فى حدث عند الخروج مثلا لمربع النص الثانى سيتم كتابه الحدث فى محرر الاكواد vba وليس كمصدر لمربع النص المراد التجميع به text = Me.date1 & vbCrLf & Me.date2 text = اسم الحقل المراد جمع الحقلين به تقبل تحياتى

الذى فعلته هو تغير الاسم اللذى وضعته انت Me![Project Name] وهو غير موجود بالنموذج وموجود با سم Project ولكن ابتعد عن هذه المسميات لانها محجوزه للنظام كما اشار عليك اخى خالد غير طريقه عرض النموذج الى نموذج مفرد بدلا من عرض ورقه بيانات ويمكن استخدام تنسيقات مختلفه لعرض ورقه البيانات فى اصدارات 2007 واعلى على ما اعتقد والله اعلى واعلم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم OP 2020.mdb

اخى الفاضل عماد اين هذه المسميات التى بكودك لا اراها بالنموذج شوف المرفق ثم اذا كان هناك اى تعديلات ابلغنا بالحقول واسمائها التى على النموذج ابلغنا بالنتيجه بالتوفيق OP 2020.mdb

جزاكم الله خيرا اخى واستاذى @jjafferr فعلا فهم السؤال نصف الاجابه تقبل تحياتى

واياكم اخى وكما اشار لك اخى العزيز خالد انت تستخدم رموز محجوزه ك Project فحاول انت تبعتد عن هذه المسميات او اضافه حروف اخرى ك NProject او N_Project بمعنى ايه لا يريد الحفظ ? ممكن تشرح باستفاضه وليس باختصار

اخى الفاضل حياك الله بين اخوانك فى منتدانا العزيز الاكسيس استخدم الكود كالتالى واخبرنا بالنتيجه Me.Project = Me.PRCode.Column(1) ان شاء الله يظبط كما تريد تقبل تحياتى