أبوبسمله

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

وعليكم السلام ضع الكود التالى تحت الكود السابق مباشره Dim RS As DAO.Recordset Dim Counter As Integer Set RS = Me.Recordset If RS.RecordCount = 0 Then Exit Sub End If RS.MoveFirst Counter = 0 While Not RS.EOF Counter = Counter + 1 RS.Edit RS!Idd3 = Counter RS.Update RS.MoveNext Wend بالتوفيق ان شاء الله

مجرد ما تقف عالصف هيعيد ترقيمه لحاله جرب

فالا ستعلام اجعل الفرز تصاعدى اجعل الفرز تصاعدى لهذا الحقل

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

على مايبدوا ان اللغه الفرنسيه عامله مشكله معى بالتعديل وتعطينى حدث خطأ فى الملقم قم بالدخول على Table2 فى وضع التصميم قف على حقل IDD3 المطلوب وغير نوع البيانات رقم والخاصيه مفهرس بالاسفل نعم التكرار مقبول احفظ الجدول افتح النموذج Formulaire1 فى وضع التصميم ادخل على الاحداث للنموذج اختر حدث فالحالى Me.IDD3.Value = CurrentRecord ان شاء الله تشتغل وتظبط معك ان لم يكن فلعل احد اخواننا او اساتذتنا يستطيع مساعدتك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام اجعل الحقل فالجدول رقم وفالنموذج الفرعى فى حدث فالحالى Me.Id.Value = CurrentRecord غير Id لاسم الحقل

هو ليس مكرر استاذ عماد بناء على باقى السجل وليس كجزء من السجل باقى السجل فى الثلاث سجلات مختلف فلذلك ظهر معك ثلاث مرات بالتوفيق

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

وعليكم السلام استاذ عبدالجيد اطلع عالمواضيع التاليه لعلك تستفيد منها تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

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

اسهل حل عملته لك وهو كما اشار اخى واستاذى @kha9009lid بالرابط السابق بعمل المفتاح الاساسى على جميع الحقول وتم الحاق السجلات هل هذا ما تريد ام شىء آخر تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق New folder.rar

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

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

وعليكم السلام اخى رجاء وليس امر ضع مثال لما لديك بعد ذلك على ما فهمت منك فى النموذج الفرعى فى قسم الاحداث يوجد حدث لديك اسم بعد الادراج ادخل عليه وضع به Private Sub Form_AfterInsert() Me.Requery End Sub والله اعلى واعلم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام ان من اصعب مراحل المشروع هى تحليل وربط العلاقات لتنتج قاعده بيانات سليمه الحل من وجهه نظرى البسيطه كطالب علم هو اضافه حقل فى جدول المخابره لتتم فيم عمليه العد من رقم 1 بمعنى رقم المخابره مفتاح اساسى فريد ليتم ربط مع جدول الكتب كما بالمثال السابق ويتم اضافه حقل كمسلسل ويقبل التكرار حتى اننى حاولت إستخدام جدول التقاطع ولم يظبط معى انظر للمرفق بعد اضافه الحقل ولكن دعنى استوضح شىء منك اخى مازن اليس من المفروض لكل اضباره كتاب والكتاب به عده مخبرات او امخابره بمعنى اضباره تكليفات كتاب رقم رقم 500 مثلا بها تكليف للسيد مازن مثلا كتاب رقم رقم 550 مثلا بها تكليف للساده مازن واحمد ومحمد مثلا وان شاء الله احد اخواننا واساتذتنا يعاونوننا وارد وصادر(1).accdb

اخى الفاضل فى على الرابط التالى شرح تصدير استعلام للاكسيل فى شيت معين للاخ startnet حمله وحاول تنفذه انت عندك 4 استعلامات زى ما بتقول وكل استعلام فى صفحه لواحده هتعمل كود وتنسخه 4 مرات فى كل كود هتضع اسم استعلام والصفحه بتاعته اللى تتصدر عليه http://www.arabmoheet.net/aspnetforum/amf/72c9378b-e62c-4f05-9e47-b0161f60cb66.aspx?pageno=1&#entry198277 تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

الفو الشكر لله ثم لاخواننا واساتذتنا اجعله فى حدث عند الخروج Private Sub تاريخ_التركيب_Exit(Cancel As Integer) If Me.تاريخ_التركيب < Me.تاريخ_اصدار_الفاتوره Then MsgBox "تاريخ التركيب يجب ان يكون اكبر من او يساوى تاريخ الفاتوره" DoCmd.CancelEvent End If End Sub تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

الحمدلله الذى بنعمته تتم الصالحات واياكم اخى الفاضل بالتوفيق ان شاء الله

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

اتفضل اخى ان شاء الله يكون كما تريد اطفال.rar

بالتوفيق ان شاء الله