محب العلم

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

الأخ طارق ، تماما، لا تنسى أن تضع نسخة عن البرنامج قبل عمل أي شيء. قد تواجهك خلال عملية التحويل واحدة من المشاكل الآتية وعندها يرجى أخبارنا لمساعدتك 1. Database is corrupt 2. References do not convert 3. Form does not convert 4. أو غيرها من المشاكل المتعلقة لا تنسى قبل التحويل أن هناك مجموعة من الأمور تحتاج إلى عناية خاصة 1. إحباط خاصية Name AutoCorrect 2. قد تواجهك هذه المشكلة ولها حل "... shut down by Windows. Sorry for the inconvenience." 3. Allow Zero Length 4. أسماء النماذج الفرعية التلقائية وإن شاء الله لن تواجهك مشاكل نهائيا مع وافر الاحترام والتقدير

السلام عليكم حياك الله أخي ، إذا كنت تستخدم أكسيس 2002 أو أعلى فمبدئياً لإختيار طباعة محدد نستخدم كود مثل هذا كود Set Application.Printer = Application.Printers("HP LaserJet Series II") ولمعرفة الطابعة الحالية المعرفة معياريا نسنخدم كود dim strDefaultPrinter as string strDefaultPrinter = Application.Printer.DeviceName ويفضل استخدام المنطق البرمجي الأتي كود إقرأ معلومات الطابعة الإفتراضية dim strDefaultPrinter as string strDefaultPrinter = Application.Printer.DeviceName ثم عين الطابعة التي تريد الطباعة عليها مثلا هكذا Set Application.Printer = Application.Printers("HP LaserJet Series II") إعمل شيئا مثل طباعة تقريرك ثم أرجع الطابعة الإفتراضية Set Application.Printer = Application.Printers(strDefaultPrinter) أملا منك التجربة وموافاتي بالنتيجة فهناك المزيد من الأكواد المتعلقة بهذا الموضوع مع وافر الاحترام

وعليكم السلام ورحمة الله وبركاته لله الحمد بألف خير ونعمة من الله وأتمنى أن تكون أنت كذلك . أخي محمد ، لقد قمت بتطوير البرنامج لك وأصبح يشمل 1. شريط قوائم 2. أشرطة قوائم مختصرة خاصة بطرق العرض نموذج مفرد وقوائم البيانات 3. ثلاثة أوضاع للنموذج محمي من التعديل ، وضع للتعديل ، و جدول 4. زر للحذف 5. زر لعرض القوائم المختصرة 6. زر لعرض جدول 7. زر تحكم للتبديل بين وضعي العرض والتعديل 8. وحدة نمطية للإجراءات العامة 9. معالجة رسائل الخطأ التي قد تظهر بطريقة نموذجية 10. زر للبحث عن المشترك 11. زر لعرض السجل الرقم الذي اسند للمشترك الأخير يفيد معرفة هذا الرقم عند اضافة مشترك جديد 12. ماكرو لفتح النماذج 13. نموذج لوجو للبرنامج 14. التحكم بعدم فتح قوائم أكسيس وإن أحببت سأقوم بشرح كافة العمليات المذكورة بالتفصيل وذلك بعد دراستك للبرنامج جيدا ومعرفة كيفية عمله. المثال : water.zip ملاحظة : إذا أحببت الدخول للبرمجة ، افتح البرنامج مع استمرار الضغط على زر shift مع وافر الاحترام والتقدير

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

السلام عليكم أخي الكريم ، بالنسبة للمشكلة الأولى وهي احضار عدد الركاب من النموذج الفرعي للرئيسي تم حلها تماما حسب الشرح الوارد في مشاركة رقم 22 في سلسلة الأمثلة المشروحة . بالنسبة للمشكلة الثانية وهي كتابة الرقم تلقائيا في النموذج الفرعي تم حلها أيضا وذلك بتعريف حدث في الحال في الفرعي وجعل قيمة الرقم تأتي من الرئيسي parent الأب. بالنسبة للإستعلام تم عمله كما تريد التعديل :Travel_Req.zip وحيث أن العمل على المشروع مازال قائما فإذا واجهتك مشاكل أخرى فأرجو طرحها لكي أساعدك في حلها بإذن الله مع وافر الاحترام

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

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

وعليكم السلام ورحمة الله وبركاته أخي أبا حسين ، يمكن تنفيذ الاستعلام الإجرائي ومنها استعلام التحديث بواسطة الكود كما يلي وهذا نفس المثال السابق Q3 كود Private Sub Command0_Click() Dim SQL As String SQL = "UPDATE Products SET Products.UnitPrice = [UnitPrice]*1.1 " & _ "WHERE (((Products.UnitPrice)>20));" DoCmd.RunSQL SQL End Sub التعديل : Q5.zip مع وافر الاحترام والتقدير

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

المثال الرابع عشر كيفية البحث في المتشابهات في اللغة الانجليزية والعربية المقدمة عندما يريد أحد الاشخاص عمل قاموس إلكتروني بحيث عندما يدخل كلمة باللغة الأنجليزية فيظهر المعنى يكون الأمر في غاية البساطة إذا ادخل المستخدم لهذا البرنامج الكلمة بدون أخطاء إملائية، أما إذا كان هناك خطأ إملائي فإن المعنى لن يظهر لأن الكلمة غير موجودة وهنا تبرز الحاجة إلى البحث في المتشابهات الكلمات التي تشبه الكلمة المدخلة بشكل خاطىء. التفاصيل مثلا من المعروف أن كلمة Hello معناها مرحبا ماذا يحدث لو أدخلنا كلمة Halo ، Halloe ، Helo ، Hailo ، Helw بشكل خاطىء ونحن نقصد الكلمة Hello هذا بالضبط هو وظيفة الإقتران soundex الموجود في الوحدة النمطية وطريقة طلبه من الاستعلام هي كما في الصورة طبعا هذا الاقتران يختلف عن المتشابهات باستخدام العامل Like و * المتوفر من أكسيس كما تلاحظون السؤال الأهم هل يمكن استخدام الإقتران بالعكس إي من العربي إلى الإنجليزي والجواب نعم فمثلا مرهبا ، محربا ، مرهوب ، ممورهبا كلها تعطينا الكلمة مرحبا المثال التطبيقي : Soundex.zip هنيئاً لصناع القواميس بهذا الإقتران الرائع مع وافر الاحترام والتقدير

نعم أخي ، في النموذج في خاصية طريقة العرض تختار نماذج مستمرة كما في الصورة مع الاحترام

حياك الله أخي شريف وحمدا لله على سلامتك من السفر ، أرجو أن تطلع على البرنامج وأن تقوم ببعض الإدخلات كما أشرت سابقا وأن توافني بملاحظاتك لكي نكمل العمل بإذن الله مع وافر الاحترام والتقدير

وعليكم السلام ورحمة الله حياك الله أخي وبإذن الله سأساعدك أرجو منك فضلا دراسة البرنامج الذي أرفقته لك ومحاولة عمل شيء جديد فيه وإن احتجت مساعدة فأرفعها مع وافر الاحترام

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

السلام عليكم قمت بالتعديل المطلوب ولكني لم أجرب لأنه يوجد عندي مرجع ناقص أعتقد بسبب استخدامك مؤثرات النماذج عند الإغلاق فإنها تستخدم مرجعا اسمه dataform على كل الأحول أعتقد أنه سوف يشتغل عندك بدون مشاكل وإن أحببت أن أشرح لك طريقة استبدال المعلمة في التقرير بالشرط الذي بعث للتقرير من النموذج فأرجو اعلامي. التعديل : term1v1.rar مع وافر الاحترام والتقدير

عندما يفتح النموزج الرئيسى patient_ID يكون النموذج Special مغلقا . كيف سنحضر قيمة من نموذج مغلق ؟! مع وافر الاحترام

أحسنت أخي هاشم هنيئا لك أخي حامل المسك

وعليكم السلام ورحمة الله وبركاته تفضل أخي حامل المسك : RanksInReport.rar مع وافر الاحترام

السلام عليكم بالنسبة لمتابعة الخدمة سواءً كهرباء أو ماء فالأمر بسيط صممت لك مثال لكي تسترشد به وأتمنى لك التوفيق النتيجة هي كما يلي والمثال هنا water.rar مع وافر الاحترام

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

السلام عليكم ضع في مصدر مربع التحرير والسرد الخاص بإظهار اسماء التقارير الكود الآتي SELECT Name FROM msysobjects WHERE (((msysobjects.Type)=-32764)); ثم لطباعة التقرير من زر أمر اطلبه هكذا Private Sub Command39_Click() If Not IsNull(Me.[ReportList].Value) Then DoCmd.OpenReport Me.[ReportList].Value, acViewPreview Else MsgBox "الرجاء إختيار اسم التقرير أولا" End If End Sub ملفك مع التعديل المذكور : ReportList.rar مع وافر الاحترام

حاولت فتح المرفق ولم أنجح أرجو ارفاقه مرة أخرى ويمكن مراجعة هذا الموضوع أيضا هـــــــــنـــــــــــــا مع وافر الاحترام

الحل هنا أخي | | | | | | سلسلة الأمثلة المشروحة

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