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

omarahmed1424

03 عضو مميز
  • Content count

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

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

السمعه بالموقع

18 Good

1 متابع

عن العضو omarahmed1424

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    معلم

اخر الزوار

588 زياره للملف الشخصي
  1. جزاكم الله خيرا على الاستجابة للطلب
  2. هل من الممكن عرضه هنا ليستفيد الجميع وجزاكم الله خيرا
  3. السلام عليكم ورحمة الله وبركاته وبعد ... أشكر الأعضاء الأساتذة الكبار على بذل المجهود للوصول للهدف والاستجابة السرعة وأعتذر عن عدم البحث في المنتدى العملاق قبل القيام بإدراج موضوع جديد ولكنها العجلة فقد وجدت موضوعا مشابها لما أطلبه على الرابط . وأكرر للجميع الشكر والتقدير وأنتهز الفرصة لأذكر أخي وحبيبي وأستاذي أ / جعفر بموضوع مسقط التقارير الإصدار الجديد الملبي لطموح الأحباء الشغوفين به .
  4. السلام عليكم ورحمة الله وبركاته الأخوة الاعزاء أعضاء المنتدى الكرام في جزء من البرنامج الخاص بمدارسنا يتم تسجيل الغياب للطلاب ولكن ما أعاني منه هو إدخال الغياب لنفس الطالب بنفس الطالب مرتين ولذا أفكر في عمل كود أو أمر لقراءة القيم في الجدول وحذف التكرار وترك الغياب مرة واحدة للطالب الواحد في اليوم الواحد فهل هذا ممكن ؟؟؟
  5. كود إظهار مكان الملف

    كل الشكر لأساتذتي على سرعة الاستجابة لطلبي جزاكم الله خيرا
  6. السلام عليكم ورحمة الله وبركاته وبعد ... الاخوة أعضاء المنتدى المحترمون ارجو تزويدي بكود يوضع في النموذج الرئيسي للبرنامج يوضح مسار ملف البرنامج على جهاز الكمبيوتر ولكم جزيل الشكر .
  7. جزاكم الله خيرا على السعي والاجتهاد في حل المشكلة
  8. جزاكم الله خيرا على السعي والاجتهاد في حل المشكلة
  9. السلام عليكم ورحمة الله وبركاته وبعد أعضاء المنتدى المحترمون ... لدي مجموعة جداول أريد وضع زر في النموذج لحذف محتوياتها وضعت الكود التالي ولم تنجح المحاولة فهل هناك تعديل للوصول للمطلوب DoCmd.SetWarnings False DoCmd.RunSQL "DELETE AuditTable.* FROM AuditTable;" DoCmd.RunSQL "DELETE Copy Of BEIRUT.* FROM Copy Of BEIRUT;" DoCmd.RunSQL "DELETE Loc_tbl_Blob.* FROM Loc_tbl_Blob;" DoCmd.RunSQL "DELETE moaqef.* FROM moaqef;" DoCmd.RunSQL "DELETE student_moaqef.* FROM student_moaqef;" DoCmd.RunSQL "DELETE tbl_Animals.* FROM tbl_Animals;" DoCmd.RunSQL "DELETE temp.* FROM temp;" DoCmd.RunSQL "DELETE Temp_date.* FROM Temp_date;" DoCmd.RunSQL "DELETE TempAccountTbl.* FROM TempAccountTbl;"
  10. السلام عليكم ورحمة الله وبركاته وبعد ... أستاذي العزيز جعفر والله الطلب زاد من زمن وفي شوق لرؤية الإصدار الجديد ربنا يوفقك ونشوف الجديد يارب
  11. السلام عليكم ورحمة الله وبركاته وبعد ... أعضاء المنتدى المحترمون ... خطرت لي فكرة حيث أنني من عشاق الاستماع للإذاعة وفي ذات الوقت أصبحت أعمل بكثرة على الأكسيس فلماذا لا ندمج جزءا للإستماع إلى الإذاعات عبر الإنترنت مصنوعا بالأكسيس في برامج الأكسيس كخدمة للمتلقي . بحثت في المنتدى ومنتديات أخرى ولم أجد نتيجة فهل من نتيجة لدى عباقرة المنتدى ونعمل سويا على تطوير الموضوع حيث يصل للمتلقي في أحسن صورة . وجزاكم الله خيرا ...
  12. السلام عليكم ورحمة الله وبركاته وبعد ... سبحان الله صدقني جربت الكود بنفس التركيب مرات متعددة ولم يفلح ولما رأيت إجابتك وكررت التجربة تم المطلوب وجزاكم الله خير أ فكأن الله يريد أن يكتب لك أجر المساعدة فجزاكم الله خيرا للمرة الثانية وشكرا لك
  13. السلام عليكم ورحمة الله وبركاته وبعد . ... أعضاء المنتدى المحترمون كنت أستخدم الأمر التالي لحساب القيمة المضافة لجميع الطلاب وتحديث السجلات عن طريق وضعه على حدث عند النقر لزر Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.tot_rosoom Me.alqima_almodafa.Value = ((Nz(Me.rosoom.Value, 0) + Nz(Me.bus.Value, 0) + Nz(Me.last_year.Value, 0) - Nz(Me.owner.Value, 0)) - (Nz(Me.tot_pay.Value, 0))) / 100 * 5 Me.tot_rosoom.Value = Nz(Me.rosoom.Value, 0) + Nz(Me.bus.Value, 0) + Nz(Me.last_year.Value, 0) + Nz(Me.alqima_almodafa.Value, 0) - Nz(Me.owner.Value, 0) Me.rest = Me.tot_rosoom.Value - Me.tot_pay.Value DoCmd.GoToRecord , , acNext Next End Sub وتعبت اليوم وأنا أبحث عن طريقة لحساب ضريبة القيمة المضافة وتحديثها على السجلات باستخدام نفس الكود ولكن بوضع شرط الجنسية حيث أن هناك حقل في نفس النموذج يحمل الجنسية تحت اسم nationality_code وجنسية غير السعوديين كودها أكبر من 1 فهل توجد طريقة لتنفيذ ذلك بقاعدة إف مثلا أو بزيادة أي معطيات مناسبة على الكود وجزاكم الله خير
  14. السلام عليكم ورحمة الله و بركاته بعد ... عمل النسخ للجداول فهل تتكرم علينا بكيفية نسخ النماذج أو الاستعلامات أو الوحدات النمطية واستبدالها . ولكم جزيل الشكر
  15. السلام عليكم ورحمة الله وبركاته وبعد ... ممتاز ورائع جزاكم الله خيرا وسعدتم في الدنيا والآخرة .
×