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

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

بعد اذن الاستاذ حسين تجد البيانات في شيت salim ربما يفيدك هذا الكود(دائما وابدً اسماء الشيتات باللغة الاجنبية لحسن نسخ الكود ولصقه) Option Explicit Sub extract_data() Dim M As Worksheet, S As Worksheet Dim Rg_M As Range, Rg_S As Range Dim i#, Ro_M#, RoS#, col%, f#: f = 4 Dim My_data, Find_rg Set M = Sheets("Main"): Set S = Sheets("Salim") Set Rg_S = S.Range("A3").CurrentRegion RoS = Rg_S.Rows.Count If RoS > 1 Then Rg_S.Offset(1).Resize(RoS - 1).Clear col = S.Cells(1, Columns.Count).End(1).Column My_data = _ Application.Transpose(Application.Transpose(S.Cells(1, 1).Resize(, col))) Set Rg_M = M.Range("A1").CurrentRegion Ro_M = Rg_M.Rows.Count Set Rg_M = Rg_M.Offset(1).Resize(Ro_M - 1) For i = 1 To Rg_M.Rows.Count If Not IsError(Application.Match(Rg_M.Cells(i, 1), My_data, 0)) Then S.Cells(f, 1).Resize(, 9).Value = _ Rg_M.Cells(i, 1).Resize(, 9).Value f = f + 1 End If Next If f > 4 Then With S.Range("A4").Resize(f - 4, 9) .WrapText = True .Borders.LineStyle = 1 .VerticalAlignment = 2 .InsertIndent 1 End With End If End Sub الملف مرفق مع زر لتنفيذ الكود Repoort_sal.xlsm

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

للببيانات الكبيرة جداً (اكثر من 1000 صف )الماكرو يستهلك الكثير من الوقت لذلك انصح لمثل هذه الحالة هذا الماكرو Option Explicit Sub extract_BY_ADV_FILTER() Dim M As Worksheet, S As Worksheet Dim Rg_M As Range, Rg_S As Range Dim i#, RoS#, col% Dim My_data Set M = Sheets("Main"): Set S = Sheets("Salim1") Set Rg_S = S.Range("A4").CurrentRegion Set Rg_M = M.Range("A1").CurrentRegion RoS = Rg_S.Rows.Count If RoS > 1 Then Rg_S.Offset(1).Resize(RoS - 1).Clear col = S.Cells(1, Columns.Count).End(1).Column My_data = _ Application.Transpose(Application.Transpose(S.Cells(1, 1) _ .Resize(, col))) S.Range("MM2") = Sheets("Main").Cells(1, 1) S.Range("MM3").Resize(col) = Application.Transpose(My_data) Rg_M.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=S.Range("MM2").CurrentRegion, _ CopyToRange:=S.Range("A4").Resize(, 9) S.Range("MM2").CurrentRegion.Clear End Sub الصفحة Salim1 من هذا الملف Repoort_sal_by_ad filter.xlsm

يمكنك الاطلاع على هذا الرابط

اتفضل PhotoF.zip

جرب هذا الملف My_Book2.xls

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

السلام عليكم مع أن طلبكم لا يزال غامضاً لدي هذا النموذج فيه تطبيق الكود الذي يمنع ظهور الخطأ ويسمح بالبحث عن الأسماء بعلامة الاقتباس المفردة. EDIT.accdb

كيف يمكن تعبئة جدول مرتيب ابجديا فقط من خلال الكتابة في الصف رقم 2 للمزيد انظر الى هذا الملف WRITE_JUST IN ROW_2.xlsm

اسهل حل عملته لك وهو كما اشار اخى واستاذى @kha9009lid بالرابط السابق بعمل المفتاح الاساسى على جميع الحقول وتم الحاق السجلات هل هذا ما تريد ام شىء آخر تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق New folder.rar

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

نعم ممكن هنا المزايا الجديدة لا اعتقد انك تحتاج الى انتقال للاصدار الاحدث الا اذا كنت تحتاج الى المزايا الجديدة في الاصدارات الحديثة علما بان الكثير من المستخدمين يفضلون الاصدار 2003 مع الاحاطة ان بعض المزايا الجديدة مثل رقم كبير عندما تستخدمها لن تعمل قاعدتك على الاصدارات الاقدم من اصدارات 2016 المحدث و 2019 و365

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

استاذى العزيز واخى الحبيب الاستاذ Khalf انها طريقتكم

السلام عليكم استبدل علامة الاقتباس المفردة بعلامتي اقتباس مفردة ، وليس بعلامة اقتباس مزدوجة واحدة. اجعل الفانكشن بالصورة التالية < RQ = Replace (Stro,"'",",,") > أعتذر فأنا أكتب من الموبايل الشكر للأستاذ أبو جودي لعل في مرفقه طريقة أخرى.

السلام عليكم @عماد محمد عبد العزيز بالنسبة لمعيار الحقل [ Material Type ] لااعرف سوى الطريقة التي شرحتها لك سابقا استخدام العبارة DISTINCT التي توضع بعد كلمة SELECT في جملة SQL للحصول على قيمٍ فريدةٍ غير مكررة اخي افتح الاستعلام الخاص بك في طريقة عرض SQL جرب ان تضع هذه الكلمة في مكانها واعلمنا النتائج SELECT DISTINCT [الاسم الكامل] FROM table1; تحياتي

الاخ الفاضل / @Muhammad Gamal اعتقد يتم هذا لو قمنا بتقسيم قاعدة البيانات عن طريق الادوات وقسمنا القاعدة الى قاعدة امامية وقاعدة خلفية

السلام عليكم اخي العزيز @عماد محمد عبد العزيز اسهل طريقة هي عمل ذلك عن طريق التنسيق الشرطي ضع الكود التالي في التعبير DCount("[M P R]";"[ben]";"[M P R] = [Person in charge] ")>=2 تفضل الملف بعد التعديل تحياتي PRODUCT.rar

الدرس الرابع من تعليم الاكسيل بعد اعاده التحميل ورابط الفيديو https://youtu.be/SAeTKOqItOQ ورابط الشرح من المرفقات الدرس الرابع.xlsx

وعليكم السلام اجعل الحقل فالجدول رقم وفالنموذج الفرعى فى حدث فالحالى Me.Id.Value = CurrentRecord غير Id لاسم الحقل

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

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

الله يوفقك ويسعدك اخوي حسين

تقرير 8.xlsm

جزاكم الله

وعليكم السلام اخى رجاء وليس امر ضع مثال لما لديك بعد ذلك على ما فهمت منك فى النموذج الفرعى فى قسم الاحداث يوجد حدث لديك اسم بعد الادراج ادخل عليه وضع به Private Sub Form_AfterInsert() Me.Requery End Sub والله اعلى واعلم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

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

اشكرك اخوي حسين لكن الطريقة اللي عملتها انت لابد اختار الرمز من بين تقريبا 2000 رمز وهذي متعبه لأن البيانات ضخمة انا مثلا اريد ادخال (كتابة) 4 او 5 رموز دفعة واحدة ويسترجع لي بياناتها مثلا حقل او عدة حقول اكتب فيها الرموز وتظهر لي بياناتها اكرر الشكر لك اخوي حسين

بعد اذن استاذي سليم جرب المرفق تمنى ان يكون ما تتمناه تقرير.xlsm

وعليكم السلام ورحمة الله وبركاته تابع الموضوع التالي :: بالتوفيق::

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

الف شكر استاذ محمد اليكم الدرس الخامس بعد اعادة التحميل https://youtu.be/D6jU0UGZGV0 وملف الشرح بالمرفقات الدرس الخامس لشرح الاكسيل.xlsm

جزاكم الله كل خير،وبارك الله بكم. يبدو أنها الطريقة الوحيدة.

اخي العزيز في قاعدة بيانات mdb فقط يمكنك استخدام الكائن OLE لارفاق الملفات داخل قاعدة البيانات انظر لتعليمات مايكروسوفت تحياتي

السلام عليكم 1-ممكن عن طريق ملف- حفظ ونشر- انشاء ACCDE - ثم حفظ باسم 2- ممكن التحويل برمجيا تحياتي

باستعمال تقنية البحث في المنتدى ستجد ما يفيدك حول الموضوع مثل هذا ترحيل من الاكسيل الى الوورد vba

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

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

مرحبا لا يمكن جمع الحقول النصية وللتغلب على ذلك يمكن عملها بعدة طرق ومن اسهل الطرق ان نقوم بعمل اربع مربعات نص غير منظمة مخفية في المربع الاول نضع التعبير التالي =IIf(IsNull([Worker01]);0;1) اي اننا نقول اذا كان الحقل Worker01 فارغ يكون قيمة المربع المخفي يساوي 0 وان كان Worker01 غير فارغ المربع المخفي يساوي 1 وهكذا لباقي الحقول ثم في خانة المربع الخاص بالمجموع نجمع المربعات المخفية [t29]+[t40]+[t41]+[t42] جرب المرفق Database510.accdb

أستاذ Muhammad Gamal أين الضغط على الإعجاب ؟!1💙

السلام عليكم في المرفق وضعت طريقتين باستخدام: 1- الاستعلام 2- باستخدام جدول المجاميع. أرجو أن تجد بهما بغيتك، في حال لم تجد مطلبك بعد. ملاحظة في حال رغبتكم باستخدام جدول المجاميع ينبغي لحظ حالة تعديل الإيصالات - لم يتضمنها مرفقكم -. برنامج القرض مجاميع.accdb

اخى / @alix24028 المشكلة كانت بسيطة جدا وهى في النموذج الفرعى فى الحقل Device_Name هذا الحقل يقرأ بياناته من نموذج فرعى فقط ولكن الان بعد وضعه في نموذج رئيسى يلزم ان يقرا من الرئيسى ثم الفرعى غيرت فى استعلام الحقل نفسه واضفت له اسم النموذج الرئيسى orderf

تفضل كود لأحد اساتذة هذا المنتدي الجميل فواتير٣٣٣.xlsm

تم معالجة الامر مع بعض التحسينات على الكود Option Explicit Sub ABSCENT_EXTRA() Application.Calculation = xlCalculationManual Dim K As Worksheet, A As Worksheet Dim Ro_K%, col%, NUM%, Ro_A%, x%, i%, m%, t%: t = 1 Dim ALL$, ALPHA$, Str$: Str = "غ" ALL$ = " ": ALPHA = " " Set K = Sheets("keab"): Set A = Sheets("arhkeab") Ro_K = K.Cells(Rows.Count, 2).End(3).Row If Ro_K < 5 Then Exit Sub Ro_A = A.Cells(Rows.Count, 2).End(3).Row m = IIf(Ro_A < 5, 5, Ro_A + 1) NUM = m For i = 5 To Ro_K If Application.CountIf(K.Cells(i, 6).Resize(1, 31), Str) = 0 Then _ GoTo My_next A.Cells(m, 2).Resize(, 2).Value = _ K.Cells(i, 2).Resize(, 2).Value For col = 36 To 6 Step -1 If K.Cells(i, col) = Str Then ALL = ALL & col - 5 & "-" End If Next col For col = 6 To 36 If K.Cells(i, col) = Str Then ALPHA = ALPHA & K.Cells(3, col) & "-" t = t + 1 End If Next col If t > 1 Then With A.Cells(m, 4) .Value = Mid(ALL, 1, Len(ALL) - 1) .Offset(, 1) = Mid(ALPHA, 1, Len(ALPHA) - 1) .Offset(, 2) = t - 1 .Offset(, 3) = K.Cells(2, "T") .Offset(, 4) = Year(Date) End With m = m + 1 End If My_next: t = 1 ALL = " ": ALPHA = " " x = x + 1 Next i With A.Range("b" & NUM).Resize(x, 7) .ClearFormats .InsertIndent 1 .Borders.LineStyle = 1 End With Application.Calculation = xlCalculationAutomatic End Sub Tarhil_3iyab (3).xlsm

انا لم اقل انك انت من كتب الكود حتى و لو لم اكن انا من وضع الكود (أي شخص اخر) يجب ان تذكر صاحبه

السلام عليكم , لكل اساتذتنا الاجلاء عندى ملف مرفق به حقل باسم ( M P R ) داخل نموذج باسم PR1 اريد عندما ادخل بيان متكرر داخل هذا الحقل يصبح لون الخلية المتكررة بخلفية حمراء وخط ابيض وجزاكم الله خيرا PRODUCT.mdb

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

السلام عليكم ورحمه الله وبركاته الصلاه والسلام على معلم الامه سيدنا محمد صل الله عليه وسلم كنت اهم منذ اسبوع على ان اقدم هذا الدرس واحاول ان اجعله بشكل بسيط وميسر واليوم وانا ابحث عن مثال لاحد الاخوه وجدت هذا المثال بشرح فيديو ارفقه لكم واسال الله العلى القدير ان تنتفعوا به وجزاه الله خيرا صاحب الشرح الاخ العزيز hamidymom من موقع الفريق العربى للبرمجه هذا الرابط الموضوع ايضا http://arabteam2000-forum.com/index.php?/topic/215278-شرح-مفصل-عن-كيفية-صنع-قوائم-جميلة-باستخدام-ال-activex/ ورابط الايقونات بالموضوع ايضا https://www.axialis.com/free/icons/ فلم اجد فى نفسى شرح اجمل واوفى من ذلك ورايت نشره للاستفاده والدعاء لاخينا hamidymom جزاه الله خيرا وجميع اخواننا واساتذتنا الذين تعلمنا ونتعلم منهم تقبلوا تحياتى وتمنياتى لكم جميعا بالتوفيق Toolbars.rar