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

kanory

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2310

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    138

 نوع المحتوي 

كل منشورات العضو kanory

  1. kanory
    تفضل .... القسمة على غير العدد.accdb
  2. kanory
    ضع عند حدث التحديث لمربع النص A هذا الكود If IsNumeric(A) And IsNumeric(B) Then Me.نص4 = [A] / [B] Else Me.نص4 =0 End If
  3. kanory
    شرح وافي ... ماشاء الله تبارك الله
  4. kanory
    بارك الله فيك اخي @أبو إبراهيم الغامدي متابع ....
  5. kanory
    ممكن عينة من برنامجك بالمسارات
  6. kanory
    الكود ليس ليه مشكلة لاحظ هذا objWorkbook.Sheets(SHEET%).range("c5").CopyFromRecordset RS_STUDENTS SHEET% = SHEET% + 2
  7. kanory
    مشاركة مع استاذي محمد استخدمنا هذا الكود Kill (Me.txt1 & "*.*") تفضل --------->>>>>> حذف محتويات مجلد.accdb
  8. kanory
    حياك الله .... الحمد لله رب العالمين
  9. kanory
    حياك الله ....... الحمد لله رب العالمين
  10. kanory
    بشرط اذا وجدت القاموس تدرجة هنا مع هذا المثال ..... طبعا موافق .... طيب انظر المرفق .... names.mdb
  11. kanory
    في هذه الحالة تحتاج قاموس كامل يحوي كل مفردات الاسماء المعروفه ..... ابحث عن القاموس ان وجدتها فممكن للاكسس عندها ترجمة الاسماء من خلالها والله اعلم .....
  12. kanory
    بارك الله فيك ..... الحمد لله رب العالمين
  13. kanory
    مساء نور وسعادة ... تحويلها دفعة واحد ... طبعا لايمكن ولكن يمكنك تصميم برنامج خطوة بخطوة والزملاء في المنتدى جميعا ما يقصروا معك ....
  14. kanory
    نعم ممكن .... أعتقد انا شفت مثال بهذه الصورة في المنتدى .... استخدم خاصية البحث في المنتدى وسوف تجد ما يسرك .. ان شاء الله تعالى
  15. kanory
    حياك الله ... الحمد الله رب العالمين
  16. kanory
    انشأ استعلام تحديث وطبق كما في الصورة
  17. kanory
    نعم ..... ولكن اين الفرز في مثالك .... ممكن تدرج لنا مثال حتى يمكن ارشادك للطريقة الممكنه ' هذا الكود لاخفاء القائمة ChangeProperty "AllowShortcutMenus", DB_Boolean, False 'وهذا لاظهارة مرة اخرى ChangeProperty "AllowShortcutMenus", DB_Boolean, True ولكي يعمل الكود يجب اعادة تشغيل القاعدة مرة اخرى
  18. kanory
    ممكن مثال مبسط لما تريد
  19. kanory
    طبق من خيارات الاكسس وازل العلامة من السماح بالقوائم المختصرة الافتراضية
  20. kanory
    هناك علاقة موجودة بين الجدولين هي تمنع التحديث لذلك طبق حسب الصورة ثم اعد تلك العلاقة بعد الترحيل مرة اخرى احذف العلاقة رقم 1 كون العلاقة رقم 2 انشأ التحديث رقم 3 شغل الاستعلام ليتم تحديث بيانات الجدول istimaraall ثم اعد العلاقة رقم 1 مرة اخرى
  21. kanory
    ماهي الرسالة التي تظهر صور لنا تلك الرسالة
  22. kanory
    اكتب هذا الكود If IsNull(Texte8) Or Me.Texte8 = "" Then " اكتب الاسم "MsgBox DoCmd.CancelEvent Else DoCmd.OpenReport "mouv", acViewReport End If
  23. kanory
    لا يوجد لدي جهاز حاليا فيه 64 بت ولكن جرب هذا ..... Kan.accdb
  24. kanory
    تفضل أخي الكريم .... Kan.accdb
  25. kanory
    أولا هل هذا النموذج الذي ذكرنه يعمل بمفردة أي هو نموذج أم نموذج فرعي ضمن نموذج اخر ثانيا ماذا تقصد بالرقم في هذه الصورة وهل هو ضروري بالنسبة لك ثالثا اخي هل انت مصمم البرنامج .... اذا كان نعم فرجاء خاص ابتعد عن تسمية الكائنات باسماء محجوزة للاكسس بارك الله فيك .....
×
×
  • اضف...

Important Information

  I accept