kkhalifa1960

ياأخي الفاضل @عمار العبيدي أفضل اجابة للأستاذ @Foksh وليست لي . رجاء إلغيها من عندي وسجلها للأستاذ @Foksh .

أستاذ @عمار العبيدي لي ملحوظة قد تفيدك مستقبلاً .عندما تصل لأفضل اجابة 1- لغلق الموضوع بأنه تم ليستفيد منه الجميع . 2- الكل بيسارع لمساعدتك، لتجاوبك . 3- وارضاء نفسي لمن ساعدك وحل لك طلبك .الضغط على (أفضل اجابة) على مشاركته .

استاذ @عمار العبيدي اذا كان هذا طلبك اضغط على افضل اجابة .ووافني بالرد .

أخي @fuadco اذا كان هذا طلبك اضغط على افضل اجابة .ووافني بالرد .

تفضل أخي @fuadco حسب مافهمت .ووافني بالرد . test4-1.rar

تفضل أخي @عمار العبيدي حسب مافهمت .جرب المرفق ووافني بالرد . Database1-2.rar

تفضل استاذ @شامل2 . لجعل التاريخ في نموذج فرعي يحتوي على مبيعات للمواد مفهرسًا بشكل تصاعدي عند فتح النموذج الرئيسي، يمكنك اتباع الخطوات التالية: إنشاء حقل التاريخ في الجدول الفرعي: تأكد من أن الجدول الفرعي يحتوي على حقل تاريخ (مثلاً "تاريخ المبيعات"). ترتيب البيانات في الاستعلام: يمكنك ترتيب البيانات في الاستعلام الذي يمد النموذج الفرعي بمبيعات المواد. لتكون النتائج مرتبة بشكل تصاعدي حسب التاريخ، قم بتعديل الاستعلام المستخدم في النموذج الفرعي ليكون ترتيبه حسب الحقل "تاريخ المبيعات" بشكل تصاعدي. يمكن ذلك عبر تحديد "ترتيب حسب" في استعلام البيانات. إضافة ترتيب إلى النموذج الفرعي: افتح النموذج الفرعي، وانتقل إلى خصائص النموذج. في خاصية "البيانات"، تأكد من أن الاستعلام الذي يجلب البيانات يحتوي على ترتيب تصاعدي حسب تاريخ المبيعات. تحديث البيانات عند فتح النموذج الرئيسي: لاجبار النموذج الفرعي على إعادة تحميل البيانات وترتيبها كلما تم فتح النموذج الرئيسي، يمكنك إضافة كود في الحدث On Open للنموذج الرئيسي لتحديث النموذج الفرعي. في هذا الكود، يمكن استخدام تعليمة VBA التالية لتحديث البيانات في النموذج الفرعي Private Sub Form_Open(Cancel As Integer) Me![اسم النموذج الفرعي].Requery End Sub

شكراً أستاذي @Eng.Qassim .

تفضل استاذ @بوكفوس عبدالسلام حاولت اعمل على نموذجك ولم أفلح فعملت طلبك بالمرفق. ووافني بالرد . DDComboTest.rar

وبطريقة أخرى . تفضلوا . المرفق به نموذجان النموذج الأول هي الطريقة السابقة والنموذج الثاني به الطريقة الجديدة . Chose(small-large) and Save Icon From Shell32.Dll.rar

تفضل استاذ @بوكفوس عبدالسلام حسب مافهمت . ووافني بالرد . Private Sub CommandButton_Click() With Me.ComboBox .Top = Me.CommandButton.Top + Me.CommandButton.Height .Visible = True .SetFocus .Dropdown End With End Sub 'ComboBox : اسم القائمة المنسدلة لديك 'CommandButton :اسم الزر لديك

تفضل استاذنا @ابوخليل حسب مافهمت حفظ الصورة حسب الاختيار . Chose and Save Icon From Shell32.Dll.rar

أستاذنا @ابوخليل . أما عن استخراج الايقونة حسب الحجم . لاحظ الأيكونات المستخرجة كلها حجمها (766bits) . أستاذ @Foksh وأستاذ @Moosak أنا أعمل على (windows 10 32-bit) و أوفيس (10) أيضاً . اخواني أشكركم جميعاً .

تكتب بنهاية كود البحث . Me.ComboBox.Dropdown

اختيار صورة من (Shell32.Dll) وحفظها بمجلد وبجدول وعرضها . Chose and Save Icon From Shell32.Dll.rar

شكراً استاذ @ابوخليل واستاذ @Foksh تم الحل وسأعرضه في موضوع منفصل .

استاذنا @الحلبي الحل بسيط جداً . أمسح الجدولان أو غير اسماء الجداول (Items) إلى (Items111) والجدول الثاني كذلك وأعمل الاستيراد أنا جربت عندي على ملفك . ووافني بالرد . New folder-1 (2).rar

تفضل أخي @husseinharby حسب مافهمت . هناك الجدول (tbl_AveragePrice)عدل السعران كما تريد . أما الجدول (tbl_Main) عند الحقل (AveragePrice) اختار السعر . ووافني بالرد . DDTwoPrice.rar

ممكن ترسل مشروعك ؟

الحمد لله .

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

تفضل استاذنا @الحلبي حسب مافهمت . المرفق والشرح . ووافني بالرد . New folder-1.rar

تفضل أخي @abofayez1 اما تعمل سورت على (ID) أو تضيف حقل (Sortby) وتعمل السورت عليه كما بالشرح ..

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

تفضل أخي @husseinharby والباسوورد (1001) ويمكن تغييره بمحرر أكواد الفورم تحت زر التنقل . اليك المرفق ووافني بالرد . DDPassStars.rar