ابو جودي

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

اتفضل يا سيدى Change Font (2).mdb

من خلال استعلام تجميع من خلال Dlast اى خدمه كل سنه وانت طيب لو ما فهمتش تبقى بعد كده لما تنضم لمكان وتكون جديد حاول تتعب نفسك وتعرف القوانين المنظمة للمكان ده ليك اولا ثم للمصلحة العامة ثانيا انت انتهكت قانون ولكن علشان رمضان كل سنه وانت طيب انا غضيت الطرف وجاوبت غير مسموح بوضع اكثر من سؤال فى مشاركة واحدة يفضل وضع مرفق مختصر للحصول على نتيجة سريعة اجمالا اقصد الاتى 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. المرفقات 17. إذا لم يكن السؤال يسهل فهمه عن طريق الشرح فقط، يجب إرفاق مثال. 18. المرفقات يجب تحوي مثال مبسط وعينة كافية من البيانات بحيث تعم الفائدة دون الحاجة لتحميل ملفات كبيرة الحجم 19. تجنب نشر بيانات حقيقية يخشى نشرها ويمكن أن تطلب حذفها لاحقاً. وتفصيلا القوانين يمكنكم الاطلاع عليها من هنا http://www.officena.net/Tips/Questions.htm

اتفضل انا عملت لك الكود بالشكل ده حتى يكون مرن فيمكن استخدامة لاى قاعدة ومع اى جدول Function MyID(ByRef strFieldName As String, ByRef strTableName As String) Dim lngNextNumber As Long Dim strNextNumber As String Dim strNewID As String Const intNumberOfZeros = 6 lngNextNumber = Nz(Right(DLast("[" & strFieldName & "]", strTableName), intNumberOfZeros), 0) + 1 strNextNumber = String(intNumberOfZeros - Len(CStr(lngNextNumber)), "0") & CStr(lngNextNumber) strNewID = "EN" & Format(Date, "yy") & Format(Date, "mm") & Format(Date, "dd") & strNextNumber MyID = strNewID End Function طبعا ممكن وضع الوظيفة السابقة فى موديول ويتم استدعاؤه حسب الحاجة تبعا لاسم الجدول واسم حقل الترقيم المخصص داخل الجدول من خلال السطر الاتى TextBox= MyID("movement_N", "movement") ملاحظة ممكن تتحكم فى عدد الاصفار من خلال تغيير الرقم 6 فى السطر تبعا للعد اللى تبغاه انت Const intNumberOfZeros = 6 الحركة (3).accdb

بالنسبة للملاحظات وجدتك تستخدم DLookup اكثر من مرة فى نفس الحدث لمجرد احضار بيانات من حقول اخرى لنفس الجدول اتفضل اهديكم احضار بيانات دفعة واحدة من اكثر من حقل عن طريق المصفوفات من خلال الـ DLookup على طريقة استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @jjafferr Dim strDLookupFlds As String Dim stLinkCriteria As String Dim MyVariable As String Dim Arry() As String Dim ChosFld As String MyVariable = 1 stLinkCriteria = "[FldCriteria]=" & MyVariable '|Numeric 'MyVariable = "Mahmoud" 'stLinkCriteria = "[FldCriteria] ='" & MyVariable & "'" '|String 'MyVariable = "03/01/1982" 'stLinkCriteria = "[FldCriteria] =#" & MyVariable & "#" '|Date strDLookupFlds = DLookup("[Fld1] & '|' & [Fld2] & '|' & [Fld3] & '|' & [Fld4] & '|' & [Fld5] & '|' & [Fld6] & '|' & [Fld7] & '|' & [Fld8]& '|' & [Fld9]", "[tblName]", stLinkCriteria) Arry = Split(strDLookupFlds, "|") Debug.Print strDLookupFlds ChosFld = Arry(0) Debug.Print ChosFld 'Arry(0) = Fld1 'Arry(1) = Fld2 'Arry(2) = Fld3 'Arry(3) = Fld4 'Arry(4) = Fld5 'Arry(5) = Fld6 'Arry(6) = Fld7 'Arry(7) = Fld8 'Arry(8) = Fld9 طبعا لن يزيد الان صيام بعيدا عن المزاح انا لم اقم بالتجربة ولم اقترب من تلك الجزئية لا من قريب ولا من بعيد لو كانت موجودة الان فذلك لانها مشكلة ازلية بناء على تطبيقكم انتم وليس تعديلى انا ابشر سوف ارى ما يمكن عمله

اتفضل الكود بعد التعديل On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtMt, prtDy, prtTxt As Integer prtyr = Format(Date, "yy") prtMt = Format(Date, "mm") prtDy = Format(Date, "dd") prtTxt = CLng(Mid(DMax("movement_N", "movement"), 2, 2)) xLast = CLng(Right(DMax("movement_N", "movement", prtTxt = prtyr), 6)) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!movement_N = "EN" & prtyr & prtMt & prtDy & Format(xNext, "000000")

طيب للسنة استخدم Format(Date(),"yy") وللشهر استخدم Format(Date(),"mm") ولليوم استخدم Format(Date(),"dd") ولى عودة مرة اخرى للموضوع لتوضيح واضافة بعض الملاحظات داخل قاعدتك ولكن اعطنى قليل من الوقت

السلام عليكم ورحمة الله تعالى وبركاته من حين لآخر قد نستخدم برامج محمولة بتمرير قيم اليها لاجراء بعض العمليات من خلال الـ Command Line ولكن احيانا تعلق بالذاكرة ولا يتم إغلاق البرامج بشكل صحيح وبالتالي تسبب الصداع والمشاكل التى تجعلك غير قادر على معاودة العمل مرة أخرى لذلك قد يصبح من الضروري إنهاء العملية بالقوة بقتل التطبيق العالق فى الذاكرة اقدم لكم وظيفة بسيطة تقوم بتمرير الاسم الكامل للعملية المطلوب إنهاؤها فقط Public Function WMI_KillProcess(sProcessName As String, Optional sHost As String = ".") As Boolean On Error GoTo Error_Handler Dim oWMI As Object 'WMI object to query about the PC's OS Dim sWMIQuery As String 'WMI Query Dim oCols As Object Dim oCol As Object Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sHost & "\root\cimv2") sWMIQuery = "SELECT Name FROM Win32_Process" Set oCols = oWMI.ExecQuery(sWMIQuery) For Each oCol In oCols If LCase(sProcessName) = LCase(oCol.Name) Then oCol.Terminate ' Kill this instances of the process End If Next oCol WMI_KillProcess = True Error_Handler_Exit: On Error Resume Next Set oCol = Nothing Set oCols = Nothing Set oWMI = Nothing Exit Function Error_Handler: MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: WMI_KillProcess" & vbCrLf & _ "Error Description: " & Err.Description & _ Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _ , vbOKOnly + vbCritical, "An Error has Occurred!" Resume Error_Handler_Exit End Function ويتم استدعاء الوظيفة من خلال السطر الاتى Call WMI_KillProcess("calculator.exe") طبعا تغير اسم التطبيق العالق والذى تريد انهاءه بالقوة بدلا من calculator.exe وهذا مثال للتوضيح KillProcess.accdb

مين قال لا يوجد وما فائدة هذا التطبيق Full Control Of Print Report التحكم في الطابعة وخصائصها طباعة التقارير.mdb

السلام عليكم ورحمة الله تعالى وبركاته اولا : كل عام وانتم بخير ثانيا : انا بصدد عمل قاعدة بيانات جديدة تخص عملى واريد أن أبدئها مع اساتذتى من الصفر نظرا لان القاعدة الحالية تم الانتهاء من تصميها فى العام 2016 وكانت تلك بدايات تعلمى الاكس ولم يتم تحديثها او تنقيحها بعد ذلك فحتما وقعت فى الكثير من الاخطاء ولذلك اريد تقديم يد العون من اساتذى الكرام نظرا لان القاعدة الحالية بطيئة جدا جدا.. كما نها تعمل فى اطار شبكة محلية بإختصار اولا اضع النقاط الرئيسية للبيانات وكيف تتم معالجتها والية العمل حتى تكتمل الصورة ونبدأ بتحليل النظام اولا ----------------- - يتم احضار ملف اكسل من جهاز البصمة لكل العاملين يتم استيراد البيانات الى قاعدة البيانات - احتساب التأخير بناء على جدول به مواعيد الحضور لانها قيم غير ثابته او قد تتغير مع الوقت ولابد من مراعاة الاتى 1- فى ايام العمل الرسمية من الاحد الى الخميس مواعيد الحضور تبدأ من 7:30 ص ووقت السماح الى الساعه 8:20 ص المفروض احتساب مخالفة بعدد 1 لكل موظف ظهرت مواعيد حضوره ابتداء من الساعة 8:21 ص الى الساعة 10:00ص ومخالفة بعدد 2 لكل موظف لكل موظف ظهرت مواعيد حضوره ابتداء من الساعة 10:01 ص وحتى الساعة 12:00 م ( ظهرا ) ومخالفة بعدد 3 لمن كان حضوره بعد الساعة 12:00 م ولكن فى يوم الاحد فقط من كل اسبوع يستثنى من ذلك المسيحيون فمواعيد المخالفة عدد 1 تبدأ من الساعة 10:01 ص وحتى الساعة 12:00 م ( ظهرا ) ومخالفة بعدد 2 لمن كان حضوره بعد الساعة 12:00 م حالة استثنائية: فى حالة التأخير للموظفين بسبب التفتيشات الامنية يعامل الجميع بالطريقة التى تم احتساب المخالفات بها للمسيحيون 2- الانصراف يبدأ من الساعة 2:00 ايا موظف تظهر وقت بصمته قببل الساعة 2 تعد مخالفة طبعا مطلوب تجميع عدد المخالفات كل أخر شهر للموظفين 3- يستثنى من المخالفات كل من توجه الى عيادة ولكن مطلوب تجميع عدد العيادات كل أخر شهر للموظفين 4- ايام الجمعة والسبت او الاعياد والمناسبات الرسمية التى تكون اجازة من الدولة يكون وقت الحضور حتى الساعة 9:00 ص واى تأخير بعد ذلك يحتسب بعدد 1 مخالفة فقط 5- مطلوب تجميع عدد ساعات العمل الرسمية شهريا حسب عدد ايام الشهر لايام من الاحد الى الخميس من الساعة 8:00 ص الساعة 2:00 مساء 6- تجميع عدد ساعات العمل الفعلية من وقت حضور الموظفين الفعلى فى تلك الايام وحتى وقت الانصراف بدون السهر اى الى الساعة 2:00 مساء لاحتساب نسبة الحضور المئوية شهريا للموظفين 7- احتساب عدد الساعات الفعلية لكل ايام العمل الرسمية والغير رسمية فقط معدد ساعات يستكمل الباقى بعد الانتهاء من تلك الجزئية🤣

راجع الروابط الاتية

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل بحثت عن البرنامج الذى تفضلتم ونوهتم عنه بالمنتدى ولم اوفق فى الوصول اليه فضلا وكرما ممكن الرابط

ان شاء الله الحل هنا ان اردت وهو إهداء لمن يريد وهنا كان موضوع البحث والنقاش

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

طيب اولا لابد لنا الاحتفاظ بتلك القاعدة Converter Arabic and Unicode (v. 3) الوظيفة : تقوم بعمل التحويل من اللغة العربية الى الترميز العالمى والعكس ثانيا انا اردنا كتابة تلميح داخل محرر الاكواد لا نكتبه بالعربية كذلك ولكن ممكن بالـ Franco-Arab كتابة تلميح يدل على رسالة ترحيب ممكن نكتب التلميح بالشكل الاتى ' resalat tar7ib 'ahala bkm fe montda Al Access ونقوم باعلان عن متغير نصى لنسد اليه نص الرسالة مثلا Dim strMsgTr7ib As String ثم نفتح قاعدة بيانات التحويل ونكتب بها النص الذى نريده بالعربى ونقوم بتحويله الى الترميز العالمى ونقوم بنسخ الرموز الناتجة من التحويل ونسندها الى المتغير strMsgTr7ib = ChrW("1575") & ChrW("1607") & ChrW("1604") & ChrW("1575") & ChrW("32") & ChrW("1576") & ChrW("1603") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("1578") & ChrW("1583") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1603") & ChrW("1587") & ChrW("1587") وان كان السطر طويل جدا ممكن تقسيمة الى عدة اسطر بتلك الطريقة strMsgTr7ib = ChrW("1575") & ChrW("1607") & ChrW("1604") & ChrW("1575") & ChrW("32") & ChrW("1576") & _ ChrW("1603") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1605") & _ ChrW("1606") & ChrW("1578") & ChrW("1583") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & _ ChrW("1571") & ChrW("1603") & ChrW("1587") & ChrW("1587") وهذا مثال للتجربة واسم القاعدة Use Of Unicode in VBA Converter Arabic and Unicode (v. 3).accdb Use Of Unicode in VBA.accdb

الصح اللى قلت لك عليه لأن كل ما تريد ارسال قاعدة لغيرك لو لم تكن اعدادات اللغة مضبوطة سوف يقع فريسة لتلك الرسالة

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

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

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

اولا هذا منتدى الاكسس وليس الاكسل ولكن على كل حال اليك الحل وينقل الموضوع الى جيران الهنا فى منتدى الاكسل وعذرا ان لم استخدم الدوال بشكل صحيح او ان كان هناك اختصار للحل بطريقة افضل انا لا اعلم اى شئ عن الاكسل تقريبا تلك المرة الاولى التى احاول فيها التعامل مع ملفات الاكسل ولكن بحثت على الانترنت وهذا تطبيق طويلب علم مجتهد لذلك ارجو السماح وعلى الله حد يتريق على الحل اللهم انى ناوى اصوم رمضان هاهاهاهاهاها للعلم استخدمت الدالة SUMIF لحساب اجمالى المنتجات للمندوب والدالة SUMIFS لحساب اجمالى المنتج المطلوب استثناءه ثم قمت بعمل طرح اجمالى المنتج المطلوب استثناءه من اجمالى المنتجات للمندوب للحصول على النتيجة المرجو الوصول اليها كل عام وانتم بخيــــــــر Book1.xlsx

العفو ي جميل يا ميت مليون هلا وغلا بيك بس ياريت تختر افضل اجابة لو تكرمت

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

اولا يا دكتور @SEMO.Pa3xجزاكم الله خيرا ولكن عنوان الموضوع النسخة الثانية من اداة رفع الملفات الى Google Drive ولكن بالحقيقة الكود يرفع نسخة احتياطية من قاعدة البيانات فقط هل يمكن تعديل جديد ليتم عمل استعراض للملفات المختلفة من الحاسوب مع امكانية اختيار اكثر من ملف لرفعهم بنفس الالية من خلال قاعدة بيانات ويا سلام لو هناك اختيارت على نموذج استعراض الملفات قبل الرفع على الدرايف مثل رفع كل ملف على حدة او جمعهم فى ملف ارشيف و امكانية تشفير ملف الارشيف برقم سرى او عدم التشفير نظريا ممكن عمل ذلك من خلال احضار مسار الملفات من خلال زر الامر الذى يقوم باستعراض الملفات وحفظ المسارات فى جدول وعمل لوب لرفع كل ملف ولكن عمليا هل ممكن تحقيق ذلك..... مجرد فكرة وعندما يسمح وقتى سوف احاول تطبيقها وان سبقتمونى فجزاكم الله خيرا

شئ من اثنان لا ثالث لهما اما انا لم استطع الفهم او ان الاجابة بالفعل موجودة فى الحقل المحسوب الشهر برجاء التوضيح