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

نجوم المشاركات

  1. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      5

    • Posts

      8,723


  2. أبو آدم

    أبو آدم

    أوفيسنا


    • نقاط

      4

    • Posts

      3,292


  3. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      3

    • Posts

      11,621


  4. مسفر

    مسفر

    الخبراء


    • نقاط

      2

    • Posts

      365


Popular Content

Showing content with the highest reputation on 30 مار, 2018 in all areas

  1. جرب هذا الملف فقد صصمته لك لعله يفى بالغرض استدعاء الاسماء بدون تكرار بواسطة المعادلات.xlsm
    2 points
  2. السلام عليكم ورحمة الله وبركاته اخوتي الاكارم تحية طيبة وبعد المثال المرفق يبين كيف نتمكن من جلب اكثر من صورة دفعة واحدة تأخذ كل صورة منها رقما متسلسلا في الجدول الفرعي ضمن رقم المعرف الرئيسي . يوجد في المثال : جدول tbl1 باعتباره جدولا فرعيا منبثقا من الجدول الرئيسي نموذج photo يمكن جعله نموذجا فرعيا لمن يجيد تحوير الكود المصاحب علما ان الافضل استخدامه كما هو ويتم جلب المعرف الرئيسي اليه في حقل خاص غير منضم مع الاخذ بالاعتبار فيما لو وجد صور سابقة بمعنى ان المثال يضيف صورا جديدة الى الصور القديمة ان وجدت وفي المثال تطبيق للمقال اكثر من صورة.rar
    1 point
  3. زرنامة تدرج كل التواريخ بين تاريخين (من اختيارك) مفصلة حسب كل شهر في عامود مع حرية حذف يوم او يومين او ثلاثة ايام (من اختيارك ايضاً) او عدم حذف اي يوم Date_without_days_by_colums_and_month2.xlsm
    1 point
  4. اخي الكريم هنالك العديد من البرامج بخصوص فواتير المشتريات والمبيعات وما الى ذلك .. لكن اذا اردت عمل برنامج خاص بك من تصميمك فقم برسم تصور للتقارير التي تريدها في البداية لكي يتم مناقشة الادخالات والمتغيرات التي سوف تبني عليها جداولك .. حاول التواصل داخل المنتدى لاني بصراحة لا اعتقد انك ستجد من يراسلك على الايميل الخاص وهذا شيء بديهي الا طبعا اذا اراد شخص ما عرض برنامجه لك بمقابل مادي تحياتي
    1 point
  5. لقد تم الحل من قبل ترحيل المتأخرين.xlsm
    1 point
  6. ابو ياسين المشولي يبدو ان الاستاذ محمدنجار مشغول بأمر مهم وارجو من الله ان يكون المانع خيراً مع جزيل الشكر لكما الاثنان ولجميع الخبراء والقائمين على هذا المنتدى ارجو منك التكرم والاطلاع على الموضوع وافادتي واريد ان اضيف للنموذج مربع بحث للنموذج
    1 point
  7. التنسيق الشرطي حسب فهمي يعتمد على القيمة المدخلة في الحقل وتستطيع عمل أكثر من شرط لكن تكون القيم النصية ثابتة هذا حسب فهمي والله اعلم
    1 point
  8. جزاك الله خيرا تسلم من كل سوء ولكن عند فتح الفورم -- والضغط على زر (shift) يعطي رسالة خطآ!!!!!
    1 point
  9. السلام عليكم و رحمة الله و بركاته بعد الإطلاع على الجدوال المنية و البنية .. اخبرك بان العملية حسب طلبك غير ممكنة اولا استخدمت رقم التعريف بالموظف أو العضو أو سمه ماشئت ( ترقيم تلقائي )و هنا بدأ الخطأ ثم ربطت الاشتراكات مع مع الاعضاء ( أم حسب ما سميته الموظفون ) برقم التعريف ( و الذي هو رقم تلقائي ) - و هذا خطأ آخر ثم تطلب أن يتم نقل نقل العضو لجدول آخر و هو Member عملية النقل يعني أنك ترغب بعمل حذف للموظف ( حسبما اسميه من جدول الموظفين ) و هنا الخطأ الثالث .. هذا سيؤدي لحذف كافت الاشتراكات للسنوات السابقة من سجل الاشتراكات و عندما ترغب بإعادة الموظف ( لن تعود الاشتراكات ) ------ الحل ابسط مما تقول نقم بإضافة حقل جديد بأسم ( موقوف ) على سبيل المثال من نوع Ballon قيمته صح أو خطأ ثم تبني استعلام للموظفين بظهر كافة البيانات بشرط أن يكون حقل ( موقوف ) False ثم إذا ما تم التوقف عن الاشتراك لمدة ثلاثة اعوام يقوم البرنامج بصورة تلقائية أو يدوياً حسب رغبتك بوضع علامة (صح ) في حقل ( موقوف ) بهذا لن يظهر الاسم ضمن الاشتراكات و للإستعلام عن الاعظاء الموقوفين ( تبني نفس الاستعلام السابق ) و لكن على تكون قيمة حقل ( موقوف ) True و إنتهت المعضلة التي تتطالب بها و بالتوفيق فديو توضيحي جمعية.mdb
    1 point
  10. ربما تقصد هذا الماكرو Option Explicit Sub insert_sheets() On Error GoTo Exit_Sub Worksheets.Add after:=Sheets(Sheets.Count), Count:=[a1].Value Exit_Sub: End Sub
    1 point
  11. السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتك بكل خير تفضل 2222.rar
    1 point
  12. السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتك بكل خير نفضل UmAlQura ام تحويل القرى.rar
    1 point
  13. يبدو ان هذا ما تريد OSOL3 salim1.xls
    1 point
  14. التنسيق ليس بالكود ولكن عن طريق التنسيق الشرطي اتمنى أن يكون طلبك test121.mdb
    1 point
  15. اخي ابو زاهر يوجد نموذج فرعي من البداية ويوجد نموذج يفتح بعد الضغط على الانتر مرتين ايهم تريد التراجع فيه ؟ مع العلم ان الاكسس ليس من السهل عملية التراجع في النماذج لانها مربوطه بالجداول ويتم الحفظ تلقائي
    1 point
  16. السلام عليكم ورحمه الله وبركاته عندى ملحوظة على الملف: - من الأفضل اخى ان يتم كتابه وقت الحضور أو الانصراف فى خليه واحدة ، بدلاً من كتابة الساعات فى خليه والدقائق فى خلية أخرى - مشكلة السالب تظهر لأن الموظف لا يتمم 8 ساعات عمل ، وتم حلها فى الملف بتحويل الساعات لرقم صحيح انظر المرفق لمزيد من التوضيح Time Sheet 2016.rar
    1 point
  17. خطأ # ، Error# نتيجة مزعجة نحصل عليها في النماذج والتقارير السبب: في الحقول التي نقوم بها بأي عملية إحتساب ( sum , count) حين لا يكون هناك سجلات ومعلومات لاحتسابها تظهر هذه النتيجة المزعجة.. الحل في النماذج 2003: بدلا من استخدام =Sum([Amount]) نستخدم =IIf([Form].[Recordset].[RecordCount] > 0, Sum([Amount]), 0) الحل في التقارير 2007: =IIf([Report].[HasData], Sum([Amount]), 0)) أما في 2007 فالامر مختلف ، فهو لا يقبل هذا الكود ، ويلزم إنشاء وحدة نمطية ندرج فيها : Public Function FormHasData(frm As Form) As Boolean 'Purpose: Return True if the form has any records (other than new one). ' Return False for unbound forms, and forms with no records. 'Note: Avoids the bug in Access 2007 where text boxes cannot use: ' [Forms].[Form1].[Recordset].[RecordCount] On Error Resume Next 'To handle unbound forms. FormHasData = (frm.Recordset.RecordCount <> 0&) End Function وفي مصدر السجلات لمربع النص في النموذج نضع الكود: =IIf(FormHasData([Form]), Sum([Amount]), 0) وبذلك تنتهي المشكلة ونتخلص من نتائج الخطأ المزعجة ، """ وإذا عرف السبب سهل الحل وبطل العجب """ ...........
    1 point
  18. نستخدم في التطبيق بحكم الحاجة الكثير من الرسائل و التنبيهات ، وفي كل مرة نضطر لكتابة الكود وتحديد موصفات وخصائص صندوق الرسائل ، النص و ضبط الازرار و الشكل و العنوان و,,, و,,, فدعونا ننشيئ وحدة نمطية نستدعيها عند اللزوم Public Function MsgOK(MsgText As String) As Boolean Dim LResponse As Byte Dim MsgTitle As String MsgTitle = " تنبيه " LResponse = MsgBox(MsgText, vbInformation + vbMsgBoxRight, MsgTitle) If LResponse = vbOK Then MsgOK = True Else MsgOK = False End If End Function وحين نحتاجها نستدعيها Call MsgOK("بسم الله الرحمن الرحيم")
    1 point
  19. Conditional Formatting, Alert, Statistics أريد ان انفذ التنسيق الشرطي عبر الكود ، بقيمة حقل او حقلين أو غيره ، بشرط معين او شروط اطبق نتيجة بصرية في النموذج ، من باب التنبيه أو الاحصاء. الكود التالي يؤدي الغرض Private Sub Form_Current() If Me.strDate < Date Then Me.ID.BackColor = vbRed End If End Sub وطبعا البساطة والتعقيد تبع للظروف ... والمتطلبات ، ولكن هذه أصل الفكرة .... القاموس
    1 point
  20. Form Size لتحديد حجم النموذج ، ارتفاع وعرض Private Sub Form_Load() Me.Form.InsideHeight = 6900 Me.Form.InsideWidth = 12700 End Sub ........
    1 point
×
×
  • اضف...

Important Information