اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

kanory

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

  • Posts

    2,270

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

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

  • Days Won

    138

 نوع المحتوي 

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

  1. kanory
    انشأ استعلام تحديث وطبق كما في الصورة
  2. kanory
    نعم ..... ولكن اين الفرز في مثالك .... ممكن تدرج لنا مثال حتى يمكن ارشادك للطريقة الممكنه ' هذا الكود لاخفاء القائمة ChangeProperty "AllowShortcutMenus", DB_Boolean, False 'وهذا لاظهارة مرة اخرى ChangeProperty "AllowShortcutMenus", DB_Boolean, True ولكي يعمل الكود يجب اعادة تشغيل القاعدة مرة اخرى
  3. kanory
    ممكن مثال مبسط لما تريد
  4. kanory
    طبق من خيارات الاكسس وازل العلامة من السماح بالقوائم المختصرة الافتراضية
  5. kanory
    هناك علاقة موجودة بين الجدولين هي تمنع التحديث لذلك طبق حسب الصورة ثم اعد تلك العلاقة بعد الترحيل مرة اخرى احذف العلاقة رقم 1 كون العلاقة رقم 2 انشأ التحديث رقم 3 شغل الاستعلام ليتم تحديث بيانات الجدول istimaraall ثم اعد العلاقة رقم 1 مرة اخرى
  6. kanory
    ماهي الرسالة التي تظهر صور لنا تلك الرسالة
  7. kanory
    اكتب هذا الكود If IsNull(Texte8) Or Me.Texte8 = "" Then " اكتب الاسم "MsgBox DoCmd.CancelEvent Else DoCmd.OpenReport "mouv", acViewReport End If
  8. kanory
    لا يوجد لدي جهاز حاليا فيه 64 بت ولكن جرب هذا ..... Kan.accdb
  9. kanory
    تفضل أخي الكريم .... Kan.accdb
  10. kanory
    أولا هل هذا النموذج الذي ذكرنه يعمل بمفردة أي هو نموذج أم نموذج فرعي ضمن نموذج اخر ثانيا ماذا تقصد بالرقم في هذه الصورة وهل هو ضروري بالنسبة لك ثالثا اخي هل انت مصمم البرنامج .... اذا كان نعم فرجاء خاص ابتعد عن تسمية الكائنات باسماء محجوزة للاكسس بارك الله فيك .....
  11. kanory
    في الموقع الكثير من امثل النسخ الاحتياطي أبحث تجد ما يسرك أخي الكريم
  12. kanory
    حياك الله
  13. kanory
    تفضل --------->>>>> يوميات.accdb
  14. kanory
    تفضل ----------->>> moh-21.rar
  15. kanory
    انظر المرفق ووافينا بالنتيجة --------------->>>>>> moh-2.rar
  16. kanory
    استخدمنا هذا الكود في حدث الحالي وايضا عند تحديث الصنف في النموذج الفرعي !!!! Forms!buy!Command17.Enabled = Forms!buy!buy_sub.Form.Recordset.RecordCount > 0
  17. kanory
    تفضل --------->>>>>> copy_kan.accdb
  18. kanory
    الحمد لله رب العالمين ..... حياك الله
  19. kanory
    تفضل -------->>>>>>> ex.accdb
  20. kanory
    الحمد لله رب العالمين .... حياك الله
  21. kanory
    اغلق البرنامج من شريط مهام الكمبيوتر .... ثم شغل البرنامج مرة اخرى بالضغط على شيفت
  22. kanory
    ما هو الداعي لفتح النموذجين في آن واحد ؟؟؟
  23. kanory
    انظر الصور وطبق ..... ثم ضع هذا الكود في مصدر الكمبو ---------->>>>>> SELECT * FROM (SELECT Table1.main_unit FROM Table1) AS1 UNION SELECT * FROM (SELECT Table1.med_unit FROM Table1) 2; ولكن سؤال لماذا حذفت اسماء السلع ؟؟؟؟ كيف تعرف وتفرق بين السلع عن زيادتها عن اكثر من اربعة سلع وكلها بالكيلو مثلا ؟؟ والخيار لك في النهاية !!
  24. kanory
    في مصدر عنصر التحكم لمربع النص ضع هذا ..... =DLookUp("[xxx]";"x1")
  25. kanory
    ضع هذا الكود تحت حدث الزر On Error GoTo Err_أمر0_Click Dim X X = CurrentProject.Path & "\" & CurrentProject.Name DoCmd.TransferDatabase acExport, "Microsoft Access", X, acTable, "تأجير شقة", "نسخة من تأجير شقة", False MsgBox "تم نسخ الجدول ", vbOKOnly, "تأكيد" Exit_أمر0_Click: Exit Sub Err_أمر0_Click: Resume Next
×
×
  • اضف...

Important Information

  I accept