أبو أحمد

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

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

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

كلامك صحيح استاذي الكريم ولكن انا بتكلم هنا عن الترقيم الدولي للكتاب وليس الرقم العام أو الرقم الخاص

ممكن حضرته تكتبه بحيث اعمل له نسخ ولصق لصعوبة ذلك عندي وهل يوجد طريقة لنتمكن من كتابة حرف ال X أحيانا وعدم كتابته احيانا أخرى علما بأنه يكتب في نهاية الارقام اتجاه الكتابة من اليمين لليسار وهو يكون على اليمين الارقام x -977-543-77 على أن تظهر الارقام بالعربي وجزاكم الله خيرا

ممكن توضح لي ISBN الموجود بالشكل الذي ارسلته الموجود بجوار C وكذلك الموجود بجوا & لاني مش عارف اكتبهم

استاذي الكريم / جزاكم الله خيرا واحسن اليكم وزادكم علما هذا هو المطلوب ولكن كلام حضرتك مضبوط عندما يكون اتجاه القراءة من اليسار لليمين ولكن عندما يكون انجاه القراءة من اليمين لليسار لا يكون صحيح فهل يمكن تعديل ما يلزم لجعل اتجاه القراءة من اليمين لليسار ويكون الحرف الانجليزي على اقصى اليمين لانه لابد ان تكون اتجاه القراءة من اليمين لليسار لتظهر جميع الحقول بشكل صحيح 977-542-52-X جزاكم الله خيرا

السلام عليكم الاساتذة الكرام في النموذج كيف لي أن تظهر محتوى خلية بهذا الشكل 977-456-25-X ولكن تكون جميع الارقام باللغة العربية وحرف الاكس كما هو باللغة الانجليزية ويظهر على يسار الارقام أي بعد رقم 25 للتوضيح هذا يطلق عليه الترقيم الدولي للكتاب حيث كل كتاب له رقم خاص به لا يتكرر مع كتاب اخر واحيان الرقم يشتمل في نهايته على حرف الاكس (والاكس فقط) أو يكون كله أرقام مع الاخذ في الاعتبار ان يظهر الرقم في التقرير بنفس الشكل في النموذج وجزاكم الله خيرا

اين الرد أعضاء المنتدى الكرام

ما المقصود من هذه الرسالة جزاكم الله خيرا

اين المساعدة ؟؟؟ الاساتذة الكرام

الاساتذة أعضاء المنتدى * السلام عليكم ورحمة الله كل عام وانتم بخير وتقبل الله طاعتكم في هذه الايام المباركة لدي قاعدة بيانات أكسس 2003 قمت باضافة الباركود لها ولكن ظهرت لي مشكلة وهي : 1. البار كود عندي يقرأ اذا كان نوع الخط C39P24DlTt وحجمه 36 وغير ذلك لا يقرأ اذا اختلف حجم الخط سواء كبر أو صغر كما انه لا يقرأ إذا كان نوع الخط code28 مع العلم انه موجود من ضمن انواع الخطوط على الجهاز قاري بالباركود يقرأ الباركود أحيانا إذا كان الرقم أحيانا واحيانا لا فإذا كان من رقم واحد مثل 9 مثلا لا يقراءه في حين يقرا 99 ، 999 ، 9999 ، 99999 مرفق مثال للفاعدة وارجو المساعدة في طباعة الباركود ايضا على طابعة 1100 HP علما باني استخدم قاري الباركود Congnex Barcode Scanner من الموبيل وجزاكم الله خيرا مثال بسيط.mdb