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

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

  1. عمر ضاحى

    عمر ضاحى

    04 عضو فضي


    • نقاط

      4

    • Posts

      544


  2. lionheart

    lionheart

    الخبراء


    • نقاط

      3

    • Posts

      397


  3. احمد الفلاحجي

    احمد الفلاحجي

    الخبراء


    • نقاط

      3

    • Posts

      602


  4. مهند  محسن

    مهند محسن

    04 عضو فضي


    • نقاط

      2

    • Posts

      1,034


Popular Content

Showing content with the highest reputation on 01 ماي, 2022 in all areas

  1. Sub Test() Dim rng As Range Application.ScreenUpdating = False With ActiveSheet Set rng = .Range("H2:L" & .Cells(Rows.Count, "H").End(xlUp).Row) With rng With .Columns(.Columns.Count) .Formula = "=MATCH(H2,B:B,0)" .Value = .Value rng.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlYes .ClearContents End With End With End With Application.ScreenUpdating = True End Sub
    3 points
  2. الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بالتوفيق
    2 points
  3. بسيطة وسهلة طبعاً غير بناءاً على الخلايا الموجود بالفعل البيانات بها وشكراً !!!! بمعنى ستصبح المعادلة هكذا , طبعاً بعد اذن استاذنا الكبير ابراهيم الحداد له منا كل الإحترام وبارك الله فىه =IF(COUNTIF($B2:$L2,"دون المستوي")=0,"منقول للصف السادس ",IF(B2="دون المستوي",$B$1&" - "&IF(E2="دون المستوي",$E$1&" - "&IF(G2="دون المستوي",$G$1&" - "&IF(J2="دون المستوي",$J$1&" - "&IF(K2="دون المستوي",$K$1&" - "&IF(L2="دون المستوي",$L$1,""))))))) test1.xlsx
    2 points
  4. بسم الله الرّحمن الرحيم السّلام عليكم ورحمة الله تعالى وبركاتهُ إخوتي ي الله؛ رُوّاد موقع أوفيسنا المُباركون. فيما يلي موقع رائع لمُحبّي التصميم. يمكنّهم من تصميم بطاقات المُعايدة الخاصة بهم؛ في أقل من دقيقة في الموقع مباشرة! ............................ موقع مُميّز وسهل الاستخدام لعمل بطاقات المُعايدة الخاصّة بك. رابط الموقع: https://btaqaat.com/ كُلّ عام وأنتُم إلى الله تعالى أقرب. في أمان الله.
    1 point
  5. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية الرمضانية المتميزة والرائعة 😊 ( الكاتب الذكي الآلي لدوال المجال في أكسس ) Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg هذه الأسطورة هي عبارة عن أداة صممتها في أكسس ( بفضل الله وحمده ) تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. وتعطيك النتيجة بشكل مباشر 😉👌🏼 لن يخطيء أحد بعد اليوم في كتابة جملة هذه الدوال إن شاء الله 😁 كل ما عليك فعله هو استيراد هذه الأداة لبرنامجك ثم اختيار الجدول أو الاستعلام المطلوب والحقل المراد وبعدها سترى العجب العجاب 🙂 ✨ ومن مزاياها :✨ 1 - تسهل عليك كتابة أسماء الجداول والحقول ( فقط تختارها من القائمة المنسدلة ) . 2- يحل مشكلة تداخل النصوص عند استخدامها مع الجداول والحقول المكتوبة باللغة العربية . 3- تفحص لك النتيجة مباشرة للتأكد من أنك ستحصل على البيانات التي تريدها . 4 - سهلة الاستخدام فقط اتبع الخطوات الموضحة وتأكد من اختيار نوع البيانات الصحيح . 5 - يمكنك عمل دالة بأربعة 4 معايير بكل سهولة ويسر . 6 - يمكنك عمل تعديلاتك الخاصة على الدالة مباشرة وفحص النتيجة مباشرة بعد التعديل على النتيجة النهائية . 7 - إمكانية الحصول على الصيغة الخاصة بمحرر الأكواد VBA أو الصيغة المستخدمة في الاستعلامات ومنشيء التعبير . 8- إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها إلى برنامجك . 9- وغيرها الكثير مما سيفتح الله عليكم اكتشافه بأنفسكم إن شاء الله 😅 طريقة الاستخدام : سهلة يسيرة بحمد الله .. فقط قم بسحب النموذج المسمى SmartDomainFunctionsBuilder_F إلى برنامجك عن طريق السحب والإفلات .. ثم قم بفتح النموذج عندك وسوف يقوم هو آليا بالتعرف على الجداول والاستعلامات الخاصة ببرنامجك بدون الحاجة إلى جهد يذكر 🙂 ( مع إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها لبرنامجك ولكنك ستفقد الكثير من المميزات 😉 ) الأداة تم عمل الكثير من التجارب عليها وتم تلافي العديد من الأخطاء وإصلاحها بحمد الله وفضله... ولكن لا زلت لا أستغني عن آراءكم وملاحظاتكم من خلال استخدامكم لها 😉 الشرح بالتفصيل : 🙂 وهنا قمت بشرح الأداة بشكل مفصل نوعا ما في مقطع فيديو مدته نصف ساعة تقريبا : وأخيرا التحميل 😊 تحميل الملف الأصلي : ‏‏Domain Functions Builder V1.0.accdb تحميل الملف بلمسات المهندس العزيز @د.كاف يار : د.كاف يار __Domain Functions Builder V1.0.accdb وأهم من الأداة نفسها 😉 لا تنسوني من صالح دعائكم لي ولوالدي .. ولا تحرموني من آرائكم ومقترحاتكم ونصحكم وإرشادكم 🙂 أخوكم ومحبكم موسى الكلباني 😊
    1 point
  6. أهني جميع اعضاء المنتدى الرائع بمناسبة قدوم عيد الفطر المبارك ، واسئل الله ان يديم عليكم الصحة والعلم والعافية تحايتي اخوكم عمار
    1 point
  7. لو تكرمت بكتابة جمل ال SQL لبعض الاستعلامات حتى نفهم العلاقة بينها
    1 point
  8. ماذا عن قوتك فى مجال استعلامات الاكسس العادية ؟ يمكنك عمل استعلام الحاق او حذف او تعديل فى الاكسس ثم نسخ جملة ال sql الخاصة به ووضعها فى المكان الذى كتبته لك . اذا لم تكن تستطيع عمل استعلام بالاكسس انصحك بالبحث عن دروس اولا ثم البحث عن كل ما يخص Recordset فى المنتدى هنا وستجد جميع انواع الاستعلامات طبق عليها ما تعلمته , ثم اخيراً الدخول الى المستوى المتقدم والاتصال بالSql اعذرنى لضيق الوقت وصلاة العيد صباحاً .. كل عام وانتم بخير .. واتمنى لك التوفيق
    1 point
  9. باعتذر لك عن عدم قدرتى على تقديم المساعده بسبب ضعف قدرتى وعلمي فى هذا الجانب لك ان تنتظر احد اساتذتى الكرام فى تقديم المساعده لك
    1 point
  10. معرفش اذا كانت هذه الاكواد تعمل معك ام لا لكن يمكن ان تجرب للاضافة Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("TablName", dbOpenDynaset) With rst .AddNew ![Name1] = me.txt1 ![Name2] = me.txt2 .Update .Close End With Set rst = Nothing db.Close Set db = Nothing للتعديل Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("TablName", dbOpenDynaset) With rst .FindFirst Criteria:="[ID]="&me.txtID If Not .NoMatch Then .Edit ![Name1] = me.txt1 ![Name2] = me.txt2 .Update End If .Close End With Set rst = Nothing db.Close Set db = Nothing
    1 point
  11. حل باستخدام اعمدة مساعدة ودالة TEXTJOIN في المرفق test.xlsx
    1 point
  12. السلام عليكم ورحمة الله وبركاته جرب المرفق التالي ارجو ان يكون موافق لمرادك عملي بالمرفق كان: (علي حسب ما فهمت من المثال المقدم من سيادتكم) 1- قمت بانشاء دالة لجلب الرصيد السابق بين التاريخ المحدد وبداية السنة المالية المحددة في الفورم 1 الدالة بسيطة صغيرة الحجم وتحوي الشرح بداخلها لكل سطر تقريبا. 2- تم التعديل علي الاستعلام الذي انشأته حضرتك (رصيد سابق) واضفت فيه عمود لجلب الرصيد السابق لكل عميل. 3- وتم حذف الاستعلامين الآخرين (رصيد سابق2 و رصيد سابق3) لعدم الحاجة اليهما 4- تم انشاء تقرير لعرض الرصيد السابق لكل العملاء والتعديل علي زر (رصيد سابق لكل مصادر التمويل) لعرض التقرير هذا والله اعلم وأسأل الله لي ولكم القبول والتوفيق لكل خير وان يختم لنا الشهر بعتق رقابنا من النار وان يختم لنا حيتنا بعمل صالح يقبضنا عليه وهو راض عنا آمين T2Q - Copy.accdb
    1 point
  13. فورم ترحيل ايات القران الكريم من التكست بوكس الى خلية الاكسل باى عدد من الكلمات الحيوانات والحشرات والطيور فى القران الكريم الملف اسفل الفيديو
    1 point
  14. وعليكم السلام ورحمه الله وبركاته طيب ليه عاوز هذه القيم فالجدول بما انه يمكنك الحصول عليها فى الاستعلامات وافضل والعمل عليها ؟ اتفضل تم استخدام استعلام تحديث وليس الحاق بالتوفيق Database_3.accdb
    1 point
  15. تفضل If Not (rst.BOF And rst.EOF) Then Do Until rst.EOF If rst.Fields(2).Value = 1 Then Me.Txt_namcity.AddItem (rst.Fields(0).Value & ";" & rst.Fields(1).Value) End If rst.MoveNext Loop End If combo5.rar
    1 point
  16. كل عام وأنتم بأتم صحة وعافية ، تقبل الله منا ومنكم الصيام وصالحات الأعمال ، وهنأتم بالعيد السعيد ، أعاده الله علينا وعليكم باليمن والبركات 🙂🌷🌹
    1 point
  17. كل سنة و انتم جميعا طيبين و بخير
    1 point
  18. كل عام وحضراتكم طيبين يا رب أسرة المنتدى الكرام إعاده الله عليكم بالخير واليمن والبركات
    1 point
  19. كل عام وانتم واساتذتنا الكرام بألف خير نسأل الله تعالى ان يديم على الجميع نعمة الايمان
    1 point
  20. تقبل الله منا ومنك صالح الاعمال عيد مبارك للجميع اعضاء المنتدى
    1 point
  21. كل سنه وانتم طيبين ويتقبل الله منا ومنك صالح الاعمال وعيد مبارك للجميع
    1 point
  22. انا فعلا عملت كده لكن لقيته بيغلق النموذج الفرعي والنموذج الرئيسي انا عاوز اغلق النموذج المتفعل فقط (ال مفتوح فى وجهي فقط) مش يقفل كل النماذج مره واحده
    1 point
  23. وجزاكم بمثل ما دعوتم ...آمين حياكم الله
    1 point
  24. جزاك الله خير ويرحم والديك وزادتك الله من فضله وعلمه
    1 point
  25. السلام عليكم ورحمة الله وبركاته 💐 تفضل اخي الكريم =IF(A2="";""; IF(A2>=1000;A2*1500;IF(AND(A2<1000;A2>0);A2*750;0))) ضرب المبلغ اذا كان اقل من 1000.xlsx
    1 point
  26. السلام عليكم ماهي الطريقه التي يمكن بها ربط موقع انترنت ببرمجه php على الاكسس والتصفح منه وكانك تستخدم متصفح داخل الاكسس ؟ عند استخدام اداه الويب تظهر لي هذي الرساله
    1 point
×
×
  • اضف...

Important Information