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

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

السلام عليكم أولا بخصوص المرفقات و عنوان المشاركة الحالي ، يرجي مراجعة قواعد المشاركة بالمنتدي بخصوص فتح و اغلاق نموذ بناء علي مربع خيارات 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

أولا نشكر الاخ مهند علي شرح هذا الموضوع المتقدم :( و هذا الموضوع له استخدامات ، أري عن نفسي فى اغلب الاحوال أنها مفيدة جدا فى الحماية اما فى الاحتفاظ بقيم المتغيرات أو تخزين معلومات خاصة بتشغيل البرنامج نفسه فافضل كونها فى الجدول لسببان الاول : اذا كانت القاعدة ستعمل علي أكثر من جهاز ( سيتم نقلها ) فستفقد هذه القيمة ، مثل أن تأخذ نسخة مثلا لتعمل عليها علي اللاب توب أو جهاز المنزل و تعيدها ثانية الي جهاز العمل الثاني : فى حالة العمل علي شبكة ، فسيكون هناك قاعدة للواجهة و أخري للبيانات ، فاذا أردنا أن تكون هذه القيمة متاحة لاكثر من مستخدم ، فسيجب تخزينها فى قاعدة البيانات ( ملف البيانات ) و للمزيد حول الريجيستري موضوع لابو حمود http://www.officena.net/ib/index.php?showtopic=600 مع تحياتي

أساسيات تصميم قواعد البيانات ل internet Master http://www.officena.net/ib/index.php?showtopic=2405 محاضرات قواعد بيانات اكسس [ الصفحات 1 2 ] شرح وافي http://www.officena.net/ib/index.php?showtopic=2365 كائنات الوصول الي البيانات http://www.officena.net/ib/index.php?showtopic=211 تسميات الكائنات فى أكسس http://www.officena.net/ib/index.php?showtopic=181

دروس في التعامل مع ال vba فى الإكسيل http://www.officena.net/ib/index.php?showtopic=206 شرح للجداول المحورية فى الاكسيل و استخدامها Pivot Tables http://www.officena.net/ib/index.php?showtopic=150 المتغيرات في الاكسيل Variable http://www.officena.net/ib/index.php?showtopic=116 شرح لكيفية إعداد ( تحويل الرقم لنص ), * شرح بالصور * http://www.officena.net/ib/index.php?showtopic=3069 حول قاعدة التحقق من الصحه (Validation Rule) Validation Rule http://www.officena.net/ib/index.php?showtopic=208 السيناريو فى الإكسيل ما هو السيناريو ؟؟ http://www.officena.net/ib/index.php?showtopic=65 استخدام الماكرو و تسجيل الماكرو http://www.officena.net/ib/index.php?showtopic=59 تثبيت القيم أثناء سحب المعادلات إستخدام ال $ أو ال F4 http://www.officena.net/ib/index.php?showtopic=28 كيف أستعمل الماوس مع الاكسيل ؟؟؟, مهارات استعمال الماوس http://www.officena.net/ib/index.php?showtopic=786 أغلب اختصارات الاكسيل http://www.officena.net/ib/index.php?showtopic=632 دروس في الاكسل http://www.officena.net/ib/index.php?showtopic=828 إنشاء المراجع المطلقه http://www.officena.net/ib/index.php?showtopic=1881 شرح التنسيقات -(1)تنسيق الخلايا http://www.officena.net/ib/index.php?showtopic=1897 شرح التنسيقات-(2) كائنات النماذج (أ) http://www.officena.net/ib/index.php?showtopic=1925 شرح التنسيقات(3)كائنات النماذج(ب) الازرار (الجزء الاول) http://www.officena.net/ib/index.php?showtopic=1948 شرح التنسيقات(4) كائنات النماذج(ب) الازرار(الجزء الثاني) http://www.officena.net/ib/index.php?showtopic=2040 شرح التنسيقات(5) كائنات النماذج (ب) الازرار(الجزء الاخير) http://www.officena.net/ib/index.php?showtopic=2285 شرح بالصور لكيفية أعداد ماكرو, تصميم زر أنتقال لورقة عمل أخرى http://www.officena.net/ib/index.php?showtopic=2407 دروس اكسل متنوعة http://www.officena.net/ib/index.php?showtopic=25311 سلسلة دروس Microsoft Excel 123» 6 دروس للمبتدئين حتى الإحتراف http://www.officena.net/ib/index.php?showtopic=19407

الدمج البريدي بين الوورد و قواعد البيانات وورد مع : وورد ، أكسس ، إكسيل http://www.officena.net/ib/index.php?showtopic=148 درس : طريقة وضع الصور خلف الكتابة أو أمامها .. http://www.officena.net/ib/index.php?showtopic=1547 درس2: تحديد هوامش الصفحة + تحديد شكل الصفحة http://www.officena.net/ib/index.php?showtopic=1599 درس3: ترقيم الصفحات http://www.officena.net/ib/index.php?showtopic=1667 درس 4: رأس وتذييل الصفحة الجزء الأول http://www.officena.net/ib/index.php?showtopic=1682 سلسلة استخدام لوحة المفاتيح في الوورد http://www.officena.net/ib/index.php?showtopic=1173 إنشاء نموذج محمي بالوورد http://www.officena.net/ib/index.php?showtopic=2837

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

فى هذه الحالة فى الغالب يكون لديك برنامج يقوم باعادة تحميل الصفحة الافتتاحية و توجيهها الي صفحة بعينها بخلاف الصفحة التي تريد ، و تلغي اختياراتك

شرح دوال أكسس - دوال تجميع المجال http://www.officena.net/ib/index.php?showtopic=152 و هنا توجد أمثلة عليها و كلها متشابهة فى التطبيق دوال الأكسس http://www.officena.net/ib/index.php?s=&act=SF&f=30 شرح دوال التاريخ و الوقت - لأبي هاجر http://www.officena.net/ib/index.php?showtopic=482 شرح احرف البدل http://www.officena.net/ib/index.php?showtopic=812

فى هذه الحالة لابد من حفظ القيمة فى حقل فى جدول و استدعاؤها باستخدام DLOOKUP للتعامل معها

المقصود هو عمل استعلام توحيد يتم فيه توحيد الحقول n1,n3,n8 فى حقل واحد يسمي مثلا n9 فى الاستعلام و عليه تبني القائمة

تعديل الدالة : Function ForTrAlfbet(Astr As Variant) As String If Nz(Astr, "") = "" Then Exit Function Dim L1, L2, L3 As String, NewStr As String NewStr = Astr For i = 1 To Len(Astr) NewStr = CStr(NewStr) L1 = Mid(NewStr, 1, i - 1) L2 = Mid(NewStr, i, 1) L3 = Mid(NewStr, i + 1, Len(NewStr)) Select Case Asc(L2) Case 194, 195, 197: L2 = Chr(199) Case Else: L2 = L2 End Select NewStr = L1 & L2 & L3 Next i ForTrAlfbet = NewStr End Function