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

Moosak

أوفيسنا
  • Posts

    2,028
  • تاريخ الانضمام

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

  • Days Won

    51

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

  1. تفضل أخي .. عملتها لك بشكل آخر عن طريق السب فورم .. وتعطيك نفس النتيجة 1234.accdb
  2. هذا بالضبط ما تفعله المعادلة .. في الصورة التي أرسلتها لك 3 أعمدة .. الأول هو الرابط الأصلي ... الثاني الرابط بعد الزيادة (بعد تطبيق المعادلة عليه ) ... الثالث الرابط بعد النقصان (بعد تطبيق المعادلة عليه ) .... أنت لن تحتاج الاستعلام المسمى ExampleQ .. فقد وضعته لك كمثال .. أنت ستشغل الاستعلام UpdateQ وستتعدل الروابط تلقائيا في الجدول ..
  3. تفضل أخي العزيز .. منع حذف اول سجل.accdb
  4. اخترعت لك هذه الدالة 😁 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
  5. السلام عليكم إخواني الأعزاء خبرائنا الأفذاذ بارك الله فيكم .. عندي جدولين الأول جدول به قائمة أسماء المستخدمين .. والثاني جدول خاص بالمهام .. وبه قائمة منسدلة ( متعددة العناصر ) مصدرها جدول الأسماء .. المطلوب هو : في نهاية العام أقوم بإعداد تقرير يحصي لنا عدد المهام التي تم توكيل المستخدم بها .. بمعنى عدد المرات التي تكرر فيها اسمه في القائمة المنسدلة .. بشرط .... المهام الخاصة بهذا العام .. أو العام الذي أحدده أنا ... ماهي الطريقة لعمل ذلك ؟ استعلام أم دالة أم ماذا ؟ أفيدونا بارك الله فيكم .. إحصاء من القائمة المتعددة.accdb
  6. للأسف لن أتمكن من عمل نموذج خلال هذه الفترة فمنك العذر .. وسينبري لهذه المهمة خبراء المنتدى إن شاء الله 💪🏼
  7. من قال ذلك ؟!! طبعا ممكن .. لا تيأس تحتاج إلى إضافة استعلام تحديث يبحث عن سيريال الكتاب ويحدث المجموع على حسب نوع الحركة دخول أو خروج . ويشتغل الاستعلام عند الضغط على زر الحفظ ..
  8. حياك الله وبياك جعفر 😄 🌹 بصراحة أحس بالأنس وانت موجود في المنتدى 👍🏼😁 وشكرا على النصيحة 🌹
  9. هلا فعلا النتائج لم تتأثر بالمسافات الزائدة عندك حسب تجربتك؟ أنا كنت أفكر في دالة like أو دالة Trim كحلول لهذه المشكلة ..
  10. شكرا لك أبا جودي .. أفادتني جدا في مشروعي القادم بإذن الله 😉
  11. حلال عليك أخي .. هذي سرقة جائزة 😅 نعم صحيح 100% 👌🏻 ، نِعمَ ما فعلت 👍🏻
  12. ومثل ما قالوا : الناس أذواق .. الترتيب والتنسيق ممتاز .. الألوان محتاجة حبتين تعديلات .. وعشان تاخذ فكرة عن الألوان المتناسقة في تصميم واجهات المستخدم بشكل عام أنصحك تدخل على موقع 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 تحياتي
  13. تم الأمر أخي الحبيب ... عدلت الاستعلام وصار اسمه TAB_RMZQ وغيرت اسم العمود المحسوب الى TOTAL وجعلت هذا الكويري هو مصدر بيانات النموذج FRM_RMZ وأضفت له حقل ال TOTAL هكذا: MusndWZwayid 004.accdb
  14. طبعا مثل هذه العمليات الحسابية لايمكن عملها في الجدول إلا باستعلامات تحديث وهي طريقة ملتوية لا ينصح بها .. ممكن إظهار النتيجة في النموذج وهو ما أراه مناسبا.. لعلي أتمكن من تطبيق ذلك غدا إن شاء الله..
  15. المشكله أنه لايوجد لديك ربط بين الجدولين TAB و TAB_RMZ .. عملتها لك بالطريقة الصعبة 😅 في استعلام اسمه TAB_Q بس طلع بطيئ بسبب الطريقة الملتوية اللي استخدمتها .. أرفقت لك الملف مع علمي بأنها ليست الطريقة المثلى .. وأترك المجال للخبراء الأشاوس MusndWZwayid 004.accdb
  16. أعتقد أن المشكلة ليست في الدالة وإنما في الجدول ، فقد لاحظت أن الجدول يزيد مسافات في الخلايا هكذا : شي آخر .. أنا أحب أن أحل هذه المشاكل بطريقة أسهل كما في المرفق 😁 Test Dcout.mdb
  17. الخطأ هنا أستاذي : Me.txtCount = DCount("*", "[tblTestCount]", myWhere ) ينبغي إضافة الأقواس للجملة mywhere هكذا : Me.txtCount = DCount("*", "[tblTestCount]", """& myWhere &""") والله أعلم
  18. من أي حقل يتم حساب عدد الرموز في جدول (TAB) ؟
×
×
  • اضف...

Important Information