kkhalifa1960

أخي @mohamed_ets ضع كل الملفات في مجلد واحد واضغطه .

تفضل أخي @عمار العبيدي المرفق بعد التعديل حسب مافهمت . أعمال الاضافة والحذف تتم بالفورم الرئيسي . جرب لأني لا يوجد لديا اسكنر الأن . ووافني بالرد test-111.rar

أخي @عمار العبيدي أبشر جاري العمل لأن موضوعك كبير ويأخذ وقت .

تفضل استاذ/استاذة @assad_key طلبك حسب مافهمت . لديك طريقتان . ووافني بالرد . Database-111.rar

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

الحمد لله .

تفضل أخي @بوكفوس عبدالسلام . ووافني بالرد . لجعل الواجهة الرئيسية لتطبيق Access (مايكروسوفت أكسس) تُعرض على كامل الشاشة بدون وجود فراغات على الجوانب، يمكنك اتباع الخطوات التالية: 1. إعداد حجم النموذج الرئيسي افتح النموذج الرئيسي (Main Form) الخاص بتطبيقك في وضع التصميم (Design View). في خصائص النموذج (Property Sheet)، حدد الخصائص التالية: Auto Center: اجعلها Yes. Auto Resize: اجعلها Yes. Border Style: اجعلها None. Popup: اجعلها No. Fit to Screen: اجعلها Yes. Width و Height: اضبطها بحيث تتناسب مع الشاشة. 2. استخدام التعليمات البرمجية (VBA) لتوسيع النموذج يمكنك استخدام كود VBA لجعل النموذج يُعرض على كامل الشاشة تلقائيًا عند فتحه: انتقل إلى علامة تبويب Events في خصائص النموذج. في الحدث On Load، اضغط على الزر (...) واختر Code Builder. أدخل الكود التالي: Private Sub Form_Load() DoCmd.Maximize End Sub هذا الكود سيقوم بتكبير النموذج ليملأ الشاشة عند فتحه. 3. إخفاء واجهة أكسس الافتراضية إذا كنت تريد إخفاء شريط القوائم والأشرطة الجانبية الخاصة بأكسس لجعل التطبيق يبدو كبرنامج مستقل: في خيارات Access: اذهب إلى File > Options > Current Database. قم بإلغاء تحديد الخيارات مثل: Display Navigation Pane. Allow Full Menus. Allow Shortcut Menus. اضغط OK وأعد فتح التطبيق. 4. استخدام دقة الشاشة الديناميكية لضمان توافق النموذج مع أي حجم شاشة، يمكنك استخدام مكتبات أو دوال لجعل النموذج يتكيف مع أبعاد الشاشة الحالية. مثال: Private Sub Form_Load() Me.Width = Application.UsableWidth Me.Height = Application.UsableHeight Me.Left = 0 Me.Top = 0 End Sub نصيحة إضافية: إذا كان النموذج يحتوي على عناصر كثيرة، تأكد من ترتيبها بشكل مناسب باستخدام أدوات التخطيط لتجنب حدوث اختلال في العرض.

أخي الفاضل @عمار العبيدي شكراً لك .

ياأخي الفاضل @عمار العبيدي أفضل اجابة للأستاذ @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