أبو آدم

الحمد لله الذي بفضله تقضى الحاجات (تمت الاجابة)

مساء الخير اخي العزيز من قال ان موضوعك ليس له حل؟؟؟ لست وحدي من يجيب على الموضوعات .... وتواجدنا مرهون ببعض وقت الفراغ أو بعض الموضوعات الميسرة من الله اجبت مباشرة عن موضوعك في البداية ، ولكن عند إعادة الاستفسار اصطدمنا بموضوع المرفق ، ثم ارفقت 2007 وانا لدي في المكتب 2003 فقط ، والجهاز الذي يحمل الاصدار 2007 في البيت معطل ... قدر الله وما شاء فعل ... فصبرا ... أما عن إسمي فانا لا استخدم الاسماء المستعارة لا في المواقع العربية و لا الأجنبية أنا إسمي الحقيقي : نارت يحيى اسحق لبزو مسلم الديانة ، اردني الجنسية ، أصول أجدادي لأبي من جبال القفقاس ، وأصول أجدادي لأمي من نابلس فلسطين وانا أخ لكم في الله هذا اسمي وهذا رسمي !!! .........

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

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

أخي العزيز عبدالله قرأت ردك أكثر من مرة ، و فيه رد واضح على ما خطر ببالي ، وحسبي من إثارة المسألة أن عززت على ما تحرصون عليه . وفقكم الله وسدد على طريق الخير خطاكم ... وأعانكم ويسر لكم هداكم و سلمتم

Conditional Formatting, Alert, Statistics أريد ان انفذ التنسيق الشرطي عبر الكود ، بقيمة حقل او حقلين أو غيره ، بشرط معين او شروط اطبق نتيجة بصرية في النموذج ، من باب التنبيه أو الاحصاء. الكود التالي يؤدي الغرض Private Sub Form_Current() If Me.strDate < Date Then Me.ID.BackColor = vbRed End If End Sub وطبعا البساطة والتعقيد تبع للظروف ... والمتطلبات ، ولكن هذه أصل الفكرة .... القاموس

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

أخي العزيز بدل البحث عن الموضوع السابق، و الدخول بتعقيدات إختلاف الحاجات ،، قمت بإنشاء تطبيق سريع أظن أنه سيفي بحاجتك. النقطة الرئيسية تعتمد على أن التقارير لا تظهر إلا من خلال نافذة الأكسيس ، لذا لا بد من الوصول لهذه النقطة ببعض الذكاء و التلاعب البرمجي Manipulation . نقوم بجعل النماذج والتقارير Pop Up. ننشيئ ماكرو للإخفاء وماكرو للإظهار ننشيئ وحدة نمطية للسيطرة نوزع عمليات تشغيل الماكرو حسب الحاجة ، ووفقا للشرط الرئيسي أعلاه (إظهار نافذة الأكسيس للتقارير) وذلك بين النماذج والتقارير المرفق أظن أنه يفي بالغرض .... أو على الأقل يوصل الفكرة الرئيسية .... ,ولم أقصد به تطبيقا متكاملا فهو يحتاج للضبط وإكثار تجربة الإحتمالات لسد الثغرات والله أعلم تفضل .......... ............ NA_ShowHideAndReports.rar

أما التقارير فلها قصة أخرى ، .... سأبحث لك عن موضوع سابق أذكر أنني ساهمت به لنفس المشكلة .....

أبشر ... ولكن ... حتى نخبر العمالقة حدد لنا ما تريد بمثال اذا سمحت ، أو شرح مفصل على الأقل .... ولكن المثال مهم لغايات التطبيق و التعديل اذا سمحت .... .......

أخي Bluemind أنا بالانتظار .....

Doblecated recorde في النموذج نختار رقم الفرع أو المعرض ثم نثبت السنة ثم نختار رقم الطلبية ، بعدها يبدأ عمل الكود (قبل التحديث أو بعد التحديث) ، فانا لا أريد تكرار السجل لرقم الطلبية لهذا الفرع لهذه السنة ، ثلاثة متلازمة ، هذا الكود يمنع التكرار . Private Sub OrderID_AfterUpdate() Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!strOrder = Me!OrderID And rst!strCenter = Me!Center And rst!strYear = Me!Year Then MsgBox " Doblecated recorde ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " Note;. " Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub

أهلا وسهلا جئت أهلا ووطيئت سهلا ..... ولكن .... نراقب بعين الحذر التكرار ، ونتأكد من صحة الأخبار .....

Record Source لتحديد مصدر السجلات للنموذج في أي مرحلة ، عند التحميل ، بعد إنهاء عملية فرز أو بحث أو ..... Form.RecordSource = "SELECT tbl1ref08.* FROM tbl1ref08;" أو يكون جملة Form.RecordSource = "SELECT tbl1ref08.* FROM tbl1ref08" _ & " WHERE (((tbl1ref08.[strCenter]) Like '" & MyStr & "' & '*'));" >>>>>>>>>>>>>

Form Size لتحديد حجم النموذج ، ارتفاع وعرض Private Sub Form_Load() Me.Form.InsideHeight = 6900 Me.Form.InsideWidth = 12700 End Sub ........

Capital letters للكتابة في الحقل باستخدام أحرف كبيرة Private Sub VinNo_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub

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

يرجى إرفاق المرفق ضمن المشاركة و على سيرفر الموقع وباصدار 2003 ، فانا في المكتب وليس لدي سوى 2003 وشكرا

أخي العزيز نعم .... تفضل Me.Text1 = [Forms]![AddRef]![Custo] اسم الحقل في النموذج الحالي = نموذج ! اسم النموذج الذي استدعى هذا النموذج ! اسم الحقل ..............

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

أخي الفاضل أبا أحمد إن كان للإقتراح متسع ، أود مناقشة ما يمكن أن تسميته (جدوى المحتوى) والأمر لكم ... ....

حياك الله (تمت الفائدة)

خـَيْرُ الأيادى مَنْ سَختْ في بَذلِها مِـنْ فـضل ِرَبـي ذاكَ فِـعْـلٌ سَـرَّهُ ===== يـا مُـؤمِـنا ً كـُـنْ قـُـدْوَة ً ذا مِــنـَّةٍ انـمـوذجـا ً لِلـجـودِ تـُعْـطي بـِــرَّهُ ===== كيْ تـرْتقي نـَهْجَ العُلا كـُنْ مُؤمِنا ً مَـنْ سـارَ نـَهْـجَ اللهِ أعـلى قـَــدْرَهُ . . . إمض قدما أخي فالفضل من الله ، وإن أجرك إلا على الله . . . . حفظا للحقوق / الشعر : عطا سليمان رموني

أخي العزيز في النموذج Form1 مربع تحرير وسرد يظهر إسم المستخدم ، وفي مربع التحرير و السرد الثاني نمط التعامل مع أزرار الأوامر (إظهار و إخفاء) أو (تمكين وعدم تمكين). خلف النموذج كودات للسيطرة وتفعيل الشرط الذي طلبته ، وأضفت أنا عليه التمكين أو عدمه ، ... أظن أنني جعلت الكود بسيطا قدر الإمكان وفعالا. جرب الخيارات بين مربعات التحرير و السرد والاحتمالات المتاحة ربما تفي بحاجتك وافني بالنتيجة .......... والله من وراء القصد ..... ...................... NA_Visible - Enable Command Button According To User.rar

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