أبو أحمد

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

النسخة المرسلة.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 شكرا

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

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

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

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

السلام عليكم ورحمة الله أعضاء الجروب الكرام لدى قاعدة بيانات خاصة بالكتب قمت بتصميم عناوين الموضوعات بشكل معين وكنت أرغب في استكمال هذه الموضوعات بترتيب آخر فهل ممكن المساعدة في هذا الترتيب جزاكم الله خيرا مرقق قاعدة البيانات وهي على اكسس 2003 المطلوب : 1. عمل مفتاح عند الضغط عليه تظهر الارقام المئوية (الأرقام التي تحتوي على صفرين على اليمين ) (الموضوع + رقم التصنيف) تصاعديا حسب رقم التصنيف وهي (000 ، 100 ، 200 ، 300 ، 400 ، 500 ، 600 ، 700 ، 800 ، 900) 2. عمل مفتاح عند الضغط عليه تظهر الارقام العشرية (الأرقام التي بجوارها صفر واحدعلى اليمين) تصاعديا حسب رقم التصنيف (الموضوع + رقم التصنيف) وهي 10 ، 20 ، .... ، 110 ، 120 ، ... ، 210 ، 220 ، ... 3. امكانية ادخال رقمين وليكن (220 ـ 229) فتظهرالموضوعات المحصورة بينهما (الموضوع + رقم التصنيف) تصاعديا حسب رقم التصنيف 221 ، 222 ، 223 ، 224 ، 225 ، .... مرفق طيه قاعدة البيانات للعمل عليها وتعديل اللازم فيها وجزاكم الله خيرا قاعدة بيانات.mdb

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

أسف والله أرجو تقبل معذرتي لاني كنت مشغول ولم أركز في وضع عنوان مناسب

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

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