نضال قام بنشر مايو 28, 2006 قام بنشر مايو 28, 2006 السلام عليكم.............. هل من الممكن ان اعيد الترقيم التلقائي بعد حذف احد السجلات !!! وذلك بتصميم زر امر خاص بذلك !! ارجو الافادة ........ في المثال المرفق .... db1.rar
بو يوسف الراشد قام بنشر مايو 28, 2006 قام بنشر مايو 28, 2006 اخي في الله الاخ نضال.... تم التعديل على الملف أرجو ان تشاهده وتعطيني رأيك db1.rar
نضال قام بنشر مايو 29, 2006 الكاتب قام بنشر مايو 29, 2006 بارك الل فيك اخي يوسف ......... لقد اطلعت على الملف واعطيك ملاحظاتي بعد التجربة : 1- زر الحذف يحذف آخر سجل وليس السجل الذي اختاره !!! 2- عند الحذف ... لا يعطيني البرنامج رسالة تاكيد بالحذف !! 3- عندما يبقى آخر سجل فإن البرنامج يعطيني رسالة تأكيد وبعدها تحذف جميع محتويات النموذج بما فيه الازرار فيبقى النموذج فارغا !!! 4- لماذا غير نوع البيانات في سجل الرقم للجدول من ترقيم تلقائي الى رقم!! 5- ارجو ان تشرح لي الكود الذي كتبته في حدث ( في الحالي ) للنموذج .. 6- لماذا لم تكتب كود في زر اعادة الترقيم التلقائي .... حتى يكون الامر سهلا على المستخدم ... أمن المعقول ان لا يوجد كود يوفر ذلك في عالم الاكواد للاكسس ..... 7- ما معنى الكود الذي كتبته في زر اضافة !! ارجو التوضيح بارك الله فيك .... فإني مستفيد منك كثيرا دائما وأبدا
بو يوسف الراشد قام بنشر مايو 29, 2006 قام بنشر مايو 29, 2006 الرد على الملاحظة الأولى: ........................ (زر الحذف يحذف آخر سجل وليس السجل الذي اختاره !!!) ....................... زر الحذف يقوم بحذف السجل الذي تختارة وليس السجل الأخير لأنه بعد حذف السجل الذي تختاره وليكن مثلا (5) تنتقل بيانات السجل رقم (6) ليصبح رقمها (5) اوضح لك أكثر: 1 محمد 2 خالد 3 عمر 4 سعيد لو حذفت السجل الثاني (خالد)....... ماذا سيحدث سيصبح ترتيب السجلات كالتالي: 1 محمد 2 عمر 3 سعيد يعني اصبح اسم عمر في السجل الثاني ولم يتم حذف السجل الأخير.
بو يوسف الراشد قام بنشر مايو 29, 2006 قام بنشر مايو 29, 2006 بالنسبة للملاحظة الثانية: (عند الحذف ... لا يعطيني البرنامج رسالة تاكيد بالحذف !!) ساصنعها لك الملاحظة الثالثة: (عندما يبقى آخر سجل فإن البرنامج يعطيني رسالة تأكيد وبعدها تحذف جميع محتويات النموذج بما فيه الازرار فيبقى النموذج فارغا !!!) لأنه في خيارات النموذج قمت أنا بجعل خاصية (السماح بالإضافة) تكون "لا" حولها إلى "نعم" وتنتهي المشكلة
بو يوسف الراشد قام بنشر مايو 29, 2006 قام بنشر مايو 29, 2006 الملاحظة الرابعة: (لماذا غير نوع البيانات في سجل الرقم للجدول من ترقيم تلقائي الى رقم!!) لأن الترقيم التقائي يزداد الرقم فيه حتى ولو تم حذف السجل (يعني لا ينفع معه ترتيب الأرقام 1 2 3 4 5 6 7 8 9 10 11 ....... الخ)
نضال قام بنشر مايو 29, 2006 الكاتب قام بنشر مايو 29, 2006 جميل اخي بو يوسف .... والله رائع .. بقيت ثلاث ملاحظات وتنتهي المشكلة بالنسبة لدي .... في انتظارك
بو يوسف الراشد قام بنشر مايو 29, 2006 قام بنشر مايو 29, 2006 الملاحظة الخامسة: (ارجو ان تشرح لي الكود الذي كتبته في حدث ( في الحالي ) للنموذج ..) يحتوى حدث "في الحالي" على السطور التالية: On Error GoTo EEE: If Me.NewRecord = False Then Me.AllowAdditions = False الرقم= Me.CurrentRecord End If EEE: Exit Sub السطر الأول: (On Error GoTo EEE:) تعني في حال ظهور خطأ اذهب إلى التابع (EEE) ليتم اجراء حدث (على حسب طلبي) السطر الثاني والثالث والرابع والخامس: جملة شرطية تقول : (في حال ما إذا كان السجل الحالي لا يعتبر سجل جديد قم بالتالي: 1.(Me.AllowAdditions = False) قم بجعل خاصية السماح باضافة السجلات تساوي "لا" 2.جعل الحقل"الرقم" تساوي قيمة السجل الحالي ...... هنا هو طلبك في الموضوع ...... 3. انهاء الجملة الشرطية (End If) السطر السادس:قم بانهاء الحدث (في الحالي) من خلال جملة (Exit Sub)
بو يوسف الراشد قام بنشر مايو 29, 2006 قام بنشر مايو 29, 2006 الملاحظة السادسة: (لماذا لم تكتب كود في زر اعادة الترقيم التلقائي .... حتى يكون الامر سهلا على المستخدم ... أمن المعقول ان لا يوجد كود يوفر ذلك في عالم الاكواد للاكسس .....) لا يمكن عمل ذلك مع حقل الترقيم التلقائي .... ... إذا كان في خاطرك عمل هذا الزر .... فساحاول التفكير في ايجاد الحل
بو يوسف الراشد قام بنشر مايو 29, 2006 قام بنشر مايو 29, 2006 الملاحظة السابعة: (ما معنى الكود الذي كتبته في زر اضافة !!) يحتوى حدث على السطور التالية On Error GoTo Err_أمر7_Click Me.AllowAdditions = True DoCmd.GoToRecord , , acNewRec الرقم= Me.CurrentRecord Exit_أمر7_Click: Exit Sub Err_أمر7_Click: MsgBox Err.Description Resume Exit_أمر7_Click كل من السطر (1 5 6 7 8 9) قد تم شرحه وخاص بالخطأ السطر الثاني: (Me.AllowAdditions = True) قم بجعل خاصية السماح باضافة السجلات تساوي "نعم" ليتم السماح باضافة سجل جديد السطر الثالث: (DoCmd.GoToRecord , , acNewRec) الانتقال إلى موقع السجل الجديد ( الرقم= Me.CurrentRecord) جعل الحقل"الرقم" تساوي قيمة السجل الحالي والسلام ليكم ورحمة الله وبركاته """"
نضال قام بنشر مايو 30, 2006 الكاتب قام بنشر مايو 30, 2006 وضحت الرؤية اخي الكريم ..... بارك الله فيك .... واذا وجدت حل بالنسبة لزر الترقيم سيكون افضل .... جزاك الله خيرا ...
مهند عبادي قام بنشر مايو 31, 2006 قام بنشر مايو 31, 2006 أخي الكريم تفضل الحل بواسطة زر إعادة الترقيم db1.rar
بو يوسف الراشد قام بنشر مايو 31, 2006 قام بنشر مايو 31, 2006 استاذنا/مهند عبادي لا أقول سوى (بارك الله فيك وفي علمك) 1
شاهر قام بنشر مايو 31, 2006 قام بنشر مايو 31, 2006 اخي /مهند عبادي زاد الله علما ونور ومتعك الله بصحه والعافيه
نضال قام بنشر يونيو 1, 2006 الكاتب قام بنشر يونيو 1, 2006 بارك الله فيك استاذنا مهند .... جوزيت خيرا .... والشكر الجزيل لك اخي بويوسف ... فقد استخدمت الطريقتين شكرا لكم
ahmedamer2005 قام بنشر أكتوبر 28, 2006 قام بنشر أكتوبر 28, 2006 كيف يتنسنى لى اعادة الترقيم التلقائى لهذا الجدول المرفق TEST.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.