أبو أحمد

النسخة المرسلة.rar

جزاكم الله خيرا أستاذي الكريم ولكن حضرتك تم حذف بيانات جميع الأعضاء وليس الى ترقيم تلقائي معين وهذا شي جيد ولكن لو هكذا ممكن حضرتك لو تكرمت عدل الكود بحيث لم يقم بحذف البيان الموجود في حقل borrower وهو الخاص حالة العضو (هيئة تدريس) أو (طالب) ثانيا هل ممكن إظهار هذا الرقم في مربع تحرير والسرد بحيث يظهر في ترتيبه التصاعدي وهو الأقل من الرقم المحدد (وليكن 20 في المثال الحالي) علما بأن به الأرقام التصاعدية حتى رقم معين (هيئة تدريس) هو الذي يظهر به ، والارقام التي فوق هذا الرقم فهي خاصة لأعضاء آخرين (طالب) لا تظهر ارقامهم فيه) في المثال حتى رقم 20 فقط وما فوقه يكون البيان "طالب" وأقل من 20 يكون البيان هيئة تدريس أرجو أن اكون وضحت الفكرة وجزاكم الله خيرا

السلام عليكم ورحمة الله أعضاء الجروب الكريم كل عام وانتم بخير لدي قاعدة بيانات اكسس 2003 بها نموذج بيانات أعضاء مبني على جدول المطلوب حذف بيانات احد الأعضاء وترك الترقيم التلقائي كما هو بدون حذف لاستخدامه مرة ثانية علما بأن هؤلاء الأعضاء الترقيم الخاص بي حتى رقم معين وليكن 100 والارقام التالي لذلك خاصة بأعضاء من نوع حالة ثانية قمت بعمل زر أمر لعمل ذلك فشلت وعملت زر ثاني وأيضا لم أفلح المطلوب من اساتذة الأكسس تعديل أحد زري الأمر (أيهما) بحيث يعطي المطلوب حذف بيانات العضو بدون حذف الترقيم التلقائي له مرفق قاعدة بسيطة لتوضيح المطلوب وجزاكم الله خيرا وكل عام وأنتم بخير حذف بيان عضو.mdb

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

معذرة تم تعديل قاعدة البيانات لتتناسب مع التي أملكها سؤال بعد تعديل الكود من طرف حضرتك وحذف السجل بالكامل هل ممكن ترك حقل واحد بدون حذف بيانه (مكتوب بداخلة القيمة 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 شكرا