أبو أحمد

في النموذج F_GardBooks عند الضغط على مفتاح "تحويل حالة هذه الكتب الى فاقد" يتم تحويل حالة الكتب من موجود الى فاقد كما هو الحال الان المطلوب اضافة في SQl معيار تحويل سنة الجرد لهذه الكتب إلى السنة الجرد الاخيرة فقط وفي حالة كانت حالة الرقم العام لهذا الكتاب فاقد من سنوات جرد سابقا تظهر العبارة التالية "هذا الكتاب كان فاقد في سنة الجرد / " أرجو أكون وصلت الفكرة وجزاكم الله خيرا

أستاذي الكريم جزاكم الله خيرا مرفق نموذج مصغر للقاعدة والمطلوب فيها هو المطلوب 1.في النموذج F_GardBooks مفتاح تحويل حالة الكتب الى فاقد كما هو مطلوب اضافة تحويل رقم الجرد إلى أحدث رقم جرد أي تعديل الكود التالي كما تراه SELECT MAX([G N]) FROM [جدول تسجيل الكتب] 2. عند تسجيل الرقم العام للكتاب في الحقل txtSearch يتم تحوبل حالة الكتب من الفاقد إلى موجود (زر تحديث) كما هو موجود اضافة إذا كان هذا الرقم العام للكتاب كان فاقد في تاريخ جرد سابق يذكر العبارة MsgBox " الكتاب تالف في عملية الجرد سابقة لسنة " & from_to 3. في التقرير وضع في المعيار (SELECT MAX(from_to) FROM T_Gard) في العمود G N مع تعديل ما يلزم (اسم الجدول "جدول تسجل الكتب"، واسم العمود "G N وجزاكم الله خيرا وأشكركم لسعة صدركم هلما بأن القاعدة على أكسس 2003 القاعدة.rar

انظر لهذه الرسالة يمكن انا اريد أضع مع معيار التحديث أن يكون في أعلى رقم

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

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

تمام ولكن اسم الجدول هو جدول تسجيل الكتب وليس جدول الكتب لأنه يعطي هذه الرسالة كما في الصورة جزاكم الله خيرا

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

السلام عليكم ورحمة الله لدي كود برجاء من اساتذة الأكسس تعديله للمطلوب (SELECT MAX(G n) FROM جدول تسجيل الكتب) المطلوب من هذا الكود الموجود في التقرير اظهار أخر رقم في الحقل G n الموجود بجدول تسجيل الكتب اعلم أنه من الخطأ الكبير تسمية اسم جدول باللغة العربية ولكن هذه المعلومة كانت متأخرة لي ويصب تعديل قاعدة البيانات بأكملها حاليا مع تغيير اسم الجدول برجاء تعديل هذا الطلب (SELECT MAX(G n) FROM جدول تسجيل الكتب) ولكم جزيل الشكر

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

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

لدي قاعدة بيانات اكسس عند فتحها تظهر هذه الرسالة ممكن أعرف ماذا تعني ؟ جزاكم الله خيرا

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

النسخة المرسلة.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 وفي النهاية اعطاني هذه الرسالة بالمرفق جزاكم الله خيرا

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

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

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