ابوخليل

يغلق لمخالفة قواعد المشاركات 1- اختيار عنوان مناسب يصف الموضوع 2- الاقتصار على سؤال واحد في كل مشاركة اخي الكريم يمكنك فتح موضوع جديد بطلبك مراعيا قواعد المشاركة

شكرا لكم اخوتي وجزاكم الله خيرا على ما تقدمونه تظهر هذه المشكلة في اوفيس 2003 النسخة العربية لذا لا بد من وضع الاطوال باللغة العربية جرب هذا الكود : Private Sub Form_Open(Cancel As Integer) sname.RowSource = "SELECT * FROM QryStuNamesAr ORDER BY ID" sname.ColumnCount = 4 sname.BoundColumn = 1 sname.ColumnWidths = "2.542سم;2.542سم;0سم;2.542سم;2.542سم" End Sub

تم التعديل قم بتصفح السجلات داخل النموذج علما اني افضل عدم ظهور ( المححولين الى) بعد التأشير داخل نموذج الادخال يعني يمكن نظهرهم من اي مكان آخر ملحوظة : 1- مصدر بيانات النموذج هو الاستعلام ( ابحث عنه داخل النموذج ) 2- تم حذف خانة الاختيار ( محول من ) من الجدول نموزج7.rar

في مشاركة جديدة بعنوان : نموذج ادخال بيانات الطلاب اعمل نموذجا يشتمل على جميع الحقول الموجودة في جدول الطلاب ثم ارفقه

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

الافضل جعل النموذج منبثق ومشروط وحينها لا يمكن الانتقال الى اي كائن او عنصر في البرنامج الا بعد غلق النموذج الحالي اما اذا فتحت نموذجا من زر داخل نموذج وتريد ان تغلق الاول فاكتب في حدث الزر السطر التالي : DoCmd.Close acForm, Me.Name

كما بينت لك الطالب المحول من يتم تسجيله كأنه طالب مستجد وتضيف في النموذج حقول التحويل اما المحول الى فلا بأس من عمل نموذج خاص به ويمكن تسميته نموذج تحويل طالب الى مدارس اخرى اضف زر في نموذج ادخال البيانات وعن طريق المعالج اختر نموذج التحويل -------------- يمكن التحكم بالحقول من الخصائص/ لسان التبويب بيانات / مؤمن=نعم والاخصائي يكون له رقم خاص يدخل منه على النموذج فقط

حزاك الله خيرا

الملاحظات : 1- النماذج تصميمها جيد ولكن لي ملاحظة على النماذج الخدمية الصفوف والفصول والديانة وكذلك مايلحق كالمدارس والادارات والمحافظات يجب ان يكون النموذج مستمرا لسهولة العرض والسبب ان البيانات هذه ثابتة ونادرا يتم التعديل عليها وقد لا يستعملها المستخدم سنة كاملة لهذا وضعت لك في المثال نموذج frmsaf حتى تحذو حذوه اما مسألة التحويل او التنقلات فخانة الاختيار ستكون واحدة وتخص المحول الى ، ويتم التأشير عليها اما المحول من فليس له خانة اختيار ولا نموذج خاص به ويتم ادخال بيانات مدرسته المنقول منها وتاريخه في نموذج ادخال بيانات الطلاب عند تسجيله ملحوظة : يفضل دوما تخفيف المثال حسب الحاجة فقط نموزج5.rar

اسم الطالب موجود فعلا وارى انه لا فرق بين ان يكون مقطعا او كاملا تم اضافة حقل يجمع الاسم الشيء المهم : اراك رجعت الى التسميات بالحروف العربية ؟ 1-اعد تسمية النماذج 2-يوجد حقلين في جدول الطلاب اعد تسميتهما ايضا نموزج 03.rar

في صندوق الادوات فعل ايقونة تفعيل عناصر التحكم انظر الصورة

في الشرط اعلاه يجب ان يكون نوع الحقل ID نصي اما اذا كان نوع حقل ID رقمي يجب ان تكون صيغة الكود هكذا : txtname.Value = DLookup("[date_open]", "tbl_pro", "ID=" & Me.txtserch )

تم غلق الموضوع لمخالفته لقوانين المشاركة 1- طلب المساعدة من شخص بعينه 1- احتواء المشاركة على اكثر من طلب

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

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

يجب استبعاد الجداول القديمة ثانيا : احذف جميع العلاقات الموجودة ثالثا : اربط علاقة بين جدول المحافظات وجدول الادارات رأس لاطراف مع التكامل المرجعي رابعا : اربط علاقة بين جدول الادارات وجدول المدارس رأس لاطراف مع التكامل المرجعي

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

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

اجابة لكل اسئلتك عند الانتهاء من مشروعك تقوم بتقسيم قاعدة البيانات الى جداول وواجهات (معالج اكسس يقوم بذلك ) تضع الجداول على جهاز وتوزع الواجهات على الاجهزة الاخرى ويمكن في هذه الحالة ان تعمل عشرة اجهزة في وقت واحد بقي شيء مهم وهو لا تنسى تضبط جميع نماذجك من الخصائص / لسان التبويب : بيانات /القيمة : تأمين السجلات ، اجعلها : سجل محرر

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

Private Sub txt1_Exit(Cancel As Integer) If IsNull(Me![txt1]) Then MsgBox "لا يمكن ترك الحقل فارغا ", vbCritical, "رسالة تنبية" Cancel = -1 End If End Sub اترك الحقول كما هي في الجداول وفي النماذج فقط استخدم هذا الكود في حدث الخروج من الحقل هذا الكود يمنع المستخدم من الخروج الا بعد الكتابة في الحقل

المرفق يحتوي على الجداول المذكورة تاريخ الالتحاق نعم اما العام الدراسي الحالي فمكانه جدول المدرسة db1.rar

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

عجيب !! كتبت لك في وقت سابق يبدو اني خرجت ولم احفظ نعم اضفهم في جداولك .. نسخ ولصق

هذا هو الكود الذي طلبت ضعه في الحدث المناسب سيغير القيمة في السداسي العشري الى 300 Dim objWShell Set objWShell = CreateObject("WScript.Shell") objWShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\CSDVersion", 768, "REG_DWORD" وهذا كود الاسترجاع سيغير القيمة في السداسي العشري الى 200 Dim objWShell Set objWShell = CreateObject("WScript.Shell") objWShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\CSDVersion", 512, "REG_DWORD"