كل الانشطه

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

شكرا اخي كنوري تم حل المشكلة بارك الله فيك وانت ايضا اخي وسيط بارك الله فيك

بارك الله فيك اخي كنوري وانت ايضا اخي الوسيط نفس الفكرة ونفس مبدأ العمل هذا هو المطلوب طبقت الفكرة ونجحت في النموذج الاساسي ولكن في نموذج فرعي مصدر سجلاته نموذج الاساسي وفيه حقل للبحث وبعد البحث لا يمكن الاختيار من السجلات المطلوبة للتصديرها يعني عند الضغط لا يستطيع الاختيار تبقى فارغة من علامة ✔️ عكس النموذج الاساسي عادي تختار وتصدر واموره تمام ؟

@Mohamed Hicham لماذا تستخدم الحلقة التكرارية وخاصية اختيار الملفات ؟ من شانه ان يجعل الكود بطيء ، دائما نلجا الى الفلترة او الفلترة المتقدمة لسرعتها خصوصا ان بيانات الاخ tahar صغيرة اما اذا كانت البيانات ضخمة عندها نستخدم الحلقة التكرارية مع المصفوفات لتسريع الكود. مجرد ملاحظة فقط ..تحياتي .

اخي الكريم ...وكيف سنعرف نوعية الخطا اذا انت لم تحدده. حقيقة لم استعمل هذه الاداة من قبل لكن اذا كنت تقصد هذا الخطا "compile erro function not defined" في هذه الحالة يجب ان تتاكد من تقعيل هذه الاداة من خلال قائمة خيارات الملف والذهاب الى الوظائف الاضافية adds in ويظهر لك مجموعة خيارات ابحث عنها وفعلها وستظهر لك القائمة وستجدها وفعلها ثم ادخل الى محرر الاكواد ومن قائمة tool >reference > solver قم بتحديدها اما اذا كان خطا اخر فعليك توضيح ذلك و لاتضع سؤال عشوائي لا احد يعلم ما هو الخطأ . تحياتي

ياريت الرد علي الموضوع للاهميه

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

اذكر مثال نزلته من المنتدى لكن لسن متاكد من صاحبه TabRight.accdb

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

السلام عليكم ورحمة الله تعالى وبركاته تفضل اخي الكريم يمكنك وضع الكود التالي وفلترة العمود بعشرة اعداد دفعة واحدة قابلة للزيادة . Sub Filter_() Dim Criteria_MH(100) As String Dim i As Integer Application.ScreenUpdating = False Sheets("ارقام الفلترة").Activate Range("A2:A12").Select For i = 0 To Selection.Count Criteria_MH(i) = Selection(i) Next Sheets("الجدول").Range("A3:A100").AutoFilter Field:=1, Criteria1:=Criteria_MH, Operator:=xlFilterValues Sheets("الجدول").Activate Application.ScreenUpdating = True End Sub tahar-MH.xlsm

للرفع أكرمكم الله

=IF(IF(NB.SI($B$1:B2;B2)=1;MAX($A1:A$1)+1;"")<>"";SI(NB.SI($B$1:B2;B2)=1;MAX($A1:A$1)+1;"");INDEX($A$1:A1;EQUIV(B2;$B$1:B2;0))) تفضل جرب اخي OfficinaExample(3).xlsx

الصورة ماخوذة من النموذج Contact Details موجود ياعزيزي

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

ملفك بعد التعديل ..... db1 (4) (1).mdb

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

أستاذي الكريم / هذه الصورة ليست في اكسس 2003 ولكن في أكسس ما فوق 2003 معلش أنا أسف سؤال اخر هل يجب ان تكون الصورة في امتداد معين (GPJ ) أو أي نوع من الامتدادات

المثال المرفق غير الموجود في الصورة ... تأكد منه

طيب ... جرب كما في الصورة ....

طيب تفضل ... التعديلات ::::::: 1- اضفنا حق ch في الجدول 2- عملنا استعلام بالسجلات المختارة 3- ادرجنا زر وبه الامر التالي ::::: 4- جرب المرفق .. Dim DTPath As String DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\salim07- " & Format(Date, "dd-mm-yyyy") & ".xlsx" DoCmd.OutputTo acOutputQuery, "استعلام1", acFormatXLSX, DTPath, False MsgBox "لقد تم تصدير البيانات بنجاح" TEST 12.accdb

ممكن تشوف التعديل التالى TEST 12.rar

استاذي الكريم / جزاكم الله خيرا ولكن في اوفيس 2003 في خصائص الصورة لم تظهر نفس القائمة ولكن ظهرت كما في الثورة المرسلة لكم

المثال موجود ياغالي ارفقت قاعدة البيانات

شكرا جزيلا للمبدع الاستاذ Mohamed Hicham هذا هو المطلوب بالضبط بارك الله بك وبهذا المنتدى الرائع وفقكم الله تعالى .