Amr Ashraf

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

up

ابا جودى الغالى عاش من شافك ❤️.. ليكم وحشة والله

السلام عليكم اساتذتى الافاضل فى القاعدة المرفقة 3 استعلامات اريد تصديرهم الى ملف اكسيل واحد متعدد الصفحات بحيث يكون اسم كل صفحة هو نتيجة الاستعلام وليتضح الامر اكثر انظر الى ملف الاكسيل المرفق يوضح النتيجة المرغوبة بحثت فى الكثير من المواقع الاجنبية ووجدت اكثر من طريقة ولكن لم اوفق فى تطبيقها جزاكم الله خير Example.accdb Supplies.xlsx

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

للرفع .... للأهمية

السلام عليكم اساتذتى الافاضل اثناء بحثى وجدت هذا الكود فى منتدى اجنبى وظيفته فلترة نطاق معين فى شيت بناء على قيمة خلية فى الشيت المفتوح حاليا والكود كما يلى Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Crit As String Crit = Sheets("Sheet1").Range("Cat").Value ' ActiveSheet.AutoFilterMode = False With [A1].CurrentRegion .AutoFilter Field:=1, Criteria1:=Crit End With End Sub ولكن عند تنفيذ الكود ينتج الخطأ ... ولضعف خبرتى بالاكسيل VBA لم استطع حل المشكلة النتيجة المرغوبة كما يلى جزاكم الله خير❤️ Payments Trial.xlsm

تحديث ... وجدت الكود التالى فى منتدى اجنبى ولكن عند التعديل عليه ينتج خطأ Subscript Out Of Range Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Update Table14 to your table name 'Update Field to column number of the field you are filtering 'Update Sheet7 to reference the sheet containing your table 'Change on to the column number where your click should cause this action If ActiveCell.Column = 1 Then Sheet7.ListObjects("Table14").Range.AutoFilter Field:=1, Criteria1:=ActiveCell.Value 'Update Sheet7 to reference the sheet containing your table Sheet7.Activate End If End Sub الكود موجود فى Totals ... جزاكم الله خير Payments Trial 2.xlsm

جزاك الله خير يا غالى على المجهود ولكن التغييرات على الشيت اكثر مما احتاج لأنى محتاج الفكرة هطبقها على شيتات تانية المطلوب ببساطة مشابه لهذا الموضوع https://www.officena.net/ib/topic/85826-filter-by_selection/ الاختلاف فقط بدل من الفلترة فى نفس الشيت كما بالموضوع السابق الفلترة هتكون فى الشيت الاخر ... بمجرد الضغط ينتقل على الشيت مفلتر جاهز بدون ازرار او تحديث وبتضغط على رأس العمود يفك الفلترة ... فكرة بسيطة ورائعة وارجو انها تتطبق على الشيت الخاص بى او فكرة مشابهة لها بعيدا عن اضافة شيتات اخرى لورقة العمل . جعله الله فى ميزان حسناتك

مساعدة جزاكم الله خير

يرفع للاهمية ... جزاكم الله خير

السلام عليكم اساتذتى الافاضل عندى الملف المرفق ومحتاج اطبق عليه فكرة هايبر لينك بشروط محددة وشرح الفكرة ببساطة كالتالى : فى الملف المرفق شيتين واحد يتم تسجيل فيه حركات دفع (Amr) والثانى بيجمع الحركات لكل مجموعة (Totals) المطلوب عند الضغط على اسم مجموعة فى الشيت الثانى يتم الانتقال الى الشيت الاول مع عمل فلترة على حقل Category بما يساوى ما قمت بالضغط عليه مثال : عندى عميل اسمه احمد عملت عليه 10 حركات دفع .... فى شيت Totals هيظهر احمد وبجواره مجموع ال10 حركات الخاصة بيه ... المطلوب عند الضغط على اسم احمد ينتقل لشيت الحركات مع الفلترة على حقل Category على اسم احمد ويظهر الحركات الخاصة به فقط اسف على الاطالة وجزاكم الله خير Payments Trial.xlsx

جزاك الله خير استاذنا بالنسبة لمستخدمين الاصدار الانجليزى هيحصل مشكلة وتم حلها فى المرفق dbArEn.mdb

جزاك الله خير

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

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

طيب وليه ما تستخدم استعلام فيه حقل التاريخ واختر منه Where واكتب المعيار Between أو اى معيار تريده واستخدم Dlookup على هذا الاستعلام هتطلعلك النتيجة لحد التاريخ اللى حددته فقط وطبعا على حسب معيارك هل هتحدده يساوى تاريخ او اقل او بين تاريخين وهكذا لو مش واضحة الفكرة ارفق مثال اعدل عليه

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

استاذى الفاضل بالفعل جربتها مرة لكنها لم تنفع منتظر الفانكشن اللى حضرتك هتعملها ... تحياتى

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

up

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

up

لم تحل المشكلة اخى الكريم لو صغرته ورجعته تانى النموذج لا يظهر بملئ الشاشة