محمد طاهر عرفه

موضوع ذو صلة http://www.officena.net/ib/index.php?showtopic=2834

مثلا ، لنفرض وجود تسمية مكتوب فيها أن التصميم بواسطة محمد طاهر فسيمكن تعديلها بعد التحويل الي mde و لكن عند اعادة تحميل الفورم ، سيتم الاختبار و الاغلاق Private Sub Form_Load() If Me.Label0.Caption <> "Design By Mohamed Taher" Then MsgBox "Ilegal Modification, Sorry You Can not continue " DoCmd.Quit End If End Sub

بالنسبة للمثال الخاص بالارفاق Link Tables فأعتقد انه للأخ أحمد الحربي أما المطلوب ، فاذا كان تحديث الجديد فقط فنحن هنا نتحدث عن مفهوم ال Replication و هو تكنيك جاهز فى الاكسيس يعتمد علي وجود عدة قواعد و مطلوب تحديث التصميم و / أو البيانات فيما بينها و يمكن تنفيذها من قائمة أدوات أو باستخدام ال Briefcase الخاصة بالويندوز أو برمجيا أو من خلال ال Web server replication و الطريقة التقليدية هي من قائمة أدوات ، و هي متاحة منذ اصدارات سابقة و للمزيد يرجي مراجعة التعليمات ـ، و أعتذر عن عدم الاستفاضة حيث لم أجربها فعليا و لكن ال replication هي ما تبحث عنه

جميل جدا مع الاعتراض علي رقم 6 :d حيث أن الاحتراف يمكن أن يكون أيضا فى تطبيقات صغيرة أو متوسطة ، يكون الاكسيس مناسبا لها

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

كود ممتاز و مختصر يفيد فى حالات كثيرة ، و يمكن لكل من الاخوة الاستفاد منه بالطريقة التي يحتاجها :( مع الشكر (y)

مثال جميل :d

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

السلام عليكم أعتقد أن الاختفاء لا يمكن أن يكون عرضيا فهو اما نتج من تعديل مباشر للقائمة من Tools Customize Commands أو Options أو من تشغيل ما كرو قام بذلك ، و الله أعلم اما عن اعادتها فجرب Tools Customize Options Reset Menu Usage Data أو Tools Customize Options Full Menus و ان لم يكن ، فحمل الاوفيس ثانية ، فربما السبب تلف فى بعض الملفات

لا أعتقد بوجود مشكلة فيه و لكن علي المدي الطويل ستحتاجين الي تغييره لان البرامج و التطبيقات الجديدة عادة لا تدعم اصدارات الويندوز لعدة سنوات مضت ، لذا فالبقاء مع الاصدرات الحديثة دائما أفضل ان كان متاحا و من حيث الكفاءة و الاداء ، فهو أضعف كثيرا من الاكس بي ، الذي يعطي اداء أفضل كثيرا و الفيصل هو مدي قوة الهاردوير المتاح فان كانت الاجهزة متوسطة الحال مثل بنتيوم 2 مثلا أو ما تحته ـ فلا ينصح بالاكس بي ، و الخيار الانسب هو ال 98 اما اذا كانت أحدث من ذلك فعليك بالاكس بي بدون تردد

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

السلام عليكم أولا بخصوص المرفقات و عنوان المشاركة الحالي ، يرجي مراجعة قواعد المشاركة بالمنتدي بخصوص فتح و اغلاق نموذ بناء علي مربع خيارات checkbox فى نموذج آخر استخدم الكود التالي فى حدث بعد التحديث لمربع النص Private Sub Check3_AfterUpdate() If Me.Check3 = True Then DoCmd.OpenForm "Form2" Else DoCmd.Close acForm, "Form2" End If End Sub مرفق مثال OpenClose.rar

لظهور رقميين عشريين فقط ، استخدم الدالة round و يمكنك بها تحديد عدد الارقام العشرية المطلوبة mm: Round([summ]/12,2) حيث mm : المعدل summ : المجموع و نصيحة علي الماشي ، لا تستخدم ابدا الاسماء العربية فى تسميات الحقول و الكائنات مع تحياتي

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

السلام عليكم كما تعلم أخي مهند فان الاعتماد اساسا علي ال VBA viasual basic for applications و هي كمفهوم ، واحدة تقريبا ، بين تطبيقات الاوفيس لكن الاختلاف الاساسي فى الكائنات ، و بعض طرق التطبيق ففكرة وجود قسم لل vba واردة و لكن تحتاج لمناقشة حول هل الافضل وجود قسم عام لها أم لا اما عن البيزيك نفسه VB6 فبالطبع هناك علاقة و لكن أخشي من تشتيت الجهود فهناك قسم له في منتديين صديقين الابداع و الفريق العربي للتكنولوجيا ، و بالفعل يشارك فيها عدد من مشرفي و أعضاء أوفيسنا ( و لهما وصلات فى الصفحة الرئيسية و أعلي المنتدي ) و أخشي من تشتيت الجهود مالم تكن هناك ضرورة و فى انتظار أراء باقي الاخوة

جزاك الله خيرا و فى انتظار المزيد :d مرفق مثال سريع علي الكود ColorRecord.rar

جزاك الله خيرا اضافة مفيدة :(

من هنا http://www.officena.net/ib/index.php?act=S...=ST&f=46&t=2748

الحل الان مطابق للمسألة الثانية و نحصل علي نفس النتيجة :( الفكرة فى أنه كما فى الحل اليدوي ، يوجد ثلاثة أركان للمسألة متغيرات دالة الهدف القيود و دالة الهدف هنا نود تعظيم أو تصغر قيمتها أو جعلها مساوية تماما الي الصفر أو قيمة محددة ، فى ظل تحقيق جميع القيود المذكورة ، و ما نريده هو الحصول علي قيم المتغيرات التي تحقق ذلك فاولا نضيف اضافة السولفر كما سبق ثم لذا علينا أولا بتحديد خلايا تمثل قيم المتغيرات فى الشيت ، و هي هنا الخلايا باللون الاحمر ثم نقوم بصياغة دالة الهدف كمعادلات مرتبطة بالخلايا التي تمثل المتغيرات ، بحيث يكون لدينا خلية تمثل المعادلات بها دالة الهدف و هي هنا الخلية باللون السماوي ( اللبني ) ثم نبدأ فى اضافة القيود و هي قابلة اما للاضافة علي هيئة قيود مباشرة فى معالج ال سولفر ، و لكن أنا أفضل اضافتها فى خلايا للوضوح و هنا اضيفت المعادلات التي تمثل القيود فى الخلايا الخضراء ، ووضع الحدود الخاصة بها فى الخلايا الصفراء و طبعا يمكن تجاوز تلك التفاصيل و كتابة معادلات القيود كاملة فى المعالج فى الخطوة القادمة و لكن أنا أفضلها هكذا و أخيرا نفتح Solver من قائمة Tools و نبدأ فى اضافة الاركان الثلاثة اولا دالة الهدف و نختار الخلية ذات اللون السماوي ثم نختار اذا كان نريد قيمة عليا أو صغري أم قيمة محددة للدالة و هنا max ثم نبدأ ف اضافة القيود من add و نختار خلايا المعادلات الخضراء و للجانب الايسر للمعادلة نختار الخلايا لاصفراء ، كما فى المثال أو نكتب القيود مباشرة ثم نشغل السولفر فنحصل علي القيم المطلوبة للمعادلات Solver2.rar

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

http://www.officena.net/ib/index.php?showt...=اغلاق,or,إغلاق

جربت علي الاداة بوضع رسالة فى الحدث on enter و عملت معي تمام و فعلا ينتقل الي الزر التالي و اذا أردت وقف الحركة من Tools Options Move After Enter Do not move

لا تحدث معي هذه المشكلة جرب علي جهاز آخر مع تحياتي

اختار Double or Single و يوجد شرح تفصيلي لجميع الانواع هنا http://www.officena.net/ib/index.php?act=ST&f=17&t=227

السلام عليكم سأقوم لاحقا بنقل الموضوع الي قسم الاكسيل باذن الله فان لم تجده هنا فارجو مراجعة قسم الاكسيل مرفق الملف و به حل المسألة بالاكسيل مع تحياتي SolverExample.rar