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

بسم الله والصلاة والسلام على سيدنا رسول الله شرح سهل وبسيط للاخوة المبتدئين في برمجة اكسس حول استعلام التوحيد لطفا شاهدوا الفيدو وطبقوا استعلام توحيد.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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم test1.rar تحياتي ولمعرفة ما تم تعديله تم اضافة استعلام الحاق Query1 تم اضافة حقل في جدول اجمالي الاجرائات باسم معرف_الاجراء تم اضافة استعلام تحديث Query1 تم اضافة حدث للقائمة عند النقر المزدوج للانتقال الى السجل المطلوب تحياتي

السلام عليكم عاين الملف وجربه إن كانت هناك ملاحظات فعلى الرحب والسعة، غداً -إن شاء الله - سأعدل الملف تلبية لملاحظاتكم إن وجدت.

شكراً لك اخي خالد على ردك الكريم بالفعل اطلعت على المزايا الجديدة . حيث انها اضافات ليست بالأهمية الكبيرة

السلام عليكم أضف حقلاً إلى ملف إكسل فيه اسم المشرف على سبيل المثال وأضف حقلاً في النموذج الفرعي مصدره ذاك الحقل اجعل النموذج الفرعي والرئيسي مرتبطان وحقل الربط هو اسم المشرف على سبيل المثال عند الانتقال بين السجلات في النموذج الرئيسي ستجد أن السجلات التي تحمل اسم أي من المشرفين ظهرت فقط في النموذج الفرعي انظر المرفقين عسى أن يكون هذا ما تبغي. تدارك: إذا أردت إضافة البيانات إلى جدول أكسس. فأسهل طريقة هي استخدام استعلام إلحاق بين الجدول المرتبط وجدول الأكسس على أن يكون جدول الأكسس وبيانات الإكسل مضبوطة من ناحية النوع. وجعل مصدر النموذج الفرعي هو جدول الأكسس الذي ستلحق به النتائج. إذا كان ما تريد هو عمل جدول أكسس يتضمن البيانات الموجودة في جدول الإكسل، فغداً إن شاء الله أعدل على الملف أو لعل أحد الأخوة يتفضل بذلك أو بالطريقة التي يراها مناسبة. Log.accdb Parameters.xlsx

أستاذى @Khalf لا يوجد غموض عند اضافة اسم اذا كان متكرر يفتح نموذج به الاسماء المكررة و منه اسمح بالاضافة ام لا جارى التجربة

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

تقرير 8.xlsm

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله

جزاك الله خيرا

جزاكم الله

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

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

شرح جميل ومجهود كبير تشكر عليه

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

جرب الطريقة دي تقرير.xlsm

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

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

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

السلام عليكم اخي العزيز افتح النموذج في وضع التصميم و قم بازالة التخطيط من - ترتيب - ازالة التخطيط وسوف يعمل النموذج بصورة طبيعية تحياتي Library.rar

اخى الفاضل فى على الرابط التالى شرح تصدير استعلام للاكسيل فى شيت معين للاخ startnet حمله وحاول تنفذه انت عندك 4 استعلامات زى ما بتقول وكل استعلام فى صفحه لواحده هتعمل كود وتنسخه 4 مرات فى كل كود هتضع اسم استعلام والصفحه بتاعته اللى تتصدر عليه http://www.arabmoheet.net/aspnetforum/amf/72c9378b-e62c-4f05-9e47-b0161f60cb66.aspx?pageno=1&#entry198277 تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام ورحمة الله وبركاته اليك الحل اخي العزيز ان شاء الله يكون هو المطلوب لكم تحياتي التقييم.xlsx

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

جرب المرفق IIf(IsNull([Worker01]) or [Worker01]="0";0;1)+IIf(IsNull([Worker02])or [Worker02]="0";0;1)+IIf(IsNull([Worker03])or [Worker03]="0";0;1)+IIf(IsNull([Worker04])or [Worker04]="0";0;1) Daily Report V07.accdb

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

الطريقة الاخرى بدون الحاجة الى مربعات النص المخفية في الحقل الخاص بالجمع نضع التعبير التالي IIf(IsNull([Worker01]);0;1)+IIf(IsNull([Worker02]);0;1)+IIf(IsNull([Worker03]);0;1)+IIf(IsNull([Worker04]);0;1) ويمكن عملها ايضا في الاستعلام مصدر التقرير الملف مرفق Database511.accdb

السلام عليكم اتمنى يكون المطلوب تحياتي

الاخ الفاضل / @alix24028 وبعد اذن استاذنا / @عبد اللطيف سلوم محاولة منى في الحل انظر للمرفق ان كان هذا ما تريد سوف اشرح لك عن مكان المشكلة Daily Report V02.accdb

تم معالجة الامر مع بعض التحسينات على الكود 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

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

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

السلام عليكم ورحمة الله أخي الكريم أبو مريم، المرفق الذي وضعته به خلل ولا يمكن تحميله... وأقترح عليك المعادلة التالية إذا فرضنا أن نطاق القيم هو A1:A1000 : =SMALL(A1:A1000;COUNTIF(A1:A1000;0)+1) مع مراعاة "الفاصلة المنقوطة" و"الفاصلة" وتغيير النطاق إذا استدعى الأمر ذلك... بن علية