أبوبسمله

اخى الفاضل يرجى تعديل بياناتك بالموقع حتى نعرف كيف نناديك باسمك يرجى وضع مثال للعمل عليه لتسهيل الامور على اخوانك واساتذتنا فى مساعدتك ارفق لك مثال اطلع عليه لعلك تستفيد منه فى طلبك وجزاها الله خيرا ام عهود تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق za-test-UP.rar

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

جزاكم الله خيرا اخوانى واساتذتى @محمد ابوعبد الله و @Barna اخى محمد البرناوى ماذا يعنى حرف s بالكود Private Sub القائمة7_DblClick(Cancel As Integer) For Each s In القائمة7.ItemsSelected Items = Items & القائمة7.ItemData(s) & "-" Next End Sub لم انتبه للحرف فبدايه داله الفور جزاكم الله خيرا اساتذتى والحمدلله رب العالمين تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

اخى الفاضل @AmirAdams اذن اجعل رقم الفاتوره عند الحفظ ومن يحفظ اولا هياخد الرقم اللى عليه الدور وهكذا حتى لايتم فقد رقم وهو المقصود من سؤالك على ما فهمت عند الحفظ وعمل رفرش كامل لقاعده البيانات ب me.Repaint وهيظهر الرقم معك فالشاشه بعد الحفظ وقبل ما تطبع وهشوفلك موضوع قديم كان بيتكلم فالترقيم عالشبكه وهرسله لك والله اعلى واعلم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

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

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

الشكر لله اخى ابوصلاح اذا كنت تريد 3 استعلامات فى استعلام واحد فسيتم عمل استعلام توحيد لجمعهم كالتالى شوف استعلام واحد ثم بناء التقرير عليه استعلم عن مدرسه على حسن تعليم اساسى فى استعلام 1 لعله يكون طلبك شوف المرفق بعد التعديل مرتبات(1).rar

اخى الفاضل ايمن ارفق لك ملفك بعد التعديل والمثال الماخوذ منه الكود وهو تعديل من قبل ام عهود جزاها الله خيرا ولجميع اساتذتنا الذين نتعلم منهم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق مثال(1).accdb zaReAutoNumber-UP.mdb

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

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

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

واياكم اخى فى انتظار متابعتك لاتعلم معك

الشكر لله ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم وموصول للاخ الفاضل امير @AmirAdams بارك الله فيه اتفضل اختار من القائمه المنسدله تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 11.rar

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

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

وما نوع بيانات الحقل فى الجدول هل هو رقمى ام نصى يرجى ارفاق الملف افضل اضغطه وارفعه

اخى الفاضل عماد هل تكتب فالبحث موسوعه ام موسوعة ان كانت الثانيه فالكود الموجود يلغى البحث بال ' Asc(" آ ") = '194 ' Asc(" أ ") = '195 ' Asc(" إ ") = '197 ' Asc(" ا ") = '199 ' Asc(" ة ") = '201 ' Asc(" ه ") = '229 ' Asc(" ى ") = '236 ' Asc(" ي ") = '236 ويبحث بال { ا , ه , ى } فقم بالبحث بكلمه موسوعه سيتم تصفيه النموذج هذا ان فهمت كلامك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

اخى الفاضل تعديل على الاكواد السابقه لمثال اخى خالد جزاه الله خيرا فى حدث قبل التحديث وليس بعد Private Sub ID_AfterUpdate() ' للحقل الرقمى If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]=" & Me.[ID])) Then MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub Private Sub ID_AfterUpdate() 'للحقل النصى If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]='" & Me.[ID] & "'")) Then MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub ووافنا بالنتيجه

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

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

ارفقك مثالك افضل او الكود المعدل ليتم فحصه وما نوع الحقل

وهذا التعديل لتحديث المخزن بالقيمه بالنموذج + القيمه بالجدول اذا كان بالجدول 5 + 5 بالنموذج = 10 فانتظار تعليقك او شرح اكثر للمطلوب ان لم يكن اى التعديلات المرفقه مناسبه لطلبك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تعديل المادة.accdb

وعليكم السلام اخى الفاضل محاوله على قد مافهمت من طلبك وهو تحديث save بالجدول بناء على رقم الصنف فالحقل المنضم saveto وهو للاضافه اكتب القيمه ثم عند الخروج سيتم تحديث القيمه بالجدول وبالنموذج مباشره واعذرنى ان كنت فهمت خطأ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تعديل المادة.accdb

ما رائيك اخى الفاضل امير باختصار الكود الى الكود الرائع لاستاذنا جعفر @jjafferr جزاه الله خيرا هو وجميع اساتذتنا الافاضل الذين تعلمنا ونتعلم منهم كل يوم وفى حدث قبل التحديث Private Sub Itemcode_BeforeUpdate(Cancel As Integer) On Error Resume Next LN = DLookup("[itemCode] & '|' & [NameItem] & '|' & [الوحدة] & '|' & [سعر الشراء] ", "المواد", "[itemCode]='" & [itemCode] & "'") If IsNull(LN) Then MsgBox " كود_الصنف_المدخل غير صحيح", vbCritical, "مراقب حركة الادخالات" DoCmd.CancelEvent Else X = Split(LN, "|") Me.[itemName] = X(1) Me.[الوحدة] = X(2) Me.[سعر الشراء] = X(3) End If End Sub تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق