أ / محمد صالح

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

شاهد معي هذا الموضوع http://www.officena.net/ib/index.php?showtopic=39248 وأخبرني برأيك به

اعرض الملف الدليل الشامل في حساب مدد خدمة الموظفين وإجمالي هذه المدد بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ================ كثرت الأسئلة في الفترة الأخيرة حول حساب الفرق بن تاريخين ويستخدم هذا في حساب مدة خدمة الموظفين من تاريخ التعيين إلى الآن وكذلك مدد الخدمة الإضافية وكذلك مدد الانقطاع عن العمل -------------------------------------- ولذلك توكلت على الله وقمت بتصميم هذا الملف لعله يفيد كل من يبحث في هذا الموضوع والله من وراء القصد ولا ينقصني سوى دعاؤكم ............ تم تحديث البرنامج وإجراء بعض التعديلات صاحب الملف أ / محمد صالح تمت الاضافه 13 نوف, 2011 الاقسام قسم الأكسيس

ما شاء الله تجميعة رائعة أخي جمال وفقك الله وأضيف لابداعات الإخوة دالة بسيطة للفرق بين تاريخين بالطريقة المتبعة عندنا في مصر (وبها بعض الاختلاف عن datedif الموجودة في الإكسل) حيث يتم حساب السن عندنا بطرح أيام التاريخ الأحدث - أيام التاريخ الأقدم وإذا كان الناتج بالسالب يتم استلاف شهر (30 يوم كقاعدة ثابتة) ونفس الكلام مع الشهور مع استلاف 12 شهر في حالة شهور التاريخ الأحدث أقل من شهور التاريخ القديم والناتج مجمع كله في خلية واحدة Function date_diff(oldd As Date, newd As Date) As String Dim years, months, days As Integer years = Year(newd) - Year(oldd) If Month(newd) < Month(oldd) Then years = years - 1 months = (Month(newd) + 12) - Month(oldd) Else months = Month(newd) - Month(oldd) End If If Day(newd) < Day(oldd) Then months = months - 1 days = (Day(newd) + 30) - Day(oldd) Else days = Day(newd) - Day(oldd) End If date_diff = Format(years, "00") & " عام و " & Format(months, "00") & " شهر و " & Format(days, "00") & " يوم" End Function بارك الله في كل من ساهم في هذا الموضوع

فكرة جميلة أخي عبد الله وفقك الله

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

تفضل أخي الكريم جرب وأخبرني بالنتيجة mas_mailer-v2.1-UP.rar

الأخ الكريم عيد 2005 تم عمل اللازم وذلك بما يلي: جعل حقل id نوعة number وليس text يمكنك تحديد أكثر من عنصر في القائمة تم الاستغناء عن الاستعلام والاستعاضة عنه بالكود ...... جرب وأخبرني بالنتيجة mas_f11.rar

السلام عليكم أخي الكريم بالنسبة لموضوع البريد والأكسس ارفق لي النسخة التي تعمل عليها وبإذن الله يتم تعديل الكود لك لأن هذا البرنامج صدرت منه نسخ كثيرة جداً ولا أدري أيها تستعمل

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

بارك الله فيك أخي الكريم نارت كود رائع سبق أن استخدمته في برنامج منظومة المدارس الإعدادية هدية جميلة تقبل الله منا ومنكم

جرب هذا الكود DoCmd.OutputTo acOutputQuery, "exportQu", acFormatXLSX, CurrentProject.Path & "\safaatech.xlsx", True

جرب هذا الكود If MsgBox("هل حقاً تريد إكمال العملية؟", 1572900, "تحذير") = vbYes Then docmd.setwarnings false DoCmd.OpenQuery "upT" DoCmd.OpenQuery "upB" DoCmd.OpenQuery "upC" DoCmd.OpenQuery "upD" DoCmd.OpenQuery "upE" DoCmd.OpenQuery "upEX" DoCmd.OpenQuery "delT" DoCmd.OpenQuery "delB" DoCmd.OpenQuery "delC" DoCmd.OpenQuery "delD" DoCmd.OpenQuery "delE" DoCmd.OpenQuery "delEX" docmd.setwarnings true End If

يمكن تعدد حقول وجداول جملة select بمعنى أنه يمكننا الاستعلام من أكثر من جدول مثال على ذلك SELECT orders.order_id, suppliers.name FROM suppliers, orders WHERE suppliers.supplier_id = orders.supplier_id; ويكون ذلك باستعمال النقطة بين اسم الجدول واسم الحقل والاستعلام المذكور يعرض اسم المورد ورقم أمر الشراء في حالة تساوي رقم المورد في الجدولين

أخي الكريم أذا كنت تستعمل نظام التشغيل ويندوز 7 وعموما يوجد مشكلة في تسجيل المراجع في ويندوز 7 حيث تحتاج عملية التسجيل إلى صلاحيات المدير المسئول ولذلك لتسجيل الأداه قم بالضغط على start ثم اكتب cmd في مربع البحث عن البرامج وحينما يظهر سطر الأوامر اضغط بزر الفارة الأيمن عليه واختر Run as Administrator وبعدها شغل الأمر التالي فيه ثم اضغط انتر regsvr32 Msinet.ocx وبإن الله سوف تأتيك رسالة النجاح في التسجيل ..... جرب وأخبرني بالنتيجة

الحمد لله الذي جعل لي السبق في الرد على هذه الكنوز حقاً أخي نارت لغة sql بها الكثير من الأسرار وها أنت خضت معنا فيها فمرحب بك على أمل التواصل معكم في هذا الموضوع بخفايا sql وفقكم الله

شكرا لك أخي دغيدي ولكن يبدو أن الرابط به خلل وهذا رابط آخر لك أخي الكريم http://www.kutub.inf.../search?q=excel وهذا رابط آخر http://www.kutub.info/books/search?q=%D8%A7%D9%83%D8%B3%D9%84 أتمنى أن يفيدك

يا ريت مزيد من التوضيح

طلباتك أخي الكريم تم عمل اللازم تجده هنا http://www.officena.net/ib/index.php?showtopic=39163&view=findpost&p=216327

ويمكنك تنفيذ كل هذه التعليمات الوارد ذكرها في الصفحة المشار إليها بهذا السطر من الكود CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Common\Security\DisableHyperlinkWarning", "1", "REG_DWORD" كل عام أنتم بخير

هل تم حل المشكلة؟ وكيف؟

بارك الله فيك أخي محمد يحياوي وهذا هو الكود العكسي إلغاء تثبيت وظيفة إضافية sub UnInstall_Addin() Dim oXLAddin As AddIn For Each oXLAddin In Application.AddIns If oXLAddin.FullName = "C:\MyAddIn.xla" Then oXLAddin.Installed = False End If Next oXLAddin End Sub وكل عام أنتم بخير

بارك الله فيك أخي قصي ولكن واجهتني مشاكل مع ويندوز 7 لم يعمل معي كما ينبغي

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