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

سعيد صواب

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

  • Posts

    711

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

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

  • Days Won

    3

كل منشورات العضو سعيد صواب

  1. سعيد صواب
    هنا اضافة بالنسبة للجداول السطر الأول سيظهر لك عدد الجداول مع جداول النظام استخدم هذا الكود ليظهر لك عدد الجداول بدون جداول النظام aa مربع نص في النموذج مثلا لنظهر النتيجة به Dim tdf As TableDef Dim i As Integer For Each tdf In CurrentDb.TableDefs If Left(tdf.Name, 4) <> "MSys" Then i = i + 1 Next Me.aa = i بالتوفيق
  2. سعيد صواب
    حياك الله اخي مصطفى انت نسيت وضع الحدث الذي يقوم بتنفيذ البحث ضع في مربع النص . الصلاحية الى .. في حدث بعد التحديث .. docmd.requery بالتوفيق
  3. سعيد صواب
    حياك الله وجدت لك هذه الطريقة جرب ووافنا بالنتائج 'Number of Tables CurrentDb.TableDefs.Count 'includes system tables 'Number of Queries CurrentDb.QueryDefs.Count 'Number of Forms Currentproject.AllForms.Count 'Number of Macros Currentproject.AllMacros.Count 'Number of Reports Currentproject.AllReports.Count 'Number of Modules Currentproject.AllModules.Count 'does not include object modules بالتوفيق
  4. سعيد صواب
    الحمد لله بالتوفيق اخوي عبدالله
  5. سعيد صواب
    حياك الله اخي مصطفى اي قيم تقصدها واين تود اظهارها في النموذج الفرعي ام الرئيسي؟؟ بالتوفيق
  6. سعيد صواب
    حياك الله .. تفضل mosadd: nz(DSum("[amount]";"payment";"[student_ser]=" & [student_ser] & " and [year_code]=2");0) بالتوفيق
  7. سعيد صواب
    وجزاك الله كل خير اخوي سامح
  8. سعيد صواب
    جزاك الله خير استاذ محمد اي كود تقصد شكرا
  9. سعيد صواب
    حياكم الله اضف المرفق بتنسيق اقدم حتى يتسنى المساعدة بالتوفيق
  10. سعيد صواب
    الله يبارك فيك وييسر امورك
  11. سعيد صواب
    حياك الله اخي مصطفى الفرق بين المعيار مع like وبدون like هو مع like تحضر جميع البيانات المشابهه وبدونها تحضر بيانات مطابقة بالظبط لما تبحث عنه .. عموما قم بالإستغنا عن الحدث عند التغيير ... وجرب ان تضع في حدث بعد التحديث هذا السطر docmd.Requery اذا ابقيت like .. وحبيت انك تبحث بمجرد الكتابة وعند التغيير تظهر النتائج ... فعند فتح النموذج ستظهر البيانات في النموذج الفرعي .... وهذا ما لا تريده انت في سؤالك هذا ما اعرفه انا .. وننتظر رأي الأساتذه الكرم اذا كان ممكن يفتح النموذج بشكل فارغ مع استخدام like .. بالتوفيق
  12. سعيد صواب
    السلام عليكم ورحمة الله وبركاته وجدت هذه الدالة اثناء تجولي وحبيت ان اضع عليها مثال هنا لمن قد يبحث عنها الدالة هي FILELEN وهذا ببساطة شكل الدالة FileLen( file_path ) الدالة تحضر حجم الملف بالبايت .. وبإمكاننا التحويل الى ما نريد بعد ذلك هنا طرق التحويل المعروفة للجيمع . 1 Byte = 8 Bit 1 Kilobyte = 1,024 Bytes 1 Megabyte = 1,048,576 Bytes 1 Gigabyte = 1,073,741,824 Bytes 1 Terabyte = 1,099,511,627,776 Bytes في المرفق انا حولت الى كيلوبايت .. اترككم مع المثال .. فك الضغط على الدرايف D للتجربة وبعدها بإمكانك النقل الى اي مكان كل ما عليك هو معرفة المسار والإمتداد بالتوفيق للجميع fileSizeDemo.rar
  13. سعيد صواب
    حزاك الله خير استاذ رمهان الله يوفقنا واياكم جميعا لما يحب ويرضى وان يعم الأمن والسلام جميع الأقطار العربية والأسلامية .
  14. سعيد صواب
    حياك الله استاذ رمهان وزادك الله تواضع وعلما لي الشرف ان اتناقش مع شخص بمقامك استاذ رمهان .. ولكن في الحقيقة الفكرة لم ارسمها بشكل كامل .. ولو ان لب الفكرة هو هذا النموذج .. === ولكن مبدئيا وكل شئ ممكن يتغير عند العمل الفعلي الفكرة تتلخص في التالي عند عرض التنبية يكون هناك بيانات التنبية كاملة .... موضوع التنبية ومحتوياته ... ومربع نص .. يتم فيه ادخال بيانات رسالة يكتبها المستخدم ... ترسل بالإيميل وبرسالة نصية كذلك .. عند الحاجه ===== بالنسبة لموضوع لو كان هناك اكثر من تنبيه في نفس اللحظة .. او كان هناك تنبيهات لم يطلع عليها المستخدم فكرتي هي وضع مربعي نص ك عدادات في نموذج تنبيه ... احدهما للتنبيهات الفائته عند الضغط عليه يفتح استعلام بهذا الخصوص وكذلك نفس الفكرة بالتنبيهات الحالية .. ====== واكرر شكري لك استاذ رمهان وللأستاذ ابوخليل على تعاونكم .. حينما اقوم بعمل هذه الأشياء سأعرضها هنا بإذن الله. عطيتوني وجه اليومين هذي وانا صدقت .. شكرا مرة اخرى
  15. سعيد صواب
    شكرا وجزاك الله كل خير
  16. سعيد صواب
    حياك الله استاذ رمهان وشكرا على متابعتك وبرأيك هذه الطريقة افضل من الطريقة السابقة ... ام ان هذه الطريقة تمهيد لحل آخر يغني عن عمل اللوب كل ثانية شكرا
  17. سعيد صواب
    حياك الله اخي ابو مصطفى العذر منك اخي وحقك علينا ... المعيار الذي تستخدمه بهذا الشكل Like "*" & [Forms]![form1]![b3] & "*" عدله الى هذا الشكل [Forms]![form1]![b3] في المعيارين الموجودة في الاستعلام بالتوفيق
  18. سعيد صواب
    شكرا لك استاذ رمهان اعرف هذه الطريقة استاذ رمهان وكان رأيي أن من الأفضل بدلا ان يلف على جميع بيانات الجدول ليخرج لي تاريخ اليوم ثم الوقت ان احضر له تاريخ اليوم بالإستعلام .. ومن بعدها يتبقى الوقت فقط وسجلات الوقت لهذا اليوم لن تتعدى 20 إلى 30 في اقصى الحالات. انا رحوم بالبرنامج .. هههه ===== ولكننا لم نستغني عن اللف في الحالتين ... وربما وهذا رأيي المتواضع ان لفتي ارحم من لفتك استاذي ولو بخطوات .. ههههه منتظر رأيك
  19. سعيد صواب
    حياك الله استاذ رمهان ومشكور على نصائحك للتوضيح البيانات مبنية على استعلام بتاريخ اليوم لذا ومبدئيا لا احتياج لاستخدام التاريخ بالنسبة لخلو الرسالة .... فهذا لم اعمل عليه بعد ... السؤال كان فقط عن جدوى الطريقة بإستخدام الدالة الموضحة بالمشاركة السابقة ============== هل من طريقة لديك استاذ رمهان تغنينا عن عمل اللوب واللف في كل ثانية نستنير بأفكاركم وما طرحت الموضوع الا للإستشارة والنصيحة شكرا للجميع
  20. سعيد صواب
    جزاك الله خير استاذ ابو خليل ماقصرت
  21. سعيد صواب
    السلام عليكم ورحمة الله وبركاته لدي نموذج يفتح مع بداية البرنامج وهو يحتوي على مواعيد محددة بالوقت لهذا اليوم سؤالي بالتحديد ... هل طريقتي بإستخدام هذا الكود صحيحه ولن تبسبب مشاكل للنظام لو فرضنا ان البرنامج يعمل طوال اليوم هذا هو الكود وفي المرفق توضيح اكثر Private Function sSA() On Error Resume Next Dim i, r As Integer Dim rs As Recordset Set rs = Me.RecordsetClone r = rs.RecordCount rs.MoveLast rs.MoveFirst For i = 1 To r If rs!mish_time = Time() Then DoCmd.OpenForm "alarm" End If rs.MoveNext Next rs.Close Set rs = Nothing End Function يتم استدعاء هذه الدالة عند حدث عداد الوقت كما هو موضح في النموذج frm_missions شكرا لكم AlartSysteM2003.rar
  22. سعيد صواب
    استاذ عبدالله اقراء المتطلبات هنا system requirement في الخطوة قبل التحميل من موقع مايكروسوفت https://www.microsoft.com/en-us/download/details.aspx?id=12548 علها تفيدك .. بالتوفيق
  23. سعيد صواب
    اعتذر منك استاذ عبد الفتاح لأن السؤال لم يكن واضح من الأساس
  24. سعيد صواب
    الله يجزاك كل خير وبإنتظارك
  25. سعيد صواب
    حياكم الله استاذ عبد الفتاح يجب ان يكون هناك جدول للدرجات ويكون مرتبط بجدول الموظفين قم بإنشاء استعلام ضع هذا المعيار تحت اسم الدرجة darganame [forms]![frm1]![darganame] وهذا المعيار تحت رقم الموظف empid [forms]![frm1]![empid] عند تشغيل الاستعلام سيطلب منك المعلومتين وهي رقم الموظف والدرجة التي ترغب في الاستفسار عن تاريخها بعدها يعرض البيانات ستظهر لك مكررة بحسب تكرار الدرجة ... وهذا اعتقد بسبب عدم وجود جدول مصدر لهذه الدرجات بالتوفيق تم اضافة المرفق وبإمكانك استخدام النموذج لإدخال البيانات drgat.rar
×
×
  • اضف...

Important Information

  I accept