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

Moosak

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2175

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

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

  • Days Won

    55

 نوع المحتوي 

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

  1. Moosak
    اخترعت لك هذه الدالة 😁 Public Function ChangeImageName(FullPath As String, NumberPlus As Integer) As String Dim FileName As Integer Dim NewName As Integer FileName = CInt(Left((Right(FullPath, Len(FullPath) - InStrRev(FullPath, "\"))), InStr((Right(FullPath, Len(FullPath) - InStrRev(FullPath, "\"))), ".") - 1)) NewName = FileName + NumberPlus ChangeImageName = Replace(FullPath, FileName, NewName) End Function وظيفتها أن تقوم بزيادة أو تنقيص الرقم في اسم الصورة .. ( أنت تحدد الرقم بالزيادة أم النقصان 🙂 ) تضعها في استعلام تحديث .. وتضع مكان (تحديث إلى:) تحت حقل مسار الصور الدالة بهذه الصورة : ChangeImageName([Image];1) بحيث مكان الرقم 1 تضع الرقم الذي تريد زيادته ، وإذا بالقصان تضع (-1) مكان الرقم 1 .. وهذا مثال لما تصنعه هذه الدالة : (مرفق لك الملف ) ImagesCorrection.accdb
  2. Moosak
    تفضل أخي أبو عبدالله .. 99.accdb
  3. Moosak
    السلام عليكم إخواني الأعزاء خبرائنا الأفذاذ بارك الله فيكم .. عندي جدولين الأول جدول به قائمة أسماء المستخدمين .. والثاني جدول خاص بالمهام .. وبه قائمة منسدلة ( متعددة العناصر ) مصدرها جدول الأسماء .. المطلوب هو : في نهاية العام أقوم بإعداد تقرير يحصي لنا عدد المهام التي تم توكيل المستخدم بها .. بمعنى عدد المرات التي تكرر فيها اسمه في القائمة المنسدلة .. بشرط .... المهام الخاصة بهذا العام .. أو العام الذي أحدده أنا ... ماهي الطريقة لعمل ذلك ؟ استعلام أم دالة أم ماذا ؟ أفيدونا بارك الله فيكم .. إحصاء من القائمة المتعددة.accdb
  4. Moosak
    ما شاء الله عليك يا باش مهندس .. ما لاحقين عليك من كثر الأفكار والروائع اللي تتحفنا بها كل يوم 😅 الله يزيدك من علمه وتوفيقه ..
  5. Moosak
    للأسف لن أتمكن من عمل نموذج خلال هذه الفترة فمنك العذر .. وسينبري لهذه المهمة خبراء المنتدى إن شاء الله 💪🏼
  6. Moosak
    ...
  7. Moosak
    من قال ذلك ؟!! طبعا ممكن .. لا تيأس تحتاج إلى إضافة استعلام تحديث يبحث عن سيريال الكتاب ويحدث المجموع على حسب نوع الحركة دخول أو خروج . ويشتغل الاستعلام عند الضغط على زر الحفظ ..
  8. Moosak
    أكيد طبعا أستاذنا الغالي @ابا جودى 😄
  9. Moosak
    حياك الله وبياك جعفر 😄 🌹 بصراحة أحس بالأنس وانت موجود في المنتدى 👍🏼😁 وشكرا على النصيحة 🌹
  10. Moosak
    هلا فعلا النتائج لم تتأثر بالمسافات الزائدة عندك حسب تجربتك؟ أنا كنت أفكر في دالة like أو دالة Trim كحلول لهذه المشكلة ..
  11. Moosak
    كيف جعلته يضيف المسافات تلقائيا أستاذي العزيز وما الحكمة من ذلك ؟
  12. Moosak
    شكرا لك أبا جودي .. أفادتني جدا في مشروعي القادم بإذن الله 😉
  13. Moosak
    حلال عليك أخي .. هذي سرقة جائزة 😅 نعم صحيح 100% 👌🏻 ، نِعمَ ما فعلت 👍🏻
  14. Moosak
    ومثل ما قالوا : الناس أذواق .. الترتيب والتنسيق ممتاز .. الألوان محتاجة حبتين تعديلات .. وعشان تاخذ فكرة عن الألوان المتناسقة في تصميم واجهات المستخدم بشكل عام أنصحك تدخل على موقع pinterest.com أو في بحث صور جوجل وتكتب ( تصاميم واجهات المستخدم أو UI Design inspiration ) وبتظهر لك الكثير من الأشكال والألوان الجميلة اللي ممكن تاخذ منها الفكرة والألوان .. مثال : https://www.pinterest.com/search/pins/?rs=ac&len=2&q=design ui desktop&eq=design UI desk&etslf=5716&term_meta[]=design|autocomplete|0&term_meta[]=ui|autocomplete|0&term_meta[]=desktop|autocomplete|0 تحياتي
  15. Moosak
    تم الأمر أخي الحبيب ... عدلت الاستعلام وصار اسمه TAB_RMZQ وغيرت اسم العمود المحسوب الى TOTAL وجعلت هذا الكويري هو مصدر بيانات النموذج FRM_RMZ وأضفت له حقل ال TOTAL هكذا: MusndWZwayid 004.accdb
  16. Moosak
    طبعا مثل هذه العمليات الحسابية لايمكن عملها في الجدول إلا باستعلامات تحديث وهي طريقة ملتوية لا ينصح بها .. ممكن إظهار النتيجة في النموذج وهو ما أراه مناسبا.. لعلي أتمكن من تطبيق ذلك غدا إن شاء الله..
  17. Moosak
    المشكله أنه لايوجد لديك ربط بين الجدولين TAB و TAB_RMZ .. عملتها لك بالطريقة الصعبة 😅 في استعلام اسمه TAB_Q بس طلع بطيئ بسبب الطريقة الملتوية اللي استخدمتها .. أرفقت لك الملف مع علمي بأنها ليست الطريقة المثلى .. وأترك المجال للخبراء الأشاوس MusndWZwayid 004.accdb
  18. Moosak
    أعتقد أن المشكلة ليست في الدالة وإنما في الجدول ، فقد لاحظت أن الجدول يزيد مسافات في الخلايا هكذا : شي آخر .. أنا أحب أن أحل هذه المشاكل بطريقة أسهل كما في المرفق 😁 Test Dcout.mdb
  19. Moosak
    الخطأ هنا أستاذي : Me.txtCount = DCount("*", "[tblTestCount]", myWhere ) ينبغي إضافة الأقواس للجملة mywhere هكذا : Me.txtCount = DCount("*", "[tblTestCount]", """& myWhere &""") والله أعلم
  20. Moosak
    من أي حقل يتم حساب عدد الرموز في جدول (TAB) ؟
  21. Moosak
    الأحمر جميل
  22. Moosak
    دائما مبدع ومتميز أستاذنا @ابا جودى
  23. Moosak
    رائع ما شاء الله .. تسلم الأيادي
  24. Moosak
    بارك الله فيك أستاذنا @ابا جودى .. جهود مباركة ..
  25. Moosak
    تفضل أخي .. فلتر.accdb
×
×
  • اضف...

Important Information

  I accept