حذف بيانات سجل في نموذج

[أبو أحمد]

السلام عليكم ورحمة الله / اعضاء الجروب الكرام 

كل عام وأنتم بخير بمناسبة شهر رمضان الكريم

عندي نموذج مبني على جدولين يشتمل على مجموعة سجلات وليكن 100 سجل

الترقيم التلقائي به مسجل من 1 إلى 100    ما على المستخدم الا أن يختار رقم السجل الموجود (من 1 إلى 100) ثم يقوم بتسجيل البيانات به 

سؤالي إذا رغبت حذف جميع الحفول في أحد السجلات (من الجدولين) بدون حذف رقم السجل (الترقيم التلقائي) فكيف يمكن ذلك 

أرجو أن يكون سؤال واضج وجزاكم الله خيرا 

تم تعديل مارس 10 بواسطه أبو أحمد
زيادة للتوضيح

[Foksh]

34 دقائق مضت, أبو أحمد said:

السلام عليكم ورحمة الله

وعليكم السلام ورحمة الله وبركاته ..

زودنا بملف بسيط على الأقل للتعرف على اسماء الحقول والجداول يا صديقي 

[أبو أحمد]

41 دقائق مضت, Foksh said:

زودنا بملف بسيط على الأقل للتعرف على اسماء الحقول والجداول

تمام أستاذي الكريم حقك 

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

جربت محاولة كتاب 

 

                                                                                                                                                                               Me.filedname.value = " "

مع جميع الحقول في النموذج ولكن للاسف بعد الحذف تماما وعند التسجيل من جديد في السجل تظهر علامات الجدول الثاني من جديد تلقائيا 

حيث الجدول الاول أسماء وبيانات وفي الجدول الثاني علامات فقط مثل ،  :  ;  =  /  وغيرهم 

[Foksh]

38 دقائق مضت, أبو أحمد said:

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

 

يوجد كود لدي ، ولكنه يقوم بحذف جميع سجلات الجدول باستثناء حقل المفتاح الأساسي ..

أم تريد حذف سجل محدد !!!!

 

تم تعديل مارس 10 بواسطه Foksh
💥 توضيح بعض النقاط ..

[kkhalifa1960]

تفضل استاذ @أبو أحمد حسب مافهمت اليك مرفق بطلبك .  ووافني بالرد .

DDBoAhmed.rar

[أبو أحمد]

1 ساعه مضت, kkhalifa1960 said:

 حسب مافهمت اليك مرفق بطلبك
استاذي الكريم / أنا أسف لو أمكن ممكن تحوله إلى أكسس 2003  أسف لعدم ذكر ذلك في الأول ... شكرا على سعة صدرك 

5 ساعات مضت, Foksh said:

يوجد كود لدي ، ولكنه يقوم بحذف جميع سجلات الجدول باستثناء حقل المفتاح الأساسي

هذا هو المطلوب أين هو ؟؟
ولكن لو أمكن أنا بعمل على أكسس 2003 شكرا 

[Foksh]

5 دقائق مضت, أبو أحمد said:

هذا هو المطلوب أين هو ؟؟

ليس لدي آكسيس 2003 ، ولكن على حد علمي ، تأكد من وجود مكتبة "Microsoft DAO 3.6 Object Library" اذا لم يعمل معك الكود ،

رغم أن آكسيس 2003 يدعم DAO ( على حد علمي ، والله أعلم ) . على كل حال ، جرب الكود التالي ، ومتابع معك حتى تصل للنهاية ..

Private Sub Command0_Click()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
    Dim sqlUpdate As String
    Dim tableName As String
    
    tableName = "Employee" 'اسم الجدول
    Set db = CurrentDb
    
    Set rst = db.OpenRecordset(tableName, dbOpenDynaset)
    
    sqlUpdate = "UPDATE " & tableName & " SET "
    
    For Each fld In rst.Fields
        If fld.Name <> "EmployeeID" Then 'حقل المفتاح الأساسي
            If (fld.Attributes And dbAutoIncrField) = 0 Then
                sqlUpdate = sqlUpdate & "[" & fld.Name & "] = Null, "
            End If
        End If
    Next fld
    
    If Right(sqlUpdate, 2) = ", " Then
        sqlUpdate = Left(sqlUpdate, Len(sqlUpdate) - 2)
        
        db.Execute sqlUpdate, dbFailOnError
        
        MsgBox "تمت تصفية جميع البيانات باستثناء حقل المفتاح الأساسي", vbInformation, ""
    Else
        MsgBox "لا توجد حقول يمكن مسح محتوياتها", vbExclamation, ""
    End If
    
    rst.Close
    Set rst = Nothing
    Set db = Nothing
End Sub

 

ملف للتطبيق :-

Delete Records.accdb

 

 

 

[kkhalifa1960]

22 دقائق مضت, أبو أحمد said:

استاذي الكريم / أنا أسف لو أمكن ممكن تحوله إلى أكسس 2003  أسف لعدم ذكر ذلك في الأول ... شكرا على سعة صدرك

تفضل استاذ 

DDBoAhmed -1.rar

[أبو أحمد]

52 دقائق مضت, Foksh said:

اذا لم يعمل معك الكود ،

رغم أن آكسيس 2003 يدعم DAO ( على حد علمي ، والله أعلم ) . على كل حال ، جرب الكود التالي ، ومتابع معك حتى تصل للنهاية ..

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

 

[أبو أحمد]

3 ساعات مضت, kkhalifa1960 said:

حسب مافهمت اليك مرفق بطلبك

بحاول أفهم لاني على قد حالي أخي الكريم 
احاول افهم وارد عليك ان شاء الله لانه واضح انه به شغل كثير 

جزاكم الله خيرا استاذي الكريم 

[Foksh]

37 دقائق مضت, أبو أحمد said:

لو سهلت علي ممكن تحوله ألى أكسس 2003 جزاكم الله خيرا تكون سهلت عليا كثير 

 

جرب هذا المرفق

Delete Records.mdb

[أبو أحمد]

1 ساعه مضت, Foksh said:

جرب هذا المرفق

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

[أبو أحمد]

3 ساعات مضت, kkhalifa1960 said:

فضل استاذ 

السلام عليكم ورحمة الله 
أستاذي الكريم الكود لا يعمل ويعطي رسالة عند الفتح كما في الصورة 

[Foksh]

11 ساعات مضت, أبو أحمد said:

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

حسناً ، جرب هذا التعديل ، كنت قد جهزته مسبقاً للإحتياط لهكذا رد .

مع العلم أنني لا أملك أوفيس 2003 للأسف ، وعل أحد الأخوة ممن يملك هذا الإصدار إفادتنا بالنتيجة أيضاً ..

 

Private Sub Command0_Click()
    On Error GoTo ErrorHandler
    
    Dim db As Database
    Dim rst As Recordset
    Dim fld As Field
    Dim sqlUpdate As String
    Dim tableName As String
    
    tableName = "Employee" 'اسم الجدول
    Set db = CurrentDb()
    
    Set rst = db.OpenRecordset(tableName)
    
    sqlUpdate = "UPDATE " & tableName & " SET "
    
    For Each fld In rst.Fields
        If fld.Name <> "EmployeeID" Then 'حقل المفتاح الأساسي
            If Not (fld.Attributes And dbAutoIncrField) Then
                sqlUpdate = sqlUpdate & "[" & fld.Name & "] = Null, "
            End If
        End If
    Next fld
    
    If Right(sqlUpdate, 2) = ", " Then
        sqlUpdate = Left(sqlUpdate, Len(sqlUpdate) - 2)
        
        db.Execute sqlUpdate
        
        MsgBox "تمت تصفية جميع البيانات باستثناء حقل المفتاح الأساسي", vbInformation
    Else
        MsgBox "لا توجد حقول يمكن مسح محتوياتها", vbExclamation
    End If
    
ExitSub:
    If Not rst Is Nothing Then rst.Close
    Set rst = Nothing
    Set db = Nothing
    Exit Sub
    
ErrorHandler:
    MsgBox "حدث خطأ", vbCritical
    Resume ExitSub
End Sub

1. حيث ما تم تعديله هو حذف مرجعيات DAO من تعريفات الكائنات لأنها غير ضرورية في أكسس 2003 حسب علمي .

2. قمت بإضافة معالجة الأخطاء باستخدام On Error GoTo ErrorHandler .

3. قمت بحذف dbFailOnError لأنه غير ضروري مع وجود معالج الأخطاء .

جرب وأخبرني بالنتيجة ,,

 

جرب بدايةً على الحذف الكامل ، ثم ننتقل لحذف سجل محدد

مع العلم ، هذا ردك على حذف سجل واحد مؤخراً

تم تعديل مارس 11 بواسطه Foksh

[Foksh]

قمت بتثبيت نسخة أوفيس 2003 لمتابعة النتائج ، وهذه صورة للتوضيح للنتيجة :-

 

 

المرفق :-

Delete Records 1By1.mdb

[أبو أحمد]

20 ساعات مضت, Foksh said:

حسناً ، جرب هذا التعديل ،

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

إذا كان الجدول الرئيسي عندي للاسف عنوان باللغة العربية جدول تسجيل الكتب فكيف يكتب في الكود 

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

Option Compare Database

Private Sub Command0_Click()

    On Error GoTo ErrorHandler

   

    Dim db As dao.Database

    Dim rst1 As Recordset, rst2 As Recordset

    Dim fld As Field

    Dim sqlUpdate1 As String, sqlUpdate2 As String

    Dim جدول تسجيل الكتب D As Long

   

    If Me. searinumber= 0 Or IsNull(Me. searinumber) Or Me. searinumber= "" Then

        MsgBox "الرجاء إدخال رقم الكتاب", vbExclamation

        Me. searinumber.SetFocus

        Exit Sub

    End If

   

جدول تسجيل الكتب D = Val(Me. searinumber)

   

    Set db = CurrentDb()

   

    Dim strCheck As String

    strCheck = "SELECT COUNT(*) FROM Empl WHERE NoMArks = " & empID

    If DCount("*", "Empl", " NoMArks = " & empID) = 0 Then

        MsgBox "رقم الكتاب غير موجود", vbExclamation

        Me. searinumber.SetFocus

        GoTo ExitSub

    End If

 

    Set rst1 = db.OpenRecordset("Empl") 'الجدول الرئيسي

    sqlUpdate1 = "UPDATE Empl SET "

   

    For Each fld In rst1.Fields

        If fld.Name <> " Marks ID" Then  'المفتاح الأساسي

            If Not (fld.Attributes And dbAutoIncrField) Then

                sqlUpdate1 = sqlUpdate1 & "[" & fld.Name & "] = Null, "

            End If

        End If

    Next fld

   

    If Right(sqlUpdate1, 2) = ", " Then

        sqlUpdate1 = Left(sqlUpdate1, Len(sqlUpdate1) - 2)

        sqlUpdate1 = sqlUpdate1 & " WHERE NoMArks = " & empID

    End If

   

    Set rst2 = db.OpenRecordset("Marks ")  'الجدول الفرعي

    sqlUpdate2 = "UPDATE Marks SET "

   

    For Each fld In rst2.Fields

        If fld.Name <> " Marks ID" Then  'الحقل المرتبط به

            If Not (fld.Attributes And dbAutoIncrField) Then

                sqlUpdate2 = sqlUpdate2 & "[" & fld.Name & "] = Null, "

            End If

        End If

    Next fld

   

    If Right(sqlUpdate2, 2) = ", " Then

        sqlUpdate2 = Left(sqlUpdate2, Len(sqlUpdate2) - 2)

        sqlUpdate2 = sqlUpdate2 & " WHERE NoMArks = " & empID

    End If

   

    db.Execute sqlUpdate1

    db.Execute sqlUpdate2

   

    MsgBox "تمت تصفية بيانات الموظف رقم " & empID & " في الجدولين", vbInformation

    Me. Marks.Requery

   

ExitSub:

    If Not rst1 Is Nothing Then rst1.Close

    If Not rst2 Is Nothing Then rst2.Close

    Set rst1 = Nothing

    Set rst2 = Nothing

    Set db = Nothing

    Exit Sub

   

ErrorHandler:

    MsgBox "حدث خطأ", vbCritical

    Resume ExitSub

End Sub

وفي النهاية اعطاني هذه الرسالة بالمرفق جزاكم الله خيرا 

[Foksh]

13 ساعات مضت, أبو أحمد said:

إذا كان الجدول الرئيسي عندي للاسف عنوان باللغة العربية جدول تسجيل الكتب فكيف يكتب في الكود 

 

أخي الكريم أهلا وسهلاً بك .. بدايةً لا بد أن أوضح لك أن اللغة العربية في المسميات للجداول ةالحقول ستخلق لك صعوبات ومشاكل في كتابة الأكواد والاستعلامات ... إلخ . أضف إلى ذلك أنك تستخدم أسماء عربية مكونة من أكثر من كلمة وتفصل بينها مسافات وليس إشارة "_" على سبيل المثال ..

على العموم ، في أسماء الجداول أو الحقول التي تتكون من أكثر من كلمة عربية وتفصل بينها مسافة استخدم علامتي الـ "" ، وفي أسماء الحقول .

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

 

Private Sub Command0_Click()
    On Error GoTo ErrorHandler

    Dim db As DAO.Database
    Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset
    Dim fld As DAO.Field
    Dim sqlUpdate1 As String, sqlUpdate2 As String
    Dim رقم_الكتاب As Long

    If Me.رقم_البحث = 0 Or IsNull(Me.رقم_البحث) Or Me.رقم_البحث = "" Then
        MsgBox "الرجاء إدخال رقم الكتاب", vbExclamation
        Me.رقم_البحث.SetFocus
        Exit Sub
    End If

    رقم_الكتاب = Val(Me.رقم_البحث)

    Set db = CurrentDb()

    If DCount("*", "جدول_الموظفين", "رقم_الموظف = " & رقم_الكتاب) = 0 Then
        MsgBox "رقم الكتاب غير موجود", vbExclamation
        Me.رقم_البحث.SetFocus
        GoTo ExitSub
    End If

    Set rst1 = db.OpenRecordset("جدول_الموظفين")
    sqlUpdate1 = "UPDATE جدول_الموظفين SET "

    For Each fld In rst1.Fields
        If fld.Name <> "معرف_الموظف" Then  ' المفتاح الأساسي
            If Not (fld.Attributes And dbAutoIncrField) Then
                sqlUpdate1 = sqlUpdate1 & "[" & fld.Name & "] = Null, "
            End If
        End If
    Next fld

    If Right(sqlUpdate1, 2) = ", " Then
        sqlUpdate1 = Left(sqlUpdate1, Len(sqlUpdate1) - 2)
        sqlUpdate1 = sqlUpdate1 & " WHERE رقم_الموظف = " & رقم_الكتاب
    End If

    Set rst2 = db.OpenRecordset("جدول_العلامات")
    sqlUpdate2 = "UPDATE جدول_العلامات SET "

    For Each fld In rst2.Fields
        If fld.Name <> "معرف_الموظف" Then
            If Not (fld.Attributes And dbAutoIncrField) Then
                sqlUpdate2 = sqlUpdate2 & "[" & fld.Name & "] = Null, "
            End If
        End If
    Next fld

    If Right(sqlUpdate2, 2) = ", " Then
        sqlUpdate2 = Left(sqlUpdate2, Len(sqlUpdate2) - 2)
        sqlUpdate2 = sqlUpdate2 & " WHERE رقم_الموظف = " & رقم_الكتاب
    End If

    db.Execute sqlUpdate1
    db.Execute sqlUpdate2

    MsgBox "تمت تصفية بيانات الموظف رقم " & رقم_الكتاب & " في الجدولين", vbInformation
    Me.جدول_العلامات.Requery

ExitSub:
    If Not rst1 Is Nothing Then rst1.Close
    If Not rst2 Is Nothing Then rst2.Close
    Set rst1 = Nothing
    Set rst2 = Nothing
    Set db = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "حدث خطأ", vbCritical
    Resume ExitSub
End Sub

لاحظ أسماء الحقول والجداول كيف تم تعديلها بإشارة "_" ..

[أبو أحمد]

منذ ساعه, Foksh said:

خي الكريم أهلا وسهلاً بك .. بدايةً لا بد أن أوضح لك أن اللغة العربية في المسميات للجداول ةالحقول ستخلق لك صعوبات

جزاكم الله خيرا على هذه المعلومة 

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

[أبو أحمد]

في 12‏/3‏/2025 at 12:46, Foksh said:

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

السلام عليكم ورحمة الله 

أشكركم على سعة صدركم 

مرفق طيه نموذج لقاعدة البيانات لدي وقد فشلت عمل الكود لحذف سجل من النموذج بدون أأن  افقد الترقيم التلقائي (رقم العام للكتاب) 

معذرة لأن القاعدة بها بيانات حقول باللغة العربية وكذلك اسم النموذج ويصعب تعديلهما في الوضع الحالي

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

تفضل المرفق وجزاكم الله خيرا

db1.rar

[Foksh]

وعليكم السلام ورحمة الله تعالى وبركاته اخي @أبو أحمد ، تفضل الكود التالي بعد تعديل المسميات في مثالك.

Private Sub أمر26_Click()
    On Error GoTo ErrorHandler
    
    Dim db As dao.Database
    Dim rst1 As Recordset, rst2 As Recordset
    Dim fld As Field
    Dim sqlUpdate1 As String, sqlUpdate2 As String
    Dim recordID As Long
    
    If Me.searinumber = 0 Or IsNull(Me.searinumber) Or Me.searinumber = "" Then
        MsgBox "الرجاء إدخال رقم السجل", vbExclamation
        Me.searinumber.SetFocus
        Exit Sub
    End If
    
    recordID = Val(Me.searinumber)
    
    Set db = CurrentDb()
    
    If DCount("*", "جدول تسجيل الكتب", "searinumber = " & recordID) = 0 Then
        MsgBox "رقم السجل غير موجود", vbExclamation
        Me.searinumber.SetFocus
        GoTo ExitSub
    End If
    
    Set rst1 = db.OpenRecordset("جدول تسجيل الكتب") 'الجدول الرئيسي
    sqlUpdate1 = "UPDATE [جدول تسجيل الكتب] SET "
    
    For Each fld In rst1.Fields
        If fld.Name <> "searinumber" Then  'المفتاح الأساسي
            If Not (fld.Attributes And dbAutoIncrField) Then
                sqlUpdate1 = sqlUpdate1 & "[" & fld.Name & "] = Null, "
            End If
        End If
    Next fld
    
    If Right(sqlUpdate1, 2) = ", " Then
        sqlUpdate1 = Left(sqlUpdate1, Len(sqlUpdate1) - 2)
        sqlUpdate1 = sqlUpdate1 & " WHERE searinumber = " & recordID
    End If
    
    Set rst2 = db.OpenRecordset("Marks")  'الجدول الفرعي
    sqlUpdate2 = "UPDATE Marks SET "
    
    For Each fld In rst2.Fields
        If fld.Name <> "NoMArks" Then  'الحقل المرتبط
            If Not (fld.Attributes And dbAutoIncrField) Then
                sqlUpdate2 = sqlUpdate2 & "[" & fld.Name & "] = Null, "
            End If
        End If
    Next fld
    
    If Right(sqlUpdate2, 2) = ", " Then
        sqlUpdate2 = Left(sqlUpdate2, Len(sqlUpdate2) - 2)
        sqlUpdate2 = sqlUpdate2 & " WHERE NoMArks = " & recordID
    End If
    
    db.Execute sqlUpdate1
    db.Execute sqlUpdate2
    
    MsgBox "تمت تصفية بيانات السجل رقم " & recordID & " في الجدولين", vbInformation
    Me.Requery
    
ExitSub:
    If Not rst1 Is Nothing Then rst1.Close
    If Not rst2 Is Nothing Then rst2.Close
    Set rst1 = Nothing
    Set rst2 = Nothing
    Set db = Nothing
    Exit Sub
    
ErrorHandler:
    MsgBox "حدث خطأ", vbCritical
    Resume ExitSub
End Sub

 

[أبو أحمد]

3 ساعات مضت, Foksh said:

تفضل الكود التالي بعد تعديل المسميات في مثالك

السلام عليكم ورحمة الله 
تمام أستاذي الكريم  .. والله أنا أسف جدا  ظهرت مشكلة لم انتبه اليها في القاعدة الاساسية عندي ستظهر لكم في المرفق بعد التعديل 
وعندما وضعت الكود ظهرت هذه المشكلة وهي ان حقل searinumber غيرت اسمه الى الرقم العام في الخصائص وان محتواه يظهر في الحقل الجديد مربع_تحرير_وسرد156 
والله أنا أسف فعلا لم انتبه معذرة لو طلبت من حضرتك تعديل الكود لاني حاولت عدة مرات وفشلت 

مرفق الالقاعدة مرة ثانية بعد التعديل 

جزاكم الله خيرا وشكرا لسعة صدرك معي 

db1.rar

[Foksh]

4 دقائق مضت, أبو أحمد said:

السلام عليكم ورحمة الله 
تمام أستاذي الكريم  .. والله أنا أسف جدا  ظهرت مشكلة لم انتبه اليها في القاعدة الاساسية عندي ستظهر لكم في المرفق بعد التعديل 
وعندما وضعت الكود ظهرت هذه المشكلة وهي ان حقل searinumber غيرت اسمه الى الرقم العام في الخصائص وان محتواه يظهر في الحقل الجديد مربع_تحرير_وسرد156 
والله أنا أسف فعلا لم انتبه معذرة لو طلبت من حضرتك تعديل الكود لاني حاولت عدة مرات وفشلت 

مرفق الالقاعدة مرة ثانية بعد التعديل 

جزاكم الله خيرا وشكرا لسعة صدرك معي 

db1.rar 29.16 kB · 0 downloads

يا صديقي ، الحلول البسيطة والمفهومة تأتيك وحدها عند سلامة التأسيس ، كل الشكر والتقدير والاحترام لك 😇

 

سأحاول غداً إن شاء الله تعالى لتلبية مطلبك الجديد 

[أبو أحمد]

الان, Foksh said:

سأحاول غداً إن شاء الله تعالى لتلبية مطلبك الجديد 

جزاكم الله خيرا وبارك فيكم 
وتقبل الله صيامكم وصالح أعمالكم 

[أبو أحمد]

14 ساعات مضت, أبو أحمد said:

السلام عليكم ورحمة الله 
تمام أستاذي الكريم  .. والله أنا أسف جدا  ظهرت مشكلة لم انتبه اليها في القاعدة الاساسية عندي ستظهر لكم في المرفق بعد التعديل 
وعندما وضعت الكود ظهرت هذه المشكلة وهي ان حقل searinumber غيرت اسمه الى الرقم العام في الخصائص وان محتواه يظهر في الحقل الجديد مربع_تحرير_وسرد156 
والله أنا أسف فعلا لم انتبه معذرة لو طلبت من حضرتك تعديل الكود لاني حاولت عدة مرات وفشلت 

مرفق الالقاعدة مرة ثانية بعد التعديل 

جزاكم الله خيرا وشكرا لسعة صدرك معي 

معذرة تم تعديل قاعدة البيانات لتتناسب مع التي أملكها 
سؤال بعد تعديل الكود من طرف حضرتك وحذف السجل بالكامل هل ممكن ترك حقل واحد بدون حذف بيانه (مكتوب بداخلة القيمة 1) وهو G N أو اضافة قيمه الى هذا الحقل بداخله رقم 1 فقط 

وجزاكم الله خيرا 

db1.rar

[Foksh]

اعتذر عن المتابعة أخي الكريم ، عل أحد الإخوة والأساتذة يفيدك في تحقيق مطالبك والتعامل مع المسميات باللغة العربية بشكل أفضل مني  .