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

kanory

الخبراء
  • Posts

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

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

  • Days Won

    140

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

  1. اخي ابا زاهر . كيف قمت بتقسيم البرنامج . هل عن طريق برنامج الاكسس نفسه او يدوي استيراد وحذف
  2. بالتوفيق اخي ...
  3. اخي الكريم جرب برامج اصلاح قاعدة البيانات
  4. تفضل ........ملفك بعد التعديل . ولكن انظر الى الصورة وقم بتعديل الكود الموجود تحت الزر بما يناسبك المخزون.rar
  5. تفضل ........ CompactExternalDatabase_1.mdb
  6. أخي قد يكون هذا طلبك جرب المثال CompactExternalDatabase.mdb
  7. أخي قد يكون هذا طلبك
  8. اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً
  9. أخي ابا زاهر خذ ما تحتاجه من هذا المثال Ka1.zip
  10. ما شاء الله تبارك الله .... لافض فوك ابا جودي 🥀🥀
  11. اخي الكريم هل طبقك كود الاخ صالح ... يفي بالغرض
  12. اخي الكريم اعمل استعلام الحاق للبيانات المطلوبه
  13. اخي الكريم المنتدى لخدمة جميع اعضاء المنتدى ولا ترسل الطلبات على البريد وانما يضعها الاعضاء والمشرفين في نفس ردودهم ليستفيد منها الجميع ... بارك الله فيك
  14. اخي اجعل النماذج الاخرى لا تفتح الا بفتح نموذج التسجيل .
  15. أخي الكريم السلام عليكم ورحمة الله وبركاته هذه المقالات مفيدة في هذا الجانب
  16. وعليكم السلام ورحمة الله وبركاته أخي الحبيب أبا خليل كما تعلم أخي أن الاكسس لا يصدر التقرير الا للصيغ المعروفة اكسل وررد بي دي اف وغيرها أما الصور فلا يتم .... لذلك يمكن استخدام برنامج SnagIT وجعل الطابعة الخاصة بها افتراضية ثم طباعة التقرير غلى هذا الاساس أرجو ان اكون قد أوصلت الشرح بالطريقة الصحيحة ... بارك الله فيك
  17. أخي عصام استخدم هذا الكود DoCmd.OutputTo acOutputReport, "كشف متابعة الطلاب", "MicrosoftExcelBiff8(*.xlsx)", "", True, ".xlsx", , acExportQualityPrint
  18. لمعرفة تاريخ الميلاد استخدم Me![DateOfBirth] = Format(IIf(Left([IDNumber], 1) = 3, Mid([IDNumber], 2, 2) + 2000, Mid([IDNumber], 2, 2) + 1900) & "/" & Mid([IDNumber], 4, 2) & "/" & Mid([IDNumber], 6, 2), "yyyy/mm/dd")
  19. اضف هذا السطر في بداية الكود On Error Resume Next
  20. اخي الكود سليم ...
  21. عفوا ماهي التغليمة البرمجية التي هي تحت هذا الزر
  22. وعليكم السلام ...... يبدو والله أعلم أن هناك السجل الحالي مفقود أو غير موجود أو ان مربع النص خالي
  23. وعليكم السلام ورحمة الله وبركاته استخدم txt1 = Mid(txt, 6, 1) ' txt1 اسم مربع النص الذي يظهر الرقم الخامس ' txt مربع النص الذي به الرقم
×
×
  • اضف...

Important Information