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

السلام عليكم 🙂 زميلنا واخونا @ابو جودي بالاضافة الى كونه خبير ، اصبح احد اعضاء فريق عمل الموقع 🙂 1. شاركونا في تهنئته ، 2. وخلينا نساعده في مهمته الجديدة 🙂 ابو جودي ، اهلا وسهلا بك معنا مرة اخرى 🙂 جعفر

السلام عليكم ورحمة الله اليك الملف جاهز كل ماعليك الضغط على الزر المكتوب عليه "اضغط للترحيل" فى ورقة data توزيع معدات واصناف علي شركات.xlsm

السلام عليكم ورحمة الله استخدم هذا الكود Sub DistData() Dim ws As Worksheet, Sh As Worksheet Dim i As Long, p As Long, j As Long, LR As Long Dim Arr As Variant, Tmp As Variant Set ws = Sheets("data") Arr = ws.Range("A5:H" & ws.Range("B" & Rows.Count).End(3).Row).Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For Each Sh In Worksheets If Sh.Name <> ws.Name Then For i = 1 To UBound(Arr, 1) If Sh.Name = Arr(i, 6) Then p = p + 1 For j = 1 To 7 Tmp(p, j) = Arr(i, Choose(j, 1, 2, 3, 4, 6, 7, 8)) Next End If Next End If If p > 0 Then Sh.Range("A5").Resize(p, UBound(Tmp, 2)).Value = Tmp p = 0 Next End Sub

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

انا عملته طبقا للصيغة الموجودة فعلا في الجدول وهذه الصيغة هي السائدة ، واستخدم التنسيق ( من اليمين الى اليسار ) في الواجهات

مع ان الاولى تغيير حقل الهجري الى نص من اجل تجاوز التعارض مع الاشهر الشمسية الناقصة ولكن عند التحويل الى نص نفقد كثير من الخصائص التي تجرى على حقول التاريخ مشكلتك الحقيقة اخ عمر ان التاريخ الهجري يتم ادراجه في الجدول من اليسار الى اليمين والكود يقرأ من اليمين الى اليسار جرب لا تغير الحقل الى نصي بل اتركه كما هو واستبدل الكود بهذا Me.date_m = Um2Greg(Left(date_h, 2), Mid(date_h, 4, 2), Right(date_h, 4))

لما تكون عندي معادلة بهذا التعقيد ، على طول وبدون تفكير ، اعمل وحدة نمطية واضع فيها المعادلة بطريقة مبسطة وبعدة اسطر ، ثم اناديها من الاستعلام 🙂 ننادي الدالة fOver_Time في الوحدة النمطية ، ونرسل لها البيانات المطلوبة OverTime: fOver_Time([ThisDay], [Dwam_Start], [Dwam_End], [txtStanderTimeOut1], [txtStanderTimeOut2]) . وهذه هي الدالة fOver_Time ، والتي يمكن تعديلها ببساطة : Public Function fOver_Time(TD, DS, DE, STO1, STO2) 'TD = [ThisDay] 'DS = [Dwam_Start] 'DE = [Dwam_End] 'STO1 = [txtStanderTimeOut1] 'STO2 = [txtStanderTimeOut2] If TD = "Friday" Then fOver_Time = DateDiff("n", DS, DE) \ 60 & ":" & DateDiff("n", DS, DE) Mod 60 ElseIf TD = "Thursday" Then fOver_Time = DateDiff("n", STO2, DE) \ 60 & ":" & DateDiff("n", STO2, DE) Mod 60 ElseIf TD <> "Friday" Or TD <> "Thursday" Then fOver_Time = DateDiff("n", STO1, DE) \ 60 & ":" & DateDiff("n", STO1, DE) Mod 60 End If End Function . جعفر

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

عدلها بهذا الشكل ... If ComPlat.Value = "Twitter" And Me.comType = "Click" Then TargetPlas.Value = [Forms]![PlatPrice]![NP1] * 0.5 ولكن .... ملاحظة يجب ان يكون النموذجين مفتوحين ......!!!!!!!

السلام عليكم من تجربتي ، وبسبب اختلاف اعدادات الوندوز ولغاته ، توصلت لعمل جدول خاص للاشهر tbl_Months ، ممكن اعدادات الوندوز تظهر الشهر بصيغة December ، او ديسمبر ، او كانون الاول . . ولكنك تريد ان يظهر عندك الشهر بأحد هذه الصيغ ، بغض النظر نظام اي كمبيوتر يعمل عليه برنامجك ، فيمكنك قراءة الطريقة التي تريدها من الجدول ، كما هو واضح في المثال . وهذا الكود كمثال فقط ، عن طريقة مناداة الحقول من الجدول: Private Sub myDate_AfterUpdate() 'display the dates based on the system setting Me.Date_1_System = Format(Me.myDate, "dddd dd/mm/yyyy") Me.Date_2_System = Format(Me.myDate, "dddd dd, mmm yyyy") Me.Day_System = Format(Me.myDate, "dddd") Me.Month_System = Format(Me.myDate, "mmmm") ' 'use the following Functions to get the integer number of: 'Today= 22 December 2017 'Day(Today) = 22 'Weekday(Today) = 6 'Friday 'Month(Today) = 12 'December 'Year(Today) = 2017 ' Me.Day_table_Arabic = DLookup("[Days_Arabic]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Day_table_English = DLookup("[Days_English]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Month_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = Day(Me.myDate) & " " & Me.Date_Table_Georgian & " " & Year(Me.myDate) Me.Date_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Iraqi = Day(Me.myDate) & " " & Me.Date_Table_Iraqi & " " & Year(Me.myDate) Me.Date_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_English = Day(Me.myDate) & " " & Me.Date_Table_English & " " & Year(Me.myDate) End Sub وبعدها توسعت في الجدول واستفدت منه لأشياء اخرى جعفر tbl_Months.mdb.zip

انظر الى نوع حقل التاريخ الهجري في الجدول 🙂 الدالة UmDate_AfterUpdate هي المسؤولة عن طريقة عرض التاريخ ، فاذا اردت تغيير التنسيق ، فلا انصحك ان تغير في الدالة اعلاه ، ولكن خلينا نغير نتيجة الدالة: Private Sub date_h_AfterUpdate() UmDate_AfterUpdate If Not IsNull(date_h) Then 'Debug.Print Right(date_h, 2) 'Debug.Print Mid(date_h, 6, 2) 'Debug.Print Left(date_h, 4) Me.date_m = Um2Greg(Right(date_h, 2), Mid(date_h, 6, 2), Left(date_h, 4)) ''Me.date_m = Um2Greg(Right(date_h, 4), Mid(date_h, 6, 2), Left(date_h, 2)) 'Me.t_day = Format(Me.date_m, "dddd") Me.date_h = Right(Me.date_h, 2) & "/" & Mid(Me.date_h, 6, 2) & "/" & Mid(Me.date_h, 1, 4) '<== هذا السطر الاضافي لتغيير التنسيق End If End Sub . جعفر

المفروض ان تظهر لك ارقام فقط ، لهذا السبب تحصل على خطأ عندما تنادي الدالة Um2Greg !! في الواقع المشكلة عندك في الجدول ، حيث ان حقل IqamaExpDateH هو تاريخ ، بينما يجب ان يكون نص . وبالتالي يتم حذف الاشارة الى ان الحقل تاريخ (احذف Short Date) . . وبعدها شوف النتائج 🙂 جعفر

السلام عليكم 🙂 يجب ان نرى ما يراه الكمبيوتر ، ثم نتخذ قرار التصحيح ، اضف الاسطر الثلاثة في الكود ، ثم انظر في اسفل صفحة الكود immediate windows ، واخبرنا النتيجة: Private Sub date_h_AfterUpdate() UmDate_AfterUpdate If Not IsNull(date_h) Then Debug.Print Right(date_h, 2) Debug.Print Mid(date_h, 6, 2) Debug.Print Left(date_h, 4) Me.date_m = Um2Greg(Right(date_h, 2), Mid(date_h, 6, 2), Left(date_h, 4)) ''Me.date_m = Um2Greg(Right(date_h, 4), Mid(date_h, 6, 2), Left(date_h, 2)) 'Me.t_day = Format(Me.date_m, "dddd") End If End Sub . . جعفر

حينما ادخل التاريخ الميلادي لاتحدث مشكلة

استاذ عمر ... هناك مشاركات كثيرة لاستاذنا العزيز @jjafferr وهي مفيدة جدا .. وان اصبح لي الوقت اجمعها لفائدة الجميع لكني اصبح كسولا في بعض الاحيان لان البرمجة عندي هواية وليس مصدر للكسب

طبعا استاذ عمر.. الاستعلام اسرع من حلقة الدوران الحمد لله ان حليت مشكلتك

اخي عمر هذه تجربتي في البرنامج ، ومع روزنامة الوندوز: 1-1-2020 . 1-1-2021 . 1-1-2022 . جعفر

انا شغال معاي تمام

الف مبروك والله ربنا يكرمك يارب ويعينك على مهامك يارب كل تقديري واحترامي لك اخي الكريم

وعليكم السلام ورحمة الله وبركاته ضع هذه المعادله في العامود j واسحب المعادله لاسفل =If(D2="نقدى";H2;G2+H2) وان شاء الله تفي بالمطلوب

السلم عليكم .. مبارك عليكم يا ابو جودى الله يعينك على المسئوليات الجديدة .

مبارك علينا وعليك التميز والاضافة للمنتدى .... اعانك الله على المهام الجديدة ...

الف مبروك @ابو جودي ومبروك علينا اسره واعضاء اوفيسنا 💐🌹 واسال الله تعالى ان يعينك ع هذه المسؤليه الجديده وانت لها ان شاء الله

السلام عليكم ورحمة الله وبركاته من لم يشكر الناس لم يشكر أخي الحبيب @hassona229 جزاكم الله خيراً على تشجيعكم أسأل الله تعالى أن يحفظ لك ذريتك وأهلك وأن يكلأهم بعنايته ورعايته آمين. تقبل تحياتي العطرة 🙂

السلام عليكم وأسعد الله مسائكم جميعا في مشكلة صغيرة ظهرت عندي عند تغيير اسم قاعدة البيانات يجب تغيير اسمها ايضاً في الملف الدفعي Register حسب ما ذكره استاذنا المبدع ابو جودي ولكن في مرة يتم اغلاق وإعادة فتح قاعدة البيانات يتغير اسمها في الملف الدفعي ويرجع E-Invoicing فهل هذا يؤثر على تشغيل قاعدة البيانات؟

الاستاذ @ahmedhassan1948 شكله نايم ما شاف الحلول الى الان واستاذى القدير ومعلمى الاستاذ @ناقل يبدو انه زعلان لانى لم انقل عنه كما تعودنا

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

انا اقل طالب علم بدات ابو جودى والان ابو جودى وحتى مماتى سوف اضل ابو جودى

الف مبروك ابا جودي اهلا وسهلا اخونا وحبيبنا الغالي

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

ألف مبروك 🌼

ربما يمكنك إظهار القيمة التي تريدها في الحقل الغير منظم لسجلات معينة دون الأخرى بجعل هذه القيمة في جملة شرطية IF مثلا .. بحيث تكون مبنية على قيمة أخرى في حقل منظم في نفس السجل .. مثال : تكون قيمة الحقل الغير منظم هكذا : إذا كان المجموع أكبر من 10 تكتب " مرتفع " وإلا فتكتب "" .. (أي يبقى فارغاً).

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

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

ومشاركة مع اساتذتى الكرام يا استاذ @عبد اللطيف سلوم افتح التصميم ان استطعت واخبرنى ان نجحت My Securty.zip

بالفعل هو المطلوب فشكرا جزيلا اخى الكريم

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

مايكروسوفت اكسل لا يمكن إدراج خلايا جديدة لأنها ستدفع الخلايا غير الفارغة من نهاية ورقة العمل. قد تظهر هذه الخلايا فارغة ولكنها تحتوي على قيم فارغة أو بعض التنسيقات أو الصيغة. احذف عددًا كافيًا من الصفوف أو الأعمدة لإفساح المجال لما تريد إدراجه ثم حاول مرة أخرى. الجواب منقول من موقع إلكتروني:اتبع الرابط: قم بإزالة محتوى وتنسيق الصفوف / الأعمدة غير المستخدمة حدد كافة البيانات التي تم نسخها ابحث عن أداة الحذف في شريط الأدوات. افتح القائمة المنسدلة وحدد حذف التنسيقات. بعد اتباع هذه الخطوات ، يجب أن تكون قادرًا على لصق البيانات دون أي مشاكل أخرى. لتجنب مثل هذه المشاكل ، لا تلصق البيانات في جدول بيانات باستخدام Ctrl + V. بدلاً من ذلك ، قم بما يلي: انقر بزر الماوس الأيمن فوق المنطقة المفتوحة بورقة العمل. حدد لصق خاص. حدد القيم انقر OK القضاء على حماية الخلية يحتوي Excel على ميزة حماية الخلية المضمنة التي تتيح للمستخدم حماية بياناته وورقة العمل الخاصة به. إذا تم تطبيق الحماية على الورقة ، فقد يمنع Excel من إضافة خلايا جديدة للحفاظ على البيانات الموجودة. في هذه الحالة ، قد تؤدي إزالة حماية الخلية إلى حل المشكلة. اضغط على Ctrl + A لتمييز جميع الخلايا في ورقة العمل ، ثم انقر فوق تنسيق في علامة التبويب الصفحة الرئيسية ، ثم تنسيق الخلايا في القائمة المنسدلة. الآن انقر فوق علامة التبويب الأمان وقم بإلغاء تحديد المربع المقفل. انتقل الآن إلى علامة التبويب الإدارة وانقر على حماية الورقة أو حماية المصنف وأدخل كلمة المرور المطلوبة لإلغاء حماية الورقة أو المصنف. احفظ وأغلق الملف وافتحه مرة أخرى ومعرفة ما إذا كان يمكنك إدراج صفوف / أعمدة جديدة. تقصير مسار اسم ملف طويل مسار اسم الملف هو عنوان الملف في Windows. إذا كان مسار اسم الملف في Excel طويلاً جدًا ، فقد يمنع Excel من إضافة خلايا جديدة. في هذه الحالة ، يمكنك حل المشكلة عن طريق حفظ الملف في مكان لا يكون فيه مسار اسم الملف طويلاً للغاية. افتح ملف المشكلة. انقر فوق علامة التبويب ملف ، ثم انقر فوق حفظ باسم في الجزء الأيسر. انتقل الآن إلى الموقع المناسب في مربع الحوار "حفظ باسم" ، ويفضل أن يكون ذلك على سطح المكتب لديك للاختبار. أغلق Excel وافتح الملف المحفوظ في موقع جديد وتحقق من أنه يمكنك إدراج صفوف / أعمدة في ورقة العمل. فك تجميد الأجزاء تتيح لوحات التجميد للمستخدمين الحصول على نتائج أفضل من بياناتهم. إذا كنت تستخدم ميزة Freeze Panels في Excel ، فلن تتمكن من إدراج صفوف وأعمدة جديدة في ورقة العمل. يمكن أن تؤدي إزالة الجليد عن الأجزاء إلى حل المشكلة. انتقل إلى علامة التبويب عرض ، ثم إلغاء تجميد اللوحات. انقر الآن على إلغاء تجميد الأجزاء في القائمة المنسدلة. أحفظ وأغلق الملف. افتح الملف مرة أخرى ومعرفة ما إذا كان يمكنك إدراج صفوف / أعمدة جديدة.

نعم .. طريقة البحث ممتازة، لا سيما وأنه يبحث داخل الـ (comboBox) نفسه وليس عبر مربع نص خارجي، ثم يخرج النتائج مع التغيير أثناء الكتابة وليس بعد التحديث أو عند الخروج أما بخصوص التنقل بين النتائج، فقد تمكنت بفضل الله من حل هذه المشكلة بوضع هذا الكود في حدث (عند مفتاح للأسفل) If KeyCode = 40 And Shift = 0 Or KeyCode = 38 And Shift = 0 Then G = 1 End If مع إضافة بسيطة في أول كود البحث كما في الملف المرفق فأصبح يتنقل بين النتائج باستخدام مفتاحي: للأعلى وللأسفل فأرجو أن يكون تصرفي هو الحل الصحيح ولدي ملاحظة أخرى بخصوص هذا الكود: فهو يبحث عن الحروف حتى لو كانت متتالية في أكثر من كلمة، وبالنسبة لي فالمطلوب البحث عن الحروف متتابعة أو متلاصقة في نفس الكلمة يعني عند طلب البحث عن (زج) تخرج النتائج بهذا الشكل والنتيجة الأخيرة غير مطلوبة بالنسبة لي، ولكنه يبحث عن الحروف المدخلة حتى إذا لم تكن متتابعة في نفس الكلمة، لذلك أخرج النتيجة الأخيرة لأنه وجد حرف (ز) في كلمة (زاهد) ثم وجد حرف (ج) في كلمة (للتجارة) وهذه الطريقة في البحث قد تناسب غيري بل قد تكون بغيته المنشودة، لكن بالنسبة لي فالنتيجة المطلوبة هي وتمكنت بفضل الله من الوصول إليها بعد عدة تجارب ومحاولات في حذف بعض أسطر الكود .. حذفتها من باب التجربة لأني بصراحة لا أعلم ماذا تعني ؟؟ 😅 فلست من أهل الاختصاص وإنما من أهل التجارب والمحاولات 🙂 ونتيجة هذه التجارب في نموذج (Search_combo 2) في نفس الملف المرفق، لعل أحد الإخوة من ذوي الخبرة ينظر فيه ويعطينا رأيه .. لأني عندما طبقت هذا الكود في قاعدة بياناتي واجهتني بعض المشاكل البسيطة في تظليل الكلمة المدخلة في مربع البحث .. فقد تكون هناك طريقة أفضل للوصول للمطلوب: البحث عن الحروف متتابعة في نفس الكلمة Search_inside_Combo X.accdb

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

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

وعليكم السلام-بسيطة وسهلة يمكنك تشغيل هذا الخيار أو إيقاف تشغيله حسب الحاجة عبر القيام بما يلي: انقر فوق ملف >‏ خيارات. في الفئة خيارات متقدمة، ضمن خياراتالتحرير، حدد خانة الاختيار تمكين مقبض التعبئة وسحب الخلية وإسقاطها أو قم بإزالتها.

الحمد لله الذي بنعمته تتم الصالحات

اللأخ الكريم -محمد-حسن-المحمد تحية لكم توضحت الصورة بشكل جيد لك جزيل الشكر و التقدير

السلام عليكم ورحمة الله وبركاته أخي الكريم يمكنك ذلك باستخدام التنسيق الشرطي يرجى الاطلاع على الملف المرفق كما أرجو أن يكون جواباً لسؤالك والسلام عليكم aaxlsx.xlsx

السلام عليكم أخي الكريم @احمد غانم لاحظ أخي الكريم أن الكود يعطيك النتائج كما يلي: 1- النتيجة الموجبة يكتب لك : فقط ........... 2- النتيجة السالبة يكتب: يتبقى لكم ............. 3- القيمة الصفرية يكتب لك : صفر لا أدري ما هو التغيير الذي تطلبه ...يرجى الإيضاح هل تعني مثلاً إن كانت النتيجة سالبة يرجع لك النتيجة صفر أم ماذا؟!.. تقبل تحياتي

تفضل جرب هذا تسيق شرطى معدل1.xlsm

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

كل ما ستحتاجه هو نموذج جديد خاص بالموظفين الذين هم في الأرشيف .. وقد عملته لك .. كان هناك أخطاء في عمل الروابط في عدة نماذج وأصلحتها لك حسب الاستطاعة 🙂 nabilDatabase23.accdb

وعليك السلام ورحمة الله وبركاته الخطوات افتج محرر الاكواد ثم الفورم ثم غير الخاصية كما بالصورة