أبوبسمله

وعليكم السلام ورحمه الله وبركاته اخى نبراس ممكن تشوف الموضوع ده لعلك تجد به ما تريد ان شاء الله http://arabteam2000-forum.com/index.php?/topic/125583-كيف-تبني-برنامج-مخازن-ومبيعات-بطريقة-صحيحة-؟؟/ بالتوفيق ان شاء الله

واياكم اخى بالتوفيق ان شاء الله

وعليكم السلام اخى الفاضل لانشاء شريط مخصص راجع الرابط التالى https://support.office.com/ar-sa/article/إنشاء-شريط-مخصص-في-access-45e110b9-531c-46ed-ab3a-4e25bc9413de واستخدم البحث بالمنتدى هتلاقى شروحات اكتر ان شاء الله واليك بعض الروابط بالمنتدى بالتوفيق

اذا حبيت ترجعه نص ضع الكود التالى فى حدث الزر DoCmd.OpenReport "تقرير الموظفين", acViewPreview, , "[رقم الهوية]='" & Me.[رقم الهوية] & "'" بالتوفيق ان شاء الله eploe.mdb

وعليكم السلام اتفضل اخى سيتم فتح التقرير على السجل المعروض بالنموذج بناء على حقل رقم الهويه قمت بتعديل خصائصه لرقم لو حابب ترجعه نص تانى ممكن وتغير فالكود تغير بسيط بالتوفيق ان شاء الله eploe.mdb

مشاركه مع اخى واستاذى العزيز @essam rabea بالنسبه للسؤال الاول شو الاستعلام لم يتم تجديد الاشترك وافتحه فى وضع التصميم وشوف فى حقل تم تجديد الاشتراك المعيار 0 بالنسبه للسؤال الثانى انت تقصد انه بيفتح على رقم المشرك لكن حقل الاسم فارغ ام ماذا جرب الان ووافنا بالنتيجه بالتوفيق ان شاء الله GYM.rar

وعليكم السلام جرب كالتالى ان شاء الله يظبط معك واخبرنا بالنتيجه "[op_date]=# " & forms!sale_center_search!op_date_search & "#" بالتوفيق ان شاء الله

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

من غيرا استذان اخى واستاذى العزيز @essam rabea مثال جميل وموديل رائع جزاك الله عنا خيرا الجزاء تقبل تحياتى وتمنياتى لكم وللجميع بالتوفيق

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

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

شوف المثال ده مقدم لتعديل لاحد الاخوه بالمنتدى وجزاه الله خيرا ان شاء الله يفيدك للجمع(2).accdb

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

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

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

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

اخى الفاضل حقل الترقيم ID مهم لتتم عمليه الحذف بنجاح فى مثالك الاخير اللذى قمت بارفاقه انت حذفت حقل الترقيم التلقائى انت سوف تضيفه بنفس الاسم وان غيرته غيره فالاستعلام كذلك وعدلت لك المثال الاخير وجعلت التاريخ المفتاح الاساسى بدل حقل ID الترقيم التلقائى فى المثال الاخير لى وتم الحذف بنجاح ايضا جرب اضف الاسم مره اخرى محمد يوسف - البلديه DELETE t1.الاسم, * FROM t1 WHERE تاريخ Not In (SELECT min(تاريخ) FROM t1 GROUP BY الاسم, الدائرة); جرب ووافنا بالنتيجه بالتوفيق اخى مثال(3)(1).accdb

جرب مره اخرى قمت بتنفيذ الاستعلام على مثالك الاول عدلت فقط اسم الجدول t1 واضفت حقل الترقيم التلقائى ويعمل بشكل جيد انظر لاستعلام التكرار ثم نفذ استعلام الحذف ووافنا بالنتيجه مثال(3).accdb

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

وشغال معى مفيش اى رسائل بتظهر ولا قيمه معلمه على اوفيس 2016

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

وعليكم السلام اهلا ومرحبا بك معنا بالنسبه للطلب الاول ان شاء الله يكون ما طلبت وسوف احاول فالطلب الثانى ان شاء الله تعالى تقبل تحياتى وبالتوفيق Database22.rar

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

الشكر لله اخى واياكم اخى بالتوفيق ان شاء الله

اخى الفاضل اكتب Me.Refresh Private Sub barcode_AfterUpdate() DoCmd.SetWarnings False Dim x1 x1 = Nz(DLookup("barcode", "tabl1", "[barcode] = " & Me.barcode), 0) Me.Refresh If x1 = 0 Then MsgBox "åÐÇ ÇáÕäÝ ÛíÑ ãÓÌá", vbMsgBoxRight + vbCritical, "ÊäÈíå" DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Exit Sub End If DoCmd.SetWarnings True End Sub بالتوفيق