السلام عليكم ورحمة الله / اعضاء الجروب الكرام كل عام وأنتم بخير بمناسبة شهر رمضان الكريم عندي نموذج مبني على جدولين يشتمل على مجموعة سجلات وليكن 100 سجل الترقيم التلقائي به مسجل من 1 إلى 100 ما على المستخدم الا أن يختار رقم السجل الموجود (من 1 إلى 100) ثم يقوم بتسجيل البيانات به سؤالي إذا رغبت حذف جميع الحفول في أحد السجلات (من الجدولين) بدون حذف رقم السجل (الترقيم التلقائي) فكيف يمكن ذلك أرجو أن يكون سؤال واضج وجزاكم الله خيرا

وعليكم السلام ورحمة الله تعالى وبركاته اخي @أبو أحمد ، تفضل الكود التالي بعد تعديل المسميات في مثالك. 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

بحث مخصص من جوجل فى أوفيسنا

Custom Search

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

بواسطه أبو أحمد
مارس 10 في قسم الأكسيس Access

https://www.officena.net/ib/topic/137577-%D8%AD%D8%B0%D9%81-%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-%D8%B3%D8%AC%D9%84-%D9%81%D9%8A-%D9%86%D9%85%D9%88%D8%B0%D8%AC/

متابعين 1

إذهب إلى الإجابة الإجابة بواسطة Foksh, مارس 14

اضف رد علي هذا الموضوع
أضف موضوع جديد

الردود الموصى بها

أبو أحمد

قام بنشر مارس 15

الكاتب

قام بنشر مارس 15

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

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

عتذر عن المتابعة أخي الكريم ،

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