نجوم المشاركات
Popular Content
Showing content with the highest reputation on 10 فبر, 2020 in all areas
-
بسم الله والصلاة والسلام على سيدنا رسول الله شرح سهل وبسيط للاخوة المبتدئين في برمجة اكسس حول استعلام التوحيد لطفا شاهدوا الفيدو وطبقوا استعلام توحيد.accdb7 points
-
بعد اذن الاستاذ حسين تجد البيانات في شيت 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.xlsm4 points
-
وعليكم السلام استاذ عبدالجيد اطلع عالمواضيع التاليه لعلك تستفيد منها تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق3 points
-
للببيانات الكبيرة جداً (اكثر من 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.xlsm3 points
-
3 points
-
3 points
-
2 points
-
إذا استخدمت كود التفقيط سوف تجده يعتمد على المصفوفات لكني سوف أقوم بإنشاء مثال صغير تتجسد فيه فائدة المصفوفات إن شاء الله.2 points
-
السلام عليكم مع أن طلبكم لا يزال غامضاً لدي هذا النموذج فيه تطبيق الكود الذي يمنع ظهور الخطأ ويسمح بالبحث عن الأسماء بعلامة الاقتباس المفردة. EDIT.accdb2 points
-
كيف يمكن تعبئة جدول مرتيب ابجديا فقط من خلال الكتابة في الصف رقم 2 للمزيد انظر الى هذا الملف WRITE_JUST IN ROW_2.xlsm2 points
-
اسهل حل عملته لك وهو كما اشار اخى واستاذى @kha9009lid بالرابط السابق بعمل المفتاح الاساسى على جميع الحقول وتم الحاق السجلات هل هذا ما تريد ام شىء آخر تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق New folder.rar2 points
-
وعليكم السلام-اهلا بك فى المنتدى -كان عليك لزاما استخدام خاصية البحث فى المنتدى قبل رفع المشاركة ,لأن هذا الموضوع تكرر مئات المرات ...يمكنك استخدام هذا طريقة كسر حماية ورقة الاكسل2 points
-
نعم ممكن هنا المزايا الجديدة لا اعتقد انك تحتاج الى انتقال للاصدار الاحدث الا اذا كنت تحتاج الى المزايا الجديدة في الاصدارات الحديثة علما بان الكثير من المستخدمين يفضلون الاصدار 2003 مع الاحاطة ان بعض المزايا الجديدة مثل رقم كبير عندما تستخدمها لن تعمل قاعدتك على الاصدارات الاقدم من اصدارات 2016 المحدث و 2019 و3652 points
-
نعم يكفي وضع الجداول على جهاز والمشاركة لا للمزيد اطلع على الرابط وهنا2 points
-
استاذى العزيز واخى الحبيب الاستاذ Khalf انها طريقتكم2 points
-
السلام عليكم استبدل علامة الاقتباس المفردة بعلامتي اقتباس مفردة ، وليس بعلامة اقتباس مزدوجة واحدة. اجعل الفانكشن بالصورة التالية < RQ = Replace (Stro,"'",",,") > أعتذر فأنا أكتب من الموبايل الشكر للأستاذ أبو جودي لعل في مرفقه طريقة أخرى.2 points
-
السلام عليكم @عماد محمد عبد العزيز بالنسبة لمعيار الحقل [ Material Type ] لااعرف سوى الطريقة التي شرحتها لك سابقا استخدام العبارة DISTINCT التي توضع بعد كلمة SELECT في جملة SQL للحصول على قيمٍ فريدةٍ غير مكررة اخي افتح الاستعلام الخاص بك في طريقة عرض SQL جرب ان تضع هذه الكلمة في مكانها واعلمنا النتائج SELECT DISTINCT [الاسم الكامل] FROM table1; تحياتي2 points
-
الاخ الفاضل / @Muhammad Gamal اعتقد يتم هذا لو قمنا بتقسيم قاعدة البيانات عن طريق الادوات وقسمنا القاعدة الى قاعدة امامية وقاعدة خلفية2 points
-
السلام عليكم اخي العزيز @عماد محمد عبد العزيز اسهل طريقة هي عمل ذلك عن طريق التنسيق الشرطي ضع الكود التالي في التعبير DCount("[M P R]";"[ben]";"[M P R] = [Person in charge] ")>=2 تفضل الملف بعد التعديل تحياتي PRODUCT.rar2 points
-
وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم test1.rar تحياتي ولمعرفة ما تم تعديله تم اضافة استعلام الحاق Query1 تم اضافة حقل في جدول اجمالي الاجرائات باسم معرف_الاجراء تم اضافة استعلام تحديث Query1 تم اضافة حدث للقائمة عند النقر المزدوج للانتقال الى السجل المطلوب تحياتي1 point
-
وعليكم السلام اجعل الحقل فالجدول رقم وفالنموذج الفرعى فى حدث فالحالى Me.Id.Value = CurrentRecord غير Id لاسم الحقل1 point
-
الحمدلله الذى بنعمته تتم الصالحات والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا واياكم اخى تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق1 point
-
السلام عليكم عاين الملف وجربه إن كانت هناك ملاحظات فعلى الرحب والسعة، غداً -إن شاء الله - سأعدل الملف تلبية لملاحظاتكم إن وجدت.1 point
-
شكراً لك اخي خالد على ردك الكريم بالفعل اطلعت على المزايا الجديدة . حيث انها اضافات ليست بالأهمية الكبيرة1 point
-
السلام عليكم أضف حقلاً إلى ملف إكسل فيه اسم المشرف على سبيل المثال وأضف حقلاً في النموذج الفرعي مصدره ذاك الحقل اجعل النموذج الفرعي والرئيسي مرتبطان وحقل الربط هو اسم المشرف على سبيل المثال عند الانتقال بين السجلات في النموذج الرئيسي ستجد أن السجلات التي تحمل اسم أي من المشرفين ظهرت فقط في النموذج الفرعي انظر المرفقين عسى أن يكون هذا ما تبغي. تدارك: إذا أردت إضافة البيانات إلى جدول أكسس. فأسهل طريقة هي استخدام استعلام إلحاق بين الجدول المرتبط وجدول الأكسس على أن يكون جدول الأكسس وبيانات الإكسل مضبوطة من ناحية النوع. وجعل مصدر النموذج الفرعي هو جدول الأكسس الذي ستلحق به النتائج. إذا كان ما تريد هو عمل جدول أكسس يتضمن البيانات الموجودة في جدول الإكسل، فغداً إن شاء الله أعدل على الملف أو لعل أحد الأخوة يتفضل بذلك أو بالطريقة التي يراها مناسبة. Log.accdb Parameters.xlsx1 point
-
أستاذى @Khalf لا يوجد غموض عند اضافة اسم اذا كان متكرر يفتح نموذج به الاسماء المكررة و منه اسمح بالاضافة ام لا جارى التجربة1 point
-
جزاك الله خيرا اخى عبداللطيف جعله الله فى ميزان حسناتك ان شاء الله1 point
-
1 point
-
1 point
-
اليك المرفق تقرير 8.xlsm Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim SH As Worksheet Set SH = Sheets("ورقة1") Dim rr, lr, x, m Range("b5:i10000").ClearContents rr = Cells(Rows.Count, 1).End(xlUp).Row lr = SH.Cells(Rows.Count, 1).End(xlUp).Row For m = 5 To rr If Cells(m, 1).Text = "" Then Exit Sub For x = 2 To lr If Cells(m, 1).Text = SH.Cells(x, 1).Text Then Cells(m, 1).Select With Sheets("sheet1") .Cells(m, 2).Resize(1, 115).Value = SH.Cells(x, 2).Resize(1, 115).Value End With End If Next Next Application.ScreenUpdating = True End Sub1 point
-
1 point
-
وعليكم السلام اخى رجاء وليس امر ضع مثال لما لديك بعد ذلك على ما فهمت منك فى النموذج الفرعى فى قسم الاحداث يوجد حدث لديك اسم بعد الادراج ادخل عليه وضع به Private Sub Form_AfterInsert() Me.Requery End Sub والله اعلى واعلم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق1 point
-
السلام عليكم شكراً على حسن ظنكم وكلماتكم الطيبة، أخي الحبيب: في البداية هل واجهتك مشاكل في المرفق الأخير؟ أم أن المشكلة ظهرت بعد تعديلكم الذي ذكرتموه ؟ وياحبذا لو أرفقتم عملكم النهائي حتى يتسنى لي التعديل عليه. واعذرني لو تأخرت، حتى أستطيع الاتصال بالإنترنت عبر الحاسوب.1 point
-
اخي العزيز 1- لماذا لاتضع مثال عن عملك هنا ؟؟؟؟ 2- ضعها فقط بعد كلمه Select في sql الاصلي 3- انا لااعرف اي الحقول تتكرر بيانتها عندك يوجد لدي معيار لعدم التكرار بين جدولين يوضع بالمعيار بالاستعلام لعله بفيدك او قم بالتعديل عليه حسب الحقول التي تتكرر Not In (select [tender_no] from [supp_propert] where [tender_no] <>[tender_no]) تحياتي1 point
-
السلام عليكم ورحمة الله وبركاته الاخ الفاضل خلف المحترم اولا شكرا جزيلا لكم على هذا العمل ثانيا أود ان أعطيكم فكرة عن البرنامج مؤسسة خيرية تقدم قروض شخصية للمحتاجين مواردها _التعزيز لصندوق القرضة الحسنة_ من متبرعين او من نفس المؤسسة المطلوب من العمل هو متابعة حركة رصيد صندوق القروض يوميا معرفة بيان حركة كل مقترض ايضا بصورة تقرير ثم نموذج للبحث الكلي بحسب التاريخ او لكل قسم الخ ....... هذه هي الفكرة الاساس صممت جدول القروض مع جدول السداد على اساس رقم الموظف والعمل يتم بحيث تتم طباعة نموذج الاقتراض واتسديد فواجهتني هنا مشكلة عدم دقة في ترحيل البيانا أود ان أعرف مخططكم لقاعدة البيانات إن كان ترتيب الجداول التي صممتها فيه خطا وفقكم الله لكل خير1 point
-
جزاكم الله كل خير،وبارك الله بكم. يبدو أنها الطريقة الوحيدة.1 point
-
1 point
-
1 point
-
وعليكم السلام ورحمة الله وبركاته اليك الحل اخي العزيز ان شاء الله يكون هو المطلوب لكم تحياتي التقييم.xlsx1 point
-
باستعمال تقنية البحث في المنتدى ستجد ما يفيدك حول الموضوع مثل هذا ترحيل من الاكسيل الى الوورد vba1 point
-
اشكرك استاذ على فأنت الوحيد الذى ترد على انا جميع الفيديوهات التى انزلتها على الموقع تم حذفها من على قناتى بدون معرفة السبب ويتم اعادة تحميلهم مرة اخرى وتم معالجة انخفاض الصوت فهل من الممكن رفع المشاركات السابقة لان لو اراد احد تشغيل هذه الفيديوهات فسوف يظهر له انه تم حذف الفيديو وسوف اعطى لسيادتك رابط المشاركة المطلوب حذفها او رفع روابط الفيديوهات منها سيادتك اضغط على الصورة سوف تصل اللى المشاركة1 point
-
بالتوفيق اخي وجزاك الله خير على الدعاء اولا استخدمنا IIf لكوننا استخدمنا الكود في منشئ التعبير وليس ضمن حدث في بي تفسير الكود نقول اذا حقل اسم عامل الصيانة فارغ او اذا كان اسم العامل يساوي "0" وهنا وضعنا الصفر بين علامات اقتباس لكون الحقل نصي وليس رقمي اذن نقول اذا كان الحقل فارغ او يساوي صفر فتكون قيمة الحقل تساوي صفر واذا لم تتحق الشرطين تكون قيمة الحقل تساوي واحد هذا تفسير الكود امل ان تكون اتضحت الصورة1 point
-
جرب المرفق 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.accdb1 point
-
الطريقة الاخرى بدون الحاجة الى مربعات النص المخفية في الحقل الخاص بالجمع نضع التعبير التالي IIf(IsNull([Worker01]);0;1)+IIf(IsNull([Worker02]);0;1)+IIf(IsNull([Worker03]);0;1)+IIf(IsNull([Worker04]);0;1) ويمكن عملها ايضا في الاستعلام مصدر التقرير الملف مرفق Database511.accdb1 point
-
مرحبا لا يمكن جمع الحقول النصية وللتغلب على ذلك يمكن عملها بعدة طرق ومن اسهل الطرق ان نقوم بعمل اربع مربعات نص غير منظمة مخفية في المربع الاول نضع التعبير التالي =IIf(IsNull([Worker01]);0;1) اي اننا نقول اذا كان الحقل Worker01 فارغ يكون قيمة المربع المخفي يساوي 0 وان كان Worker01 غير فارغ المربع المخفي يساوي 1 وهكذا لباقي الحقول ثم في خانة المربع الخاص بالمجموع نجمع المربعات المخفية [t29]+[t40]+[t41]+[t42] جرب المرفق Database510.accdb1 point
-
1 point
-
1 point
-
الاخ الفاضل / @alix24028 وبعد اذن استاذنا / @عبد اللطيف سلوم محاولة منى في الحل انظر للمرفق ان كان هذا ما تريد سوف اشرح لك عن مكان المشكلة Daily Report V02.accdb1 point
-
اخى الفاضل @alix24028 اولا اعتذر على سرعه الرد الخاطئه منى وارجو منك مراجعه الموضوع السابق ذكره لانك وضعت حقل رقم فاتوره فى جدول الموظفين ارجو مراجعه الموضوع حتى تصمم برنامجك بشكل جيد تمنياتى لك وللجميع بالتوفيق1 point
-
رسالة شكر وتقدير الى البشمهندس طارق محمود الذى اتحفنا باحدى الاكواد الرائعة جزاكم الله خير الجزاء السلام عليكم اخى الفاضل الكريم اشكرك كثير جدا على مجهودك وعلى براعتك وعلى وقتك وجزاك الله خيرا وبارك الله فيك وفى عمرك وفى علمك وزادكم الله من علمه ورزقك وفتح لك الله ابواب الخير وسدد خطاك وصرف عنك كل مكروه وحفظك الله جزاك الله كل خير لقد اكرمتونى واسعدتمونى ولم ترد لي مسائلة ولا حاجة لى الا وقد قضيتموها حفظكم الله ورعاكم جزاكم الله كل خير الملاحظين المعدل .xlsm1 point