أبو هادي

السلام عليكم لا مانع أخي مهند .. ولا تغفل أن تعمل مع نسخ MDE . ولك خالص شكرى وتحياتي .

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

السلام عليكم لكل من يشتكي من مشكلة تاريخ أم القرى ( التقويم المعتمد بالسعودية ) ، أقدم لكم مثالا يحتوي على التالي : 1 - لمن يستخدم حقل تاريخ ( نوصي به ) . - نموذج يحتوي على تحكم كامل لإدخال واستعراض التواريخ . - ثلاثة استعلامات توضح الحصول على فترة محددة والترتيب . 2 - لمن يستخدم حقل نصي ( لا ننصح به ) . - نموذج يحتوي على تحكم كامل لإدخال واستعراض التواريخ . - ثلاثة استعلامات توضح الحصول على فترة محددة والترتيب . كما يحتوي على نتيجة منقحة بتاريخ 01/08/2005 ، وأهم التنقيحات تأثيرها على حدثي قبل التحديث وبعد التحديث لصندوق النص حيث كانت سابقا تضيف القيمة للصندوق دون أن يشعر الصندوق بالتحديث من خلال الحدثين المذكورين . كذلك يحتوي على كل دوال التاريخ لأم القرى واستخدامها هو نفس استخدام الأصل تماما مع زيادات طفيفة لبعض الدوال وهو بنفس الأسماء الأصل مع إضافة حرفي Um مثل دالة CDate هي لأم القرى UmCDate . ملاحظات : - يمكن استخدام خاصية التنسيق Format في صندوق النص . تحياتي . UmAlQura_Samples_20050801.rar

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

السلام عليكم الكود موجود في الوحدات النمطية Modules . تحياتي .

السلام عليكم تستطيع أن تستخدم هذا التنسيق Format : #,##0.00[Green];(#,##0.00)[Red];"";"Null" كما تستطيع أن تقرأ عن هذا التنسيق في ملف العون عن : Format Number and Currency Data Types حيث الخانة الأولى من اليسار في التنسيق هي للقيم الموجبة . والثانية للقيم السالبة . والثالثة للقيم التي تساوي صفر ( وهي المطلوبة ) . والرابعة للقيم التي تساوي Null . تحياتي .

السلام عليكم مرفق المثال بعد التعديل . تحياتي . ComputeFridays.rar

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

السلام عليكم عزيزي رضوان .. أرجو ملاحظة هذا الكود للحدث عند الفتح للنموذج : Private Sub Form_Open(Cancel As Integer) Call CheckButtons(Me) End Sub هذا الكود يتولى الأمر كله عند الفتح فقط ( مرة واحدة ) ، أرجو أني فهمت مقصدك وإلا الله يعينك توضح أكثر أيضا . أعتقد أن النسخة التي لديك هي النسخة قبل الحالية أي قبل فصل الكود في وحدة نمطية منفصلة ، فإذا كان كذلك آمل إنزال نسخة أخرى والتعرف على الكود مرة أخرى . تحياتي .

السلام عليكم شكرا لأخي خضر على المتابعة والمشاركة . والشكر موصول لأخي رضوان وآمل منك أخي رضوان توضيح ملاحظك أكثر . لمتابعة المزيد من التفاعل : http://www.krajabi.com/ib/index.php?showto...view=getnewpost تحياتي .

السلام عليكم فكرة عمل أزرار بشكل بسيط ودون تكلف ، آمل أن تحوز على رضاكم . وبكل تأكيد أحتاج إلى ملاحظاتكم في حال وجد لتطوير الفكرة . الشروط المطلوبة لتعمل الفكرة بشكل صحيح : 1- نحتاج لإضافة تسميات Labels لكل زر مطلوب بشرط أن تبدأ أسماؤها بـ Lbl مثل LblOpen ، التسميات لا تحتاج إلى أي شروط أخرى البتة فقط ضع التسميات Captions وحدد مواقعها ومقاساتها حسب الرغبة . 2 - إضافة أزرار بعدد التسميات بشرط أن تبدأ أسماؤها بـ Cmd ثم إسم التسمية بدون الثلاثة حروف الأولى مثل CmdOpen ، لا توجد شروط أخرى ولا يلزم تحديد مكانها ولا العناية بمقاساتها . 3 - نحتاج إلى إطار مستطيل Rectangle على أن يكون إسمه Box1 ولا يلزم تحديد مكانه ولا المقاس . 4 - مناداة الإجراء CheckButtons في حدث عند الفتح كالتالي : Call CheckButtons(Me) 5 - من المهم أن تضاف/تنشأ التسميات أولا ثم الأزرار ثانيا وليس العكس وإلا فلن تعمل الأزرار بشكل صحيح . تحياتي . Buttons_20050705.rar

السلام عليكم تم إضافة إمكانية تبديل ألوان الأزرار . تحياتي . ArbMsgBox_20050704.rar

السلام عليكم تم تبديل فكرة التنفيذ بفكرة جديدة تخلصت بها من ثلاث وحدات نمطية للحصول على طول وارتفاع نص الرسالة وعنوانها والحصول على المؤثرات الصوتية . كما أود الإعتذار من أخي خضر لاتخاذي قرار الغاء الأيقونة حيث يلزم معها تمكين صندوق التحكم وظهور علامة الإغلاق والتي لا أميل إلى وجودها دون أي فائدة لها في الصندوق . كما تم التعديل على حركة الأسهم في التنقل بين الأزار حيث كان سابقا تعطي نتائج عكسية . الآن الصندوق أصبح خفيفا في حمله لبرامجكم وحدة نمطية واحدة ونموذج واحد فقط . تحياتي . الملفات المرفقة ArbMsgBox_20050701.rar ( 142.08ك ) عدد مرات التنزيل: 6

السلام عليكم تم حل توسيط صندوق الرسائل حيث يتعامل الآن مع كل قياسات الشاشة ( الدقة ) . تحياتي . الملفات المرفقة ArbMsgBox_20050629b.rar ( 96.15ك ) عدد مرات التنزيل: 4

السلام عليكم حياك الله عزيزي الأستاذ أشرف ، فأنت أستاذ أولا وآخرا وسجلك يشهد بذلك ، وأشكرك لسؤالك عني فأنا والحمد لله بخير وأتمنى أن تكون كل أحوالك على أحسن ما يرام . لك كل العذر أخي أشرف فنحن نقبل منك أي شيء حتى ولو كان قليلا فأنت كريم ونحن لا نرد الكريم أبدا ولكن لا نقبل منك الإختفاء فأنت المقدم ونحن من خلفك . تحياتي .

السلام عليكم تتركه وتستخدم الإصدار الأحدث وخصوصا أن الـ 2000 به مشاكل كثيرة . تحياتي .

السلام عليكم لقد أرجعت التعديلات السابقة وذلك لأن إنشاء نماذج في نسخ MDE غير متاح . تحياتي . ArbMsgBox_Ver1.rar

السلام عليكم تم تنقيح المثال ومنها الإستغناء عن نموذج الخاص بالرسائل وتم الإستعاضة عنه بإنشاء نموذج جديد ثم حذفه مباشرة . لا يزال يعاب على الأدارة أنها لا تعمل مع النماذج المنبثقة . تحياتي . الملفات المرفقة ArbMsgBox_Ver1.rar ( 20.83ك ) عدد مرات التنزيل: 2

السلام عليكم تم تحديث الأداة بإضافة توقف آلي للصندوق يتم تحديده عن طريق المستخدم مع بعض الضوابط كضوابط استخدام زر الهروب Esc حيث يعمل مع خيارات محددة فقط . كما تمت بعض التنقيحات كتوسيط النص عموديا وتصحيح خطأ في توسيط الأزرار . تحياتي . الملفات المرفقة ArbMsgBox_Ver2.rar ( 160.05ك ) عدد مرات التنزيل: 16

السلام عليكم مرفق مثال . تحياتي . OpenReports.rar

السلام عليكم جرب في النموذج هذا الكود : Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 70 And Shift = 2 Then KeyCode = 0 End Sub ولا تنسى جعل قيمة الخاصية Key Preview = نعم / Yes . تحياتي .

السلام عليكم ممكن عن طريق أمر فتح التقرير كالتالي : DoCmd.OpenReport "ReportName", , , "ID = " & Me.ID بوضع شرط في الخانة الرابعة وبافتراض أن المعرف أسمه ID . أو يمكن عن طريق استعلام أو عبارة SQL كمصدر السجل للتقرير يحتوي على معيار Criteria للمعرف الحالي على النموذج . تحياتي .

السلام عليكم ويمكن اختصاره كالتالي : Me.p = Me.c تحياتي .

السلام عليكم للأسف أخي رحال ، لا أستطيع أن أفيدك في هذا الموضوع ، ولكن يمكنك الإطلاع على هذه الوصلة : http://www.ps-revolution.com/forum/archive....php/t-438.html تحياتي .

السلام عليكم الأخ egyman .. تفحص محتويات هذه الوصلة : http://www.windowsitpro.com/Article/Articl...4528/14528.html تحياتي .