rudwan

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

أما اذا كنت ستقوم بتعبئة النتائج يدويا فيمكن عمل الاجارء التالي الذي يقوم بنقل الطلاب الى الصفوف الأعلى تلقائيا School1.rar

من بعد اذن أخي التقني بارك الله فيه اذا كان تعديل النتيجه يكون عن طريق نموذج النتائج , اذا يمكن الاستغناء عن زر تعديل النتيجه و تنفيذ الكود بمجرد تعديل النتيجه في مربع اختيار ( ناجح - راسب ) كما في المثال التالي School.rar

هذا مثال للبحث عن كلمة أو جزء منها للأستاذ أبو هادي AutoTypeSearch.rar

و هذا برنامج جاهز يصنع نظام الصلاحيات تلقائيا للأستاذ المبدع مهند عبادي Users_Maker_2.rar

انظر المثال المرفق لعله يفيد _______.rar

جزاك الله خيرا أخي ابن مسقط و نفع الله بك

ألاحظ خمسة جداول متشابهه في البنيه و لكن لكل منها سجل مختلف فهل هناك ضروره لتعدد الجداول بهذا الشكل ؟ أرى من الأنسب أن تكون كلها في جدو لواحد طالما البنيه واحده , أو على الأقل تعمل استعلام تجميع , و الأهم من هذا لابد في مثال البنيه الشجريه من عرض تبعية كل حقل فرعي للحقل الرئيسي المرتبط به على العموم هذا مثال يستوعب عدد غير محدود من المستويات من تصميم الأستاذ ابو هادي Tree.rar

الكود صحيح مئه بالمئه انظر الملف بعد ادراج كود الأستاذ أبو هادي gndr.rar

اضافة جميله أخي zahof تشكر عليها

ما هو الشي المش نافع ؟ اوضح تفاصيل وبنية البرنامج اكثر

اجعل تنسيق حقل التاريخ = h اي ساعه و اكتب الكود التالي if MyDate between 6 and 18 then rate = 1 else rate = 2 end if

السلام عليكم انظر الملف المرفق InterClock.rar

الكود الذي وضعه الأخ wkalo يعطيك آخر 10 سجلات بالضبط مرتبة من اصغر سعر وحده الى أكبرها ان اردت أعلى قيم , احذف كلمة desc من نهاية الكود

نفتح النموذج في وضع التصميم , نجده يتألف من ثلاثة أقسام : Form Header راس النموذج Detaild المحتويات FormFooter تذييل النموذج ضمن راس النموذج نجد عنوان النموذج Customers و في قسم المحتويات نجد الحقول التي اخترناها لتكون ضمن النموذج و سنعود الى هذا القسم بالتفصيل أما في التذييل فيمكن أن نضع حقول مثل مجموع , توقيت و تاريخ ,, الخ بالاطلاع على قسم المحتويات نجد كل حقل يتألف من مكونين , مربع عنوان و مربع نص مربع العنوان لايحتوي اي يبيانات و هو فقط للدلاله على اسم العنصر الذي يشير اليه مثل اسم العميل أما مربع النص فهو الذي يحتوي القيم المأخوذه من الجدول الأساسي نستطيع التحكم بخصائص مربع النص من خلال الآتي نضع المؤشر على مربع النص CompanyName اسم الشركه , ثم نضغط بالفأره باليمين نجد قائمة في نهايتها خصائص Properties نضغط عليها فتفتح لنا قائمة بها عدة عناصر الأول : تنسيق Format من خلال هذه القائمه نستطيع تنسيق الألوان و نمط الخط و تنسيق الأرقام و التاريخ .. الخ Format تنسيق شكل الأرقام و التاريخ فقط Decimal Places عدد الخانات العشريه Visisble ( مرئي ) القيمة الافتراضيه نعم نريده مرئي , لكن أحيانا نضطر لادراج مربعات نص لانريد اظهارها للمستخدم , لذلك نجعل قيمة هذا الحقل لا , فيبقى موجودا في النموذج وله حسابه لكن لن يظهر للمستخدم Display When هنا تحديد فيما اذا كنا نريد اظهار مربع النص دائما , أم عند الطباعه فقط . أو يظهر على الشاه فقط و يختفى في الطباعه Scroll Bar تثبيت زر سحب و افلات Can Grow هل النص قابل للتمدد ( اذا كانت البيانات أكبر من حجم مربع النص ) Can Shrink هل النص قابل للانكماش ( اذا كانت البيانات أصغر من حجم مربع النص ) Left – Top – Width – Hight للتحكم باحداثيات مربع النص ثم بعد ذلك مجموعة خصائص لتغيير نمط الخلفيه و الألوان .. الخ يمكنكم تنسيقها للحصول على مربعات نص جذابه . القائمه الثانيه Data بيانات هذه القائمه تحتوي : Control Source مصدر البيانات , نجد هنا أن قيمة هذا الحقل هي CompanyName في جدول العملاء , لو أردنا تغيير هذا الحقل يمكن ذلك , نفتح السهم بجانب الاسم و نجد أسماء بقية الحقول المختاره في النموذج ,نستطيع اختيار مثلا ContactName و بذلك سيعرض هذا الحقل اسم الشخص المراد الاتصال به بدلا من اسم الشركه , Input Mask قناع الادخال بالنسبه للتاريخ و الرقم Default Value القيمة الافتراضيه للحقل Validation Rule قاعدة التحقق من الصحه هنا بمجرد ادخال أي قيمه في هذا الحقل يتم اختبا رالقاعده , و تصلح هذه القاعده أكثر بالنسبه للأرقام و التواريخ Validation Text الرساله التي ستظهر في حال مخالفة القاعدة Enabled أحيانا نضطر لعرض مربعات نص غير متاحه للمستخدم , أي لاظهار قيمه معينه دون أن يكون للمستخدم حق التأشير عليها أو الوصول اليها , لذلك نجعل قيمته لا Locked مقفل , في حال أردنا منع المستخدم من التعديل على هذا الحقل حتى و لو كان متاحا نجعل قيمة هذا الحقل نعم الأحداث Events , و هذه قائمه هامه جدا و تتعلق بالأوامر التي نريد اعطاؤها للبرنامج لتنفيذ ها عند حدث معين مثل عند النقر على زر مربع النص أو عند الخروج منه أو قبل الدخول اليه ,, الخ , و هذا بحد ذاته مبحث مستقل له تعليمات و قواعد خاصه . قائمة Other مختلف وتتضمن عدة حقول , و ما يهمنا منها هو حقل الاسم Name و يجب الانتباه جيدا الى هذا الحقل اذ أنه هو الذي يتعامل معه النموذج , القيمة الافتراضيه لهذا الحقل هي نفس قيمة مصدر بيانات العنصر , أي CompanyName لكن لو قمنا مثلا بتغيير مصدر بيانات هذا النص الى ContactName كما فعلنا سابقا , فان أي قيمه تدخل في هذا الحقل , تدخل في حقل ContactName في الجدول , لكن النموذج سيتعامل مع هذا الحقل على أساس أنه CompanyName , و هذا أمر هام جدا لدى تنفيذ أوامر الفيجوال بيسيك , فالحرص يكون على اسم الحقل و ليس على مصدر البيانات . و اخيرا قائمة الكل All و تتضمن جميع القوائم السابقه

اطلع على الموضوع التالي http://www.officena.net/ib/index.php?showt...indpost&p=40919

اعمل لكل صنف رقم مختلف

يبدو أن أحد مكونات Active x غير متوفره أعد تحميل الأوفيس مره ثانيه أنا كان عندي نفس المشكله , حملت sql server و انحلت

بارك الله فيك استاذنا الفاضل و ان شاء الله تكون فيها الفائده الكبيره لمن يريد بناء برامج في هذا المجال الهام

أرجو أن تتأكد من صحة قيمة الحقل : male أو female ربما يكون لديك أرقام و ليس قيم مثلا 1 أو 2 راجع قيمة حقل الجنس في جدولك

جرب الكود التالي Private Sub sex_AfterUpdate() If Me.sex = "male" Then Me.Number = Nz(DMax("mydate", "mytable", "sex=male"), 100) + 1 End If If Me.sex = "female" Then Me.Number = Nz(DMax("mydate", "mytable", "sex=female"), 200) + 1 End If end sub مع مراعاة استبدال أسماء الحقول بأسماءها الحقيقيه في النموذج و الجدول

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

private sub form_current() if me.sex=male then me.child.visible=false end if end sub حيث sex جنس الشخص child خانة عدد مرات الولاده

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

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