اذهب الي المحتوي
أوفيسنا

البحث في الموقع

Showing results for tags 'نافذة'.

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
    • نرحب بزوار الموقع
  • قسم تطبيقات و لغات مايكروسوفت
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • المنتدى التقني العام و تطبيقات الأوفيس الأخرى
    • إعلانات شخصية للأعضاء
    • قنوات تعليمية وإعلانات دورات تدريبية
  • إدارة المشاريع والبحث العلمي وعلوم البيانات
    • إدارة المشاريع ومحافظ المشاريع
    • البحث العلمي والإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
  • القسم العام
    • قسم الاقتراحات و الملاحظات
    • مشاركات المدونات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End


اخر تحديث

  • بدايه

    End


Filter by number of...

انضم

  • بدايه

    End


مجموعه


Job Title


البلد


الإهتمامات


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype

تم العثور علي 3 نتائج

  1. Dependent / Cascading Combo Box in continuous forms طريقة لعمل قائمة / مربع سرد و حوار تعتمد على أخرى خلال بحثى لم أجد أي طريقة تلبي الحاجة لعمل نافذة معتمدة على أخرى في نموذج مستمر لذا أضع ما توصلت إليه تجربتي بين أيدكم عله يكون ذا نفع . * ملاحظة : عند جعل مصدر الصف في مربع السرد و الحوار استعلاماً فيه عدة حقول فإن المربع سيعرض افتراضياً القيم في العمود الأول لذلك عند بناء الاستعلام اختر العمود الأول هو العمود الذي ترغب بإظهار قيمه ، أما في حال الإبقاء على ترتيب الاستعلام كما يظهر بعد استخدام المعالج فاربط حقول الاستعلام بمربع القائمة و غير عرض هذه الأعمدة بحيث يظهر العمود الذي يحوي القيم التي ترغب بعرضها .و الطريقة في الرد . DependantCombobox.accdb
  2. السلام عليكم نافذة / قائمة منسدلة / مربع سرد و حوار ديناميكي / متغير / متناقص عبر السجلات في نموذج مستمر . لقد بحثت مطولاً عن طريقة لتنفيذ نافذة منسدلة تتناقص عند اختيار قيمة منها في سجل سابق . و هذا ما توصلت إليه من خلال تجربتي آمل أن يكون ذا نفع . الفكرة : جعل مصدر صف القائمة أو مربع السرد و الحوار فارغاً من نوع جدول / استعلام ثم تنفيذ كود كما هو في المرفق و الذي سيكون عبارة عن استعلام محول إلى أمر فيجوال . لقد احتجت إليها غير مرة وهي ذات تطبيقات كثيرة سيجد صاحب الحاجة فيها ضالته .. طالما أن برنامج الأكسس لا يزال في صيغته الحالية . مع بساطة الفكرة وبدائيتها إلا أنني لم أجدها خلال بحثي و لعل أحداً ما يبحث عنها . DynamicCombobox.accdb الجزء السابق
  3. السلام عليكم ورحمة الله وبركاته افتقدتكم كثيرا لمعرفة ما اريده من هذا الملف قم بالتالي: قم بفتح الملف المرفق في الحالتين تمكين وتعطيل وشاهد النتيجة ثم قم بفتح الملف في حالة التمكين واضغط الزر kh_ChngPwd لتفعيل شاشة دخول باسم مستخدم وكلمة مرور ثم اغلق الملف ثم قم بفتح الملف في حالة التمكين والتعطيل وشاهد النتيجة قمت بتجربة هذا الكود على اكسل 2003و2007 وهما ما في المرفق واريدكم ان تجربوه على 2010 =================================== ممكن استخدام هذا الكود في اي ملف باستيراد الفورمين FormAhlnWShln FormChngPwd والموديل ModChngPwd ونسخ الاكواد الموجوده في حدث ThisWorkbook =================================== كلمة السر للاكواد : 1 =================================== ودمتم في حفظ الله فورم حماية الملف.rar ======================================================== من اراد استخدام الكود بدون استخدام فورم الحماية يضع هذه الاكواد في موديل Option Explicit Sub Auto_Open() kh_wVisible True End Sub Sub Auto_Close() kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub المرفق 2003 2007 th1.rar
×
×
  • اضف...

Important Information