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

ابو جودي

أوفيسنا
  • Posts

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

  • Days Won

    208

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

  1. بصراحة حاولت كثيرا وعجزت عن الوصول الى النتيجة التى تطلبها 🎈عيد سعيد🎈
  2. هات مرفق ابين لك عليه الطريقة🎈عيد سعيد🎈
  3. الحمد لله تعالى الذى تتم بنعمته الصالحات سبحان الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله عزوجل سبحانك لا علم لنا الا ما علمتنا انك انت الحكيم العليم فيارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك
  4. 🎈عيد سعيد🎈 السلام عليكم ورحمة الله تعالى وبركاته اولا اخى الكريم وبعد كل عام وانتم بخير لابد من الحفاظ على قواعد وقوانين المشاركات بالمنتيديات باختيار العنوان المناسب الذى يدل على محتوى الموضوع وان تكرمت ارفق نسخة من قاعدة البيانات التى بها هذه المشكلة وان كانت المشكلة بسبب الحجم ارفع القاعدة على ميديا فاير مثلا او اى موقع لرفع الملفات
  5. تم حل المشكلة بفضل الله جذريا لضبط إعدادات التاريخ الهجرى بزيادة او نقصان بدون اى وسائل مساعدة فقط بكود برمجى داهل الاكسس وبفضل الله يعمل 100 % أتمنى من السادة الاساتذة الأفاضل إن امكن ان أتقدم اليهم على استحياء بهذا الطلب وهو استبدال المرفق الاصلى للموضوع بهذا المرفق وعيد سعيد لكل اخوتنا واساتذتنا بالمملكة العربية السعودية وكل عام وانتم بخير وسعادتنا اخوتنا الكرام فى كل بلداننا العربية الوقت والتاريخ عربى V1.0.2.mdb
  6. شوف كده طيب الاول انا غيرت العلاقة فى الاستعلام شوف العلاقة كيف اصبحت وشوف التقرير مصدر بياناته الاستعلام مش الجدول الاستعلام باسم اجازات استعلام 555(1).accdb
  7. طبعا تقدر تعمل نموذج وتغير المعيار فى الاستعلام بما يتناسب مع النموذج وتقدر تبنى التقرير على هذا الاستعلام
  8. اتفضل عدلت لك حبة حجات كده للافضل db4_6.mdb
  9. لا فى شئ غريب هو ده صح فى الكود If case_cod = 7 Then db.Execute "insert into key (setno,secr1,case_cod) values (" & x1 & "," & y & "," & x & ")" khaled = "تريكو" Else If case_cod = 7 Then db.Execute "insert into key (setno,secr1,case_cod) values (" & x1 & "," & y & "," & x & ")" khaled = "نسيج" case_cod = 7 مرتين
  10. اخى الحبيب لا انتظر ان تقول اى شئ يكفينى سعادتك بوجودك للحل الذى كنت تتمناه فقط وحزاكم الله خيرا على دعواتكم الطيبة اسال الله ان يرزقكم بأكثر ما دعوتم لى لو الطربقة فى الحل تحتاج لشرح لا تتردد
  11. Public Function numbr(myData) myData = Replace(myData, "1", "يوم") myData = Replace(myData, "2", "يومان") myData = Replace(myData, "3", "ثلاثة أيام") myData = Replace(myData, "4", "أربعة أيام") myData = Replace(myData, "5", "خمسة أيام") myData = Replace(myData, "6", "ستة أيام") myData = Replace(myData, "7", "سبعة أيام") myData = Replace(myData, "8", "ثمانية أيام") myData = Replace(myData, "9", "تسع أيام") myData = Replace(myData, "9", "عشرة أيام") numbr = myData End Function
×
×
  • اضف...

Important Information