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

kanory

الخبراء
  • Posts

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

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

  • Days Won

    138

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

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

Important Information