ابو جودي

رقم تقعيل التطبيق الأول FFDCC-FAEFE-BADEF-42139-42842-64294-26824-42942-84294-2 ---------- رقم تقعيل التطبيق الثانى FFDCC-FAEFE-BADEF-42138-42842-64205-26824-42052-84294-2

طيب دقايق واكون مع سيدتك يا دكتور

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

الاصدار الجديد دعوة للتجربة قبل فتح موضوع خاص به المميزات : - عدم تفعيل اكثر من تطبيق لنفس العميل على نفس الحاسوب بنفس رقم التفعيل - تقليص واختصار رقم التفعيل قدر الامكان وهذا مراعاة للمشاركات تنويه .. بناء على طلب الدكتور @الحلبي كنت قد شرعت بعمل التطبيق يعتمد على رقم الهارد ديسك الحقيقى وليس رقم اى قطاع من قطاعات الهارد ديسك لانها يتغيير بعمل فورمات للقطاع ولكن فكرت قليلا لو حدث عطب بالهارد ديسك ! وتم استبداله يوجد مرفقين للتجربة اللى ما ينفتح معه النموذج الرئيسى يخبرنى واللى يجرب يأتينى برقم ال Activation Number من خلال الضغط على زر الامر Copy , والموجود يمين الرقم برجاء احضار ارقام التطبيقين حيث لكل منها رقم مختلف عن الاخر بعد ذلك سوف أرسل لكم رقم التفعيل لكليهما * ملاحظة أخرى فى حالة تغيير اسم التطبيق حتى ولو تملك رقم التفعيل لن يعمل التطبيق My App.zip

اولا ال UUID لا يتغير يتغير الويندوز ولا هارد ديسك وليس له علاقة بمكان قاعدة البيانات الامامية ولا بمكان قاعدة البيانات الخلفية ولو قمنا باستخدام سيريال الهارد ديسك فى حالة تغيير الهارد ديسك يفقد المستخدم تفعيل التطبيق

انشاء قاعدة بيانات مشفرة بكلمة مرور تستدعى القانك بأسمة من اى مكان وفى اى حدث على حسب هواك بالسطر التالى Call MkDbByPassword وتغير فى الفانك بس على التوالى المسار , اسم القاعدة الجديدة التى تريد انشاءها . كلمة المرور التى تريدها فى المتغيرات strDbPath >>>---->> المسار strNewDbName >>>---->> اسم قاعدة البيانات الجديدة ولا تنسى الامتداد strPassNewDb >>>---->> كلمة المرور التى تريد تشفير القاعدة بها Public Function MkDbByPassword() Dim wrkDefault As Workspace Dim dbsNew As DAO.Database Dim strDbPath As String Dim strNewDbName As String Dim strPassNewDb As String strDbPath = CurrentProject.Path & "\" strNewDbName = "NewDB.mdb" strPassNewDb = "00" Set wrkDefault = DBEngine.Workspaces(0) If Dir(strDbPath & strNewDbName) <> "" Then Kill strDbPath & strNewDbName Set dbsNew = wrkDefault.CreateDatabase(strDbPath & strNewDbName, dbLangGeneral & ";PWD=" & strPassNewDb) End Function

اى اى دايب دوووووووووووووب ☺️ انا بالاول كتبت الكود هنا بالمنتدى دون مرفق لانى كنت مستعجل وقتها ههههههههه يعنى ما كنت اكتب الكود بمحرر اكواد الاكسس وهاد مثل ما ينحكى غلطة الشاطر بألف

حلوة الفكرة ممكن تندمج برمجيا لتتم على ملف تسخة احتياطية لتقليل الحجم شكرا لك ... وكل عام انتم بخير

انا اللى غلط واانا اكتب الكود ووضعتها مزدوجه انا اسف اكتب بسرعة وكنت اركز فى شئ آخر

تم اعداد وتصميم هذا المرفق عام 2019 فقط قمت بتعديل روابط البث ولذلك وسمته ب ذكريات

------------------------ لفد وضعت الكود على اعتبار تعدد القيم وتعدد الالوان تبعا لتعدد القيم بوجه عام الكود بكل بساطه Dim colorA As Long: colorA = 255 Dim colorB As Long: colorB = 16711680 With Me.txtQty .BackColor = (IIf(.BackColor = colorA, colorB, colorA)) End With

انا اسف كتب كلمة Long مرتين اجعلها واحدة فقط فى كل سطر LongLong تم تعديل المرفق يا دكتور @الحلبي برجاء اعد تحميل المرفق والتجربة

ذكريات و تحديث اذاعات البث المباشر تحديث المرفق اعادة تفعيل الـ Shift تقليل حجم مستوى الصوت عتج الفتح ازالة روابط اذاعات بث الغناء اخص بكل الشكر والعرفان بالجميل اخى الحبيب الاستاذ @Amr Ashraf لتنبيهى لتدارك خطأى عبر نشر اذاعات بث الغتاء اللهم انى استغفرك واتوب واليك اللهم اغفر لى يارب وارحمتى واعفو عنى يارب العالمين Radio (V2).mdb

اى هاد اهم شغله

طيب و يما ان السؤال كان على اعتبار ان اسم الحقل txtQty اجعل timer interval=300 وفي حدث on timer للنموذج ضع الكود التالي Dim colorA As Long Dim colorB As Long Select Case Nz(Me.txtQty, "") Case Is = "" Case 1 To 5 colorA = 255 colorB = 16711680 With Me.txtQty .BackColor = (IIf(.BackColor = colorA, colorB, colorA)) End With Case 6 To 10 colorA = 128 colorB = 32768 With Me.txtQty .BackColor = (IIf(.BackColor = colorA, colorB, colorA)) End With End Select قم بوضه القيم من 1 : 5 تحصل على مربع يضئ ويطقئ بألوان وغير القيم من 6 : 10 تحصل على مربع يضئ ويطقئ بألوان مختلفة المرفق تم تحديث المرفق LightSystem.mdb

اولا انا وما املك ملك يمينكم >>---> العشق الممنوع طيب ليه فى اختلاف فى الاعداد حضرتك ت حسبت اجمالا واستخدمت التقريب فى الكسور انا لم احسب اجماالا ولذلك لم احصل على كسور ولم استخدم التقريب بس ... عند التحدث فى هذا الصدد لن تحصل اطلاقا على قيمة صحيحة بنسبة 100% طيب تعالى نوضح بعض النقاط الهامة تحتوي السنوات الكبيسة على 366 يومًا ، وليس 365 كم يوما يجب أن يكون للشهر؟ 28 أو 29 أو 30 أو 31؟ ومع الاخذ فى الاعتبار إن الوقت الذي تستغرقه الأرض حتى تدور حول الشمس على وجه الدقة يقترب من 365.25 يوما وبذلك يكون عدد الأيام فى الشهر = 365.25/12=30.4375 لذلك فإنه من أجل ضمان أن تظل مواسم التقويم الميلادية متزامنة مع المواسم الشمسية، يتم وضع يوم إضافي في التقويم الميلادي كل أربع سنوات وذلك سوف نقوم باستخدم الكود الاتى فى وحدة نمطية والافضل الحساب على اعتبار ان السنه 365.25 الوقت الذي تستغرقه الأرض حتى تدور حول الشمس ومع ذلك تم المراعاة اثناء كتابة الكود بجعل الاختيار حسب الرغبة اومااااااااااااااااااال Function GetPeriod( _ intContDays As Long, _ Optional intBetween_0_Or_1_LangEng_Or_Ar As Byte = 0, _ Optional intBetween_0_Or_1_ContDaysOfYear As Byte = 0) As String Dim YearAvg As Double, MonthAvg As Double Dim Y As Long, M As Long, D As Long Dim strYears As String, strMonths As String, strDays As String Select Case intBetween_0_Or_1_ContDaysOfYear Case Is = 0: YearAvg = 365: MonthAvg = 30 Case Is = 1: YearAvg = 365.25: MonthAvg = 30.4375 End Select Y = Int(intContDays / YearAvg) M = Int((intContDays - (Int(intContDays / YearAvg) * YearAvg)) / MonthAvg) D = intContDays - ((Y * YearAvg) + (M * MonthAvg)) Select Case intBetween_0_Or_1_LangEng_Or_Ar Case Is = 0: strYears = " year" & " , ": strMonths = " Month" & " , ": strDays = " Day" Case Is = 1 strYears = ChrW("32") & ChrW("1587") & ChrW("1606") & ChrW("1607") & " , ": strMonths = ChrW("32") & ChrW("1588") & ChrW("1607") & ChrW("1585") & " , ": strDays = ChrW("32") & ChrW("1610") & ChrW("1608") & ChrW("1605") End Select GetPeriod = Y & strYears & M & strMonths & D & strDays End Function على ان يتم استدعاؤه بشكل مرن باختيار الية الحساب على اعتبار ان السنة 365 و عدد ايام الشهر 30 او على اعتبار ان السنة 365.25 و عدد الأيام فى الشهر = 365.25/12=30.4375 syntax ويتم استدعاء الكود من خلال GetPeriod(CountDays, Lang(0 or 1) ,Option Calc for Cont Dayes Of Year(0 or 1)) وهذه جملة Sql والخاصة بالاستعلام للحصول على النتيجة النهائية كما بالمرفق SELECT tbldata.EmpCode, Sum(DateDiff("d",[fromDate],[ToDate])) AS NoDays, GetPeriod(Sum(DateDiff("d",[fromDate],[ToDate]))) AS FinalDurationBy365Eng, GetPeriod(Sum(DateDiff("d",[fromDate],[ToDate])),0,1) AS [FinalDurationBy365,25Eng], GetPeriod(Sum(DateDiff("d",[fromDate],[ToDate])),1) AS FinalDurationBy365Ar, GetPeriod(Sum(DateDiff("d",[fromDate],[ToDate])),1,1) AS [FinalDurationBy365,25Ar] FROM tbldata GROUP BY tbldata.EmpCode; واخيرا المرفق ملك يمينكم يا @سجى الكعبي و عبى يابا و ضيف للمكتبة يا سيدى طبعا لا اقصد مكتبة @Moosak EmploymentPeriods (V2).accdb

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

السلام عليكم ورحمة والله تعالى وبركاته طيب ببساطه انظر للسلسلة النصية الاتية "Moh8202281012343434" ونريد التعديل عليها لتظهر بهذا الشكل "Moh-820-228-101-234-343-4" او بهذا الشكل "Moh,820,228,101,234,343,4" او بهذا الشكل Moh820/228101/234343/4 يتم عمل ذلك من خلال الكود الاتى Function ReFormat(ByVal strText As String, Optional strSymbol As String = "-", Optional intCountDigits As Integer = 3) Dim i As Long ReFormat = "" For i = 0 To Len(strText) - 1 Step intCountDigits If i = 0 Then ReFormat = Mid(strText, i + 1, intCountDigits) Else ReFormat = ReFormat & strSymbol & Mid(strText, i + 1, intCountDigits) End If Next i End Function syntax code ReFormat(string ,Symbol, Count Digits) Result By default syntax used ReFormat(string) Symbol >-->> - Count Digits >-->> 3 اذا من خلال استدعاء الكود عن طريق البنية المفضلة الاتية: ReFormat(string) تحصل على اضافة العلامة - بعد كل 3 مواضع فى السلسلة النصية اما اذا اردت التعديل فى شكل الرمز وعدد المواضع يمكنك استخدام الكود الاتى : ReFormat(string ,Symbol, Count Digits) مثلا لو اردت استخدام الرمز $ بدلا من الرمز - وتريد وضع الرمز فى السلسلة النصية بعد كل خمس مواضع يكون الكود كالأتى: ReFormat(string ,"$", 5)

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

اى مبدع بحق واكثر الاوقات ابداعا عندما يقول >>---> يضاف الى مكتبة الاكواد

تجربة ع السريع الحل بأخر استعلام qryTotalFinalDuration للتجربة ادخل كود الموظف 1 وتارة اخرى 2 للتجربة للعلم عدد الايام لن يكون صحيح بنسبة 100% لانه تم القسمة على 30 وهناك اشهر قد تكون 28 , 29 , 30 , 31 ولا اعرف كيف اضبطها الحل المقدم من تصورى قد اخطئ فيه وقد اصيب وربما تكون هناك افكار افضل وان حالفنى سعة من الوقت قد احاول تحويل كل المعادلات داخل الاستعلامات ليت ترجمتها فى موديول واحد ليقوم بالحساب مرة واحدة ولكن لن احاول عمل ذلك الا بعد التأكد من تجربتكم بصحة الارقام الناتجة EmploymentPeriods.accdb

الله اكبـــــر يحيا العدل 👈 صعيدى وافتخر هذا فضل الله تعالى الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل وهذا رزقكم ساقه الله اليكم

يا سيدى الله يحفظك لاهلك واحبابك ويبارك بعمرك وعلمك وعملك وما يحرمنا جمعكم الطيب وفعلا انا مهضوم ومن كتر الهضم ما صار فينى شئ صيرت جلد على عضم بدنا ضرايب بالمنتدى ع ها المكتبة اوماااااااااااااااااااال

والله انت اللى عسل يا عسل انت

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