نجوم المشاركات

______ __ __ ___ .__ __. _______ _______ __ ______ ______ .__ __. / || | | | / \ | \ | | / _____|| ____| | | / | / __ \ | \ | | | ,----'| |__| | / ^ \ | \| | | | __ | |__ | | | ,----'| | | | | \| | | | | __ | / /_\ \ | . ` | | | |_ | | __| | | | | | | | | | . ` | | `----.| | | | / _____ \ | |\ | | |__| | | |____ | | | `----.| `--' | | |\ | \______||__| |__| /__/ \__\ |__| \__| \______| |_______| |__| \______| \______/ |__| \__| تغيير شعار ميكروسوفت أكسس في TASK Manager في النموذج المرفق واستبداله بأيقونة أخرى يتم استدعاء الروتين من خلال وضع الكود الاتى فى حدث عند تحميل نموذج Call Xicon مع مراعاة تغيير البيانات الاتية فى رأس الموديول اسم التطبيق AppName اسم الايقونة بدون الامتداد icoName وتم عمل الكود على ان الايقونة فى نفس مسار القاعدة فى حالة تغيير مكان الايقونة لابد من تغير المسار فى الروتين AppIcon() Const AppName = "www.officena.net" Const icoName = "officenaIco" Public Function AppIcon() AppIcon = CurrentProject.Path & "\" & icoName & ".ico" End Function Public Function AccessIcon() AccessIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Debug.Print AccessIcon End Function Function AddAppProperty(strName As String, _ varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function Function Xicon() On Error GoTo ErrHandler Dim dbs As Object Set dbs = CurrentDb() Dim intX As Integer Const DB_Text As Long = 10 ' AppTitle intX = AddAppProperty("AppTitle", DB_Text, AppName) ' AppIcon Dim Chk Dim MyIcon As String Set Chk = CreateObject("Scripting.FileSystemObject") If Chk.FileExists(AppIcon()) = False Then MyIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Else MyIcon = AppIcon() End If intX = AddAppProperty("AppIcon", DB_Text, MyIcon) dbs.Properties("UseAppIconForFrmRpt") = 1 Application.RefreshTitleBar exitProc: Exit Function ErrHandler: If Err = 3270 Then Resume Next Else MsgBox Err & Err.Description Resume exitProc End If End Function ---------------------------------------------------------------------

أحسنت أستاذ محمد بارك الله فيك وزادك الله من فضله عمل رائع جعله الله في ميزان حسناتك ورحم الله والديك

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

اللهم انا نسألك رضاك والجنة - ونعوذ بك من سخطك و النار

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

جميل جداً جداً ويصف الواقع

جميعا بإذن الله أستاذ علي

وفقنا الله جميعا لكل ما يحبه ويرضاه @ابا جودى

جميعا بإذن الله تعالى @حمادة عمر

بارك الله فيك وزادك الله من فضله

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

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

نعم هي من تأليفي فبعض الأوقات تجود قريحتي ببعض الشعر والزجل وفقنا الله لكل ما يحب ويرضى

آمين يا رب العالمين

بارك الله فيك ورحم الله والديك

اللهم انا نسألك رضاك والجنة - ونعوذ بك من سخطك و النار

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

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

شكرا لك أخي الكريم خدمة رائعة من جوجل