أبو أحمد

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

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

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

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

السلام عليكم ورحمة الله أشكركم على سعة صدركم مرفق طيه نموذج لقاعدة البيانات لدي وقد فشلت عمل الكود لحذف سجل من النموذج بدون أأن افقد الترقيم التلقائي (رقم العام للكتاب) معذرة لأن القاعدة بها بيانات حقول باللغة العربية وكذلك اسم النموذج ويصعب تعديلهما في الوضع الحالي كل عام وانتم بخير تفضل المرفق وجزاكم الله خيرا db1.rar

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

تمام هذا هو المطلوب ولكن للاسف مش عارف أعمل الكود على القاعدة عندي إذا كان الجدول الرئيسي عندي للاسف عنوان باللغة العربية جدول تسجيل الكتب فكيف يكتب في الكود هذا هو الكود الذي قمت بتعديله من عندكم فهل سحتاج للتعديل .. جزاكم الله خيرا 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 وفي النهاية اعطاني هذه الرسالة بالمرفق جزاكم الله خيرا

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

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

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

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

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

تمام أستاذي الكريم حقك ولكن أنا اعتقد أنه يوجد كود معين لحذف جميع محتوى السجل باستثناء حقل الترقيم التلقائي المسجل لذلك لم أضع مثال جربت محاولة كتاب Me.filedname.value = " " مع جميع الحقول في النموذج ولكن للاسف بعد الحذف تماما وعند التسجيل من جديد في السجل تظهر علامات الجدول الثاني من جديد تلقائيا حيث الجدول الاول أسماء وبيانات وفي الجدول الثاني علامات فقط مثل ، : ; = / وغيرهم

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

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