تقييم الموضوع :
  • 1 أصوات - بمعدل 4
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة فى حالة حذف سجل
#1
احبابى فى حالة حذف سجل يحدث خلل برقم الفاتورة وعند عمل اضافة جديد يتكرر رقم اخر فاتورة

كيف الحل احبابى فى الله
الرد }}}}
تم الشكر بواسطة:
#2
اهلا و سهلا
اخي الحبيب لنصل للحل بصورة اسرع
نرجو منك ارفاق المثال
شكرا جزيلا
سأعود قريباً ان شاء الله

الرد }}}}
تم الشكر بواسطة: عبد العزيز البسكري , mhareek , Ahmed_Mansoor
#3
اخى امير جزاك الله خير على الرد

هاك المثال اخى الغالى

فى قاعدة البيانات عند حذف سجل منها عن طريقة كود الجذف " adodc1.recordset.delete "
نجد انة قام بحزف السجل تمام واصبح رقمة غير موجود
عندما نقوم باضافة سجل جديد سوف نعمل الاتى " adodc1.Recordset.RecordCount + 1"
سوف يقوم الكود بعد السجلات ويضيف واحد فنجد انة يكرر اخر رقم فلو كان اخر السجل 10 نجدة يضسف سجل جديد ورقمة 10 ايضا

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

جزاكم الله عنى خيرا
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#4
اهلا اخي الحبيب
تفضل قم بتجربة هذا الكود
- قم بوضع هذا الكود في زر الامر اضافة سجل جديد ان وجد
PHP كود :
If Adodc1.Recordset.RecordCount 0 Then
TextID 
"1"
Else
Adodc1.Recordset.Requery
Adodc1
.Recordset.MoveLast
TextID 
CInt(Adodc1.Recordset.Fields(0)) + 1
End 
If 

وهذا الكود ايضا في حدث الفورم لود
حيث ان Table_One هو اسم الجدول

PHP كود :
Dim Data_Connect As String
Dim Data_Path 
As String
Data_Path 
App.Path "\VB4ARAB.mdb;Persist Security Info=False;Jet OLEDB:Database"

Data_Connect "Provider=Microsoft.Jet.OLEDB.4.0;" _
        
"Data Source= " Data_Path ""

Adodc1.ConnectionString Data_Connect
Adodc1
.RecordSource "Tabel_One"
Adodc1.Refresh 
سأعود قريباً ان شاء الله

الرد }}}}
#5
الف الف شكر اخى الغالى امير جزاك الله عنى خير فعلا رائع

اخى الغالى هل استخدم كود واحد منهم ام يجب استخدام الكودين

نعم اخى الغالى اعتقد نستخدم كود الاول فقط اما الكود الثانى فاعتقد للربط فقط

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

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

مثلا لو ان السجلات 100 وحذفنا رقم 99 فبالتالى سوف يكون هناك رقم خالى بينما يكون اخر السجلات 100
هل يمكن ان نعيد الترتيب بحيث ان اخر سجل يكون رقمه 99 وليس 100
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#6
السلام عليكم ورحمة الله وبركاته

اخي الحبيب هاني كيف حالك

بخصوص هذا السؤال نعم يمكنك اعادة ترتيب السريال
لكن هذا خطأ فعندما يتم حذف فاتورة يجب ان يكون مكانها خالي حتى يتبين لمن يدقق على الفواتير ان هذه الفاتورة تم حذفها فاذا تمكن المستخدم من صلاحية حذف وإعادة ترتيب السريال فسوف يسرق اغلب الفواتير

ومثلا في المحاسبة لو تم حذف قيد محاسبي يجب ان يكون مكانه خالي حتى لا يتمكن المحاسب من اعادة اخال قيد جديد وعمل سريال جديد
وبالتالي قد ضاع من قام بمراجعة القيود وبداء رأيه بها لأن المحاسب اخل قيد لم يراه والا فعليه كل مرة ان يقوم بإعادة مراجعة القيود كامله

وهذا مستحيل ومرهق جدا

هذه نصيحه عامه للجميع تجنبوا إعادة بناء السريال مرة آخرى

وبالتوفيق
محاسب / أحمد عبد العليم
الرد }}}}
#7
اهلا اخي الحبيب
الشكرلله دائما وابدا
انا مع الاستاذ القدير احمد عبد العليم فيما يخص موضوع اعادة ترتيب التسلسل فقط عليك الاخذ بالنصيحة وهذا سيعود عليك بنتائج ايجابية دائما
تحياتي لك
سأعود قريباً ان شاء الله

الرد }}}}
#8
اهلا وسهلا استاذى الغالى احمد عبد العليم شرفتنا بالمشاركة القيمة استاذى


نعم احسنت استاذى الغالى احمد عبد العليم فعلا كلامك مظبوط

وسوف اخذ برئيك

سلمت يارب بارك الله فيك لا حرمنا الله منك
وسلمت اخى الغالى الاستاذ امير
نعم الناس انتم

جزاكم الله عنى خيرا
الرد }}}}
تم الشكر بواسطة: ahmedabdelaliem , عبد العزيز البسكري
#9
اخى الغالى عندى مشكلة ان عند عمل امر " Adodc1.Recordset.MoveLast "
قاعدة البيانات لاتذهب الى اخر سجل لا اعرف لماذا تقف عندى اى سجل وليس السجل الاخير وبالتالى الترقيم لن يكون صحيح

ارجو المساعدة اخى الغالى
الرد }}}}
تم الشكر بواسطة:
#10
اساذى احمد عبد العليم

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تطبيق هذا الكود bidaya 0 34 06-12-16, 04:46 AM
آخر رد: bidaya
  [سؤال] ممكن مساعدة في ايجاد كود او اداة لاظهار جدول في واجهة البرنامج مبرمج جديد 2 109 09-11-16, 03:48 AM
آخر رد: مبرمج جديد
  [vb6.0] مساعدة عاجلة من الاخوة الكرام (ادارج صورة من فيجوال بيسك الى ملف وورد) sher 1 233 08-11-16, 02:32 AM
آخر رد: AL_BRNS
  مساعدة فى عمل برنامج بسيط hithemlion 23 624 27-09-16, 05:22 PM
آخر رد: Amir_alzubidy
  مساعدة في Active report haiderkh 4 188 31-08-16, 12:08 AM
آخر رد: Ahmed_Mansoor
  مساعدة في كود بحث Microsoft Visual Basic 6.0 2 154 24-07-16, 06:14 PM
آخر رد: Microsoft Visual Basic 6.0
  مساعدة text مربوطة بقاعدة بيانات mohfar 2 141 14-07-16, 09:46 PM
آخر رد: Amir_alzubidy
  مساعدة في كود الطباعة Mo_rb 5 276 07-07-16, 06:17 PM
آخر رد: Amir_alzubidy
  [ تمّ الحل ] مساعدة برسائل تنبيهيّة خاصّة عبد العزيز البسكري 5 187 19-06-16, 04:16 AM
آخر رد: Amir_alzubidy
  [vb6.0] مساعدة في رفع قاعدة برنامج vb6 والبحث بالنت fahad fbs 0 152 14-06-16, 03:59 PM
آخر رد: fahad fbs

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم