أبوبسمله

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

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

اخى واستاذى @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) ان شاء الله يظبط كما تريد تقبل تحياتى

جزاك الله خيرا اخى لم نقدم شىء يذكر واحاول ان اقدم مما تعلمته واتعمله من اخوانى واساتذتى وما اجده من معلومات واتعلم معكم داله NZ كما تعلمنا تسبتدل القيم الخاليه ب 0 وهى اختصار Null Zero كما قرائت يمكنك استخدام الدالة Nz لإرجاع الصفر أو سلسلة فارغة ("") أو القيمة المحددة الأخرى عندما يكون المتغير فارغا. علي سبيل المثال ، يمكنك استخدام هذه الدالة لتحويل قيمه فارغه إلى قيمه أخرى ومنع نشرها عبر تعبير. الداله NZ وهذا ايضا شرح لاستاذ مهند عبادى جزاه الله خيرا دالة NZ وهي اختصاراً لكلمتي : NULL Zero ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ .. صيغتها كما يلي : A = NZ(B,0) أو A = NZ(B) S = NZ (V,"") ومن هذا يتضح أن لهذه الدالة ممران 1- القيمة المطلوب فحصها 2- القيمة المعادة في حال كون القيمة الأولى Null وفي حال عدم تعيين القيمة الثانية تعيد لنا هذه الدالة القيمة صفر في حال كون القيمة الأولى Null وان شاء الله يفيدنا اكتر احد اساتذتنا تقبل تحياتى اخى

اخى مصطفى ولعدم حدوث خطأ ما يمكن استبدال الكود السابق بالمثال بالتالى If Me.mony2 = NZ("",0) Then n2 = (tex_loan * tex_charg / 100) Else n2 = (tex_loan * tex_charg / 100) + Me.mony2 End If End Sub لما قرائته فى هذه المشاركه أولا يوجد 3 أنواع من القيم يجب أن نميز بينها وان كان هناك توضيح اكثر من اخواننا واساتذتنا فليشاركوننا فنحن طلاب علم ونتعلم هذا والله اعلى واعلم وجزاهم الله خيرا اساتذتنا واخواننا اللذين نتعلم منهم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

وعليكم السلام فى اداه تابعه لميكروسوفت هى بتقوم بازاله الاوفيس وبتعالج المشاكل دى ارفقها لك ان شاء الله تحللك المشكله تقبل تحياتى setup.rar

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