كل الانشطه

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

الخبراء الافاضل بعد التحية توجد هذة الصور داخل القاعدة على الرغم من حذفها سابقا اريد التخلص منها تماما ولا تظهر فى الفولدر غير الصور الموجودة بالفعل LAB_2024-1.rar

السلام عليكم لدي جدول الرواتب ولدي اسم الموظف واحيانا يكون الاستلام باسم شخص وكيل بسبب غياب الموظف يوجد عمود فيه اسم الوكيل اذا كان العمود ضمن السطر فارغا فناخذ اسم الموظف اما اذا كان يوجد اسم في عامود ايسم الوكيل فناخذ اسم الوكيل بدلا من اسم الموظف ولكم جزيل الشكر للمساعدة ارفق ملف توضيحي SALARY.xlsx

تم تعديل الملف New Microsoft Access Database.accdb

تمام تسلم علي الفكرة يا غااي

الملف غير كامل كي نساعد !!!!!!!!!!!!!!!

بارك الله فيك أخي الكريم بعد أن أضفت (المجمع) لقائمة الكتب كانت النتائج الخاطئة = 0 وجربت الكود على المجموعة القديمة التي بدأت بها هذا الموضوع وكانت النتائج الخاطئة = 0 وهذه نتيجة مبشرة بحمد الله وأنا الآن لدي بعض الأشغال خارج البيت ولا مجال للتجارب على الملفات الكبيرة الآن ولكن هل يساعد أن أعطيك قائمة بأسماء الكتب أنا عندي قائمة منفصلة بأسماء الكتب .. فيها أكثر (360) كتابا إلى الآن !! .. وهي في الملف المرفق BOOKSLIST.accdb

وعليكم السلام ورحمة الله وبركاته تفضل لعله المطلوب نقل المبلغ.xlsx

أخي الكريم إجابةً علي هل هناك طرق أخري فحسب معلوماتي يوجد طريقة أخري عني طريق تحديد أنماط للبحث داخل النص باستخدام (regEx) ولكن فيما يتناسب مع الحالات التي قد ترد هو المسار المختار الان ونسأل الله التوفيق لماذا ؟ لان المشكلة الحقيقية ليست البحث داخل النص عن أسم الكتاب ومقطع أخر المشكلة ان المقطع الأخر قد يرد قبله اسم كتاب اخر ولذا هداني الله لهذه الطريقة ان نقوم بتحديد النص المراد عن طريق الحدود وهي اسم الكتاب ورقم البحث ومن ثم إذا كانت نتيجة التصفية 1 فلا يوجد مشكلة وهنا تطابق 100% اما اذا كانت أكثر نقوم بالبحث داخل هذه النتائج فإن كان هناك اسم كتاب أخر بين اسم الكتاب والرقم فهذا يعني بان الرقم يخص الكتاب الأخر فنستبعد هذا الاحتمال ولذلك من المهم جداً ان تعرض جميع الحالات الممكنة حتي يتم مراعاتها كما يمكن ان نقوم بأكثر من عملية للوصول إلي أوثق نتيجة بإذن الله والاضافة الحالية التي قد تساعدك ان نقوم بإضافة عمود نضع فيه عدد النتائج التي ظهرت في التصفية وعمود أخر نجمع في ارقام الـ MNO الخاصة بهذه النتائج حتي نقلص وقت المراجعة

تفضل استاذ @hamadbin3ysh حسب مافهمت . واذا لم يكن هذا طلبك وضح أكثر من فضلك . Database20-1.rar

استاذنا ومعلمنا @ابوخليل هذا ما تعلمناه منكم ( اثلجتم صدري) . اشكركم وحياكم الله وأنا منايا مقابلة شخصكم الكريم . والشكر موصول ايضا لأستاذنا ومعلمنا @Moosak لتفاعله .

ايش هذا .. غير معقول !!!! الفكر .. انا اتكلم عن الفكرة تحية لفكرك الراقي ... حتى لو انت شيبة .. يبقى الابداع اكبر من الصح ومن اي تقييم ........ اتمنى ازور البحرين واقابلك

جزاك الله خير المطلوب وزيادة شكرا لك

بعد توجيهات أستاذنا @ابوخليل تفضل استاذ @zero1111330566 محاولتي حسب مافهمت اليك الشرح والمرفق . ووافني بالرد . الاصناف_1.rar

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

أخي الكريم تم عمل التعديل كالتالي 1- تقوم الوظيفة بقص النص الأساسي الي مقطع ما بين اسم الكتاب واخر رقم يطابق الرقم الخاص بالبحث 2- وهو خطوة مهم جداً يجب ان تحتوي قاعدة البيانات التي سوف تعم عليها جميع أسماء الكتب لاننا سنضعها داخل كولكشين ونبدأ بعمل التالي الان لدينا النص الذي نريد البحث بداخله ولدينا جميع اسماء الكتب فحتي اتبين ان الرقم يخص الكتاب الخاص بالبحث وليس كتاب اخر سوف اقوم باستبدال جميع اسماء الكتب الاخرى بكلمة محددة حتي اتمكن من عدها لاحقاً إذا وقعت بين الكتاب الاساس في البحث والرقم الخاص بالبحث ومن ثم اقم بالعدد فمثلاً في هذه الحالة عندما أضفت اسم الكتاب الفوائد المعللة لأبي زرعة الي الجدول BOOKS أصبحت النتيجة صحيحة وهنا إذا اضفنا المجمع لقائمة الكتب ستصبح النتيجة صحيحة وهكذا ،،، تم إضافة هذا الجزء حتي يقوم بمقارنة النتيجة بالرقم mnox ويقوم بعمل select1 true or false If CStr(Nz(!MNO, "")) = CStr(Nz(!MNOX, "")) Then !select1 = True Else !select1 = False End If أتمني ان يقوم هذا بالمطلوب وكما أخبرتك سابقاً يفضل إضافة مثال يحتوي علي كل او معظم الحالات حتي نتمكن من وضع تصور يسمح بالتعامل مع أغلب الحالات قدر المستطاع وفقك الله وحفظك بانتظار التجربة علي ملف يحتوي علي عدد كبير ويفضل ان يحتوي علي جميع أسماء الكتب Smart_Search_New02.accdb

السلام عليكم ورحمة الله أعتقد جازما أن المشكل يكمن في أنك تعمل في نسخة إكسيل 2007 (حسب الصورة) وفي هذه النسخة تحدث الكثير من المشاكل وخاصة بالنسبة للملفات التي تحتوي أكواد VBA والتي لا تتوافق كثيرا مع النسخ المتقدمة... والملف يعمل جيدا عندي تحت نسخة أوفيس 2019... والله أعلم

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

عندى ريبورت جواه SUB REPORT مصدر الصب ريبورت متغير بناء على اكتر من قيمه من احد الجداول سؤالى الصب ريبورت دا فى التصميم هيكون العرض بتاعه صفر عايزه عند فتح التقرير الرئيسى الصب ريبورت يفتح بالحجم الاصلى بتاعه لانه لو فضل صفر مش هيبان فى التقرير دا مثال ممكن يوضح فكرتى الصب ريبورت موجود فى PAGE HEADER New Microsoft Access Database.accdb

وعليكم السلام ورحمة الله تعالى وبركاته Option Compare Text Dim depart, Cnt, comment, f, ColSearch(), J Public Property Get WS() As Worksheet: Set WS = ActiveSheet End Property Private Sub UserForm_Initialize() Dim arr() comment = " تحديد ورقة العمل" Me.Label1.Width = 900 depart = Me.Label1.Left Message = " برنامج المخازن يرحب بكم . صل على محمد" Me.Label1.Caption = "**********" & Message & "**********" & Message & "************" Cnt = Len(Me.Label1.Caption): Me.ComboBox1 = comment ColSearch = Array(3, 2, 1) J = UBound(ColSearch) + 1 For i = 1 To 3: Me("head" & i).Visible = False: Next i k = 1 For Each sh In ActiveWorkbook.Sheets If sh.Cells(3, 3) <> Empty Then ReDim Preserve arr(1 To k) arr(k) = sh.Name k = k + 1 End If Next sh Me.ComboBox1.List = arr Me.ComboBox1.ListIndex = 0 Count.Caption = ListBox1.ListCount Me.ComboBox1 = comment End Sub '*************************************** Private Sub Textbox1_Change() r = "*" & Me.Textbox1 & "*" Dim Cpt(): n = 0 For i = 1 To UBound(f) If f(i, 1) Like r Then ' فلترة بالاسم عمود (1) n = n + 1: ReDim Preserve Cpt(1 To J, 1 To n) c = 0 For Each k In ColSearch c = c + 1: Cpt(c, n) = f(i, k) Next k End If Next i If n > 0 Then Me.ListBox1.Column = Cpt Else Me.ListBox1.Clear Count.Caption = ListBox1.ListCount End Sub '******************************* Private Sub ComboBox1_Change() On Error Resume Next Sheets(CStr(ComboBox1)).Activate f = WS.Range("A3:C" & WS.[a65000].End(xlUp).Row).Value If Me.ComboBox1 <> comment And WS.Cells(3, 3) <> "" Then For i = 1 To 3: Me("Hard" & i).Visible = True: Next i Set d = CreateObject("Scripting.Dictionary") For i = LBound(f) To UBound(f) If f(i, 1) <> "" Then d(i) = Array(f(i, 3), f(i, 2), f(i, 1)) Next i n = d.Count If n > 0 Then Dim Cpt: Cpt = Application.Transpose(d.items) ReDim Preserve Cpt(1 To 3, 1 To n + 1) Me.ListBox1.List = Application.Transpose(Cpt) Me.ListBox1.RemoveItem n For i = 1 To 3: Me("Hard" & i) = WS.Cells(2, i): Next i Count.Caption = ListBox1.ListCount End If End If End Sub يوزر فورم3.xlsb

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

في فكرة تانية جت فدماغي دلوقتي ان شاء الله الفكرة دي هتضمنلك نتيجة 100% بإذن الله 1- عايزين نحذف ما قبل اسم الكتاب وما بعد الرقم 2- الجزء المتبقي معانا هيبقي فيه احتمالين - ان يكون في اسم كتاب تاني - او مفيهوش وفالحالة دي احنا ناخد اللي مافيهوش اسم كتاب تاني وده هشان نحل مشكلة الارقام اللي بتيجي فمواضع متاخرة يبقي احنا دلوقتي هنروح نضيف اسماء الكتب في كولكشين ونمنع التقرار وبعدين نعمل لوب كولكشين دي جوة نتيجة البحث اذ كان في حاجه فيهم موجودة بين اسم الكتاب والرقم معنا كدا ان الرقم ده خاص بالكتاب اللي موجود في الكولكشين فنستبعد النتيجة دي إن شاء الله هتظبط وهتدعيلي

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

دلوقتي عملت تعديل بعد حذف الجزء ما قبل اسم الكتب والبحث عن الرقم في الجزء المتبقي ظهرت الحالة التالية فمحاولتي الان هي ان يتم التميز بين النتائج واختيار الرقم الأقرب لأسم الكتاب هذه هي الفكرة التي أعمل عليها الان حتي نتأكد من اختيار الناتج الصحيح ولكن عندي سؤال هل دائماً نبحث عن الرقم لو قد نبحث عن 73/2

سلام عليكم سادة الاعضاء كيف حالكم اتمنى ان تكونوا في احسن حال ان شاء الله عندي مشكلة في برنامج عملته بالاكسال في اغلب الاحيان عندما اريد تسحيل العمل تخرج لي رسالة التي في الصورة 1 ولما اسجل تاتي مثل ماهو موضح في الصور وفي الاخير اجد انه لم يسجل العمل الذي قمت به ويعيدني الى وضع السابق فهل له علاقة بكثرة المعادلات والاكواد ارجو ات اجد عندكم الجواب لان البرنامج مهم جدا لي etat.rar