• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

كريمو2

اعضاء
  • عدد المشاركات

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

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

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

16 عادي

عن كريمو2

  • الرتبة
    عضو فعال

معلومات الملف الشخصي

  • الجنس ذكر
  1. السلام عليكم إخواني ممكن مساعدة بخصوص إختيار اسم الموظف تظهر رتبته وفق المرفق أدناه   Grade.rar Grade.rar
  2. اين انتم يا أساتذتنا الكرااااااام  !!!!!!!!!
  3. السلام عليكم إخواني ممكن مساعدة بخصوص حساب باقي الإجازات وترصيده الى سنة جديدة مثلا موظف لديه إجازة سنوية لسنة 2014 مقدرة ب 50 يوم  وله باقي إجازات سنوات أخرى مقدر ب 70 يوم إستهلك منها 30 يوم باقي له 90 يوم  هذه 90 يوم ترصد الى السنة القادمة 2015 مثلا مع العلم ان كل عامل إذا بلغ سنوات العطل  تحسب له العطلة 50يوم إبتداء من شهر جويلية 2013 إلى غاية شهر جوان 2014 ومدة الإجازة 50 يوم من كل سنة  مع جعل زر ترحيل باقي الإجازات الى السنة القادمة ارجو المساعدة اجازة.rar
  4. السلام عليكم هذه الأكواد من عمل احد الأساتذة *- اذا كنت ترغب في العدد لمرات التشغيل ضع التعليمات في نموذج بدء التشغيل   'تصريح لمتغيراتDim Gts, Sav As Byte, NmFil As String'اسم الملف الحاليNmFil = CurrentProject.NameOn Error Resume Next'نبحث عن اسمه في الرجستري للحصول على قيمتهGts = GetSetting("StartNet", "MyDemo", NmFil, Sav)'اضافه واحد في كل مره تشغيلSav = Gts + 1' في المسار المحدد يتم تخزين القيمه الجديده في الرجستري'HKEY_USERS\***********\Software\VB and VBA Program Settings\startNet\myDemo\اسم_الملفSaveSetting "StartNet", "MyDemo", NmFil, Sav'اذا وصل العدد الىIf Sav > 30 ThenMsgBox "انتهت التجربة"DoCmd.QuitElseMsgBox ("مرات التشغيل المتبقية هي " & 30 - Sav)End If*- أو التاريخ 'تصريح لمتغيراتDim Gts, Sav As Date, NmFil As String'اسم الملف الحاليNmFil = CurrentProject.NameOn Error Resume NextSav = Date'نبحث عن اسمه في الرجستري للحصول على قيمتهGts = GetSetting("startNet", "myDemoDate", NmFil)' في المسار المحدد يتم تخزين القيمه الجديده في الرجستري اذا لم تكون مسجلة'HKEY_USERS\***********\Software\VB and VBA Program Settings\startNet\myDemoDate\اسم_الملفIf Gts = "" ThenSaveSetting "startNet", "myDemoDate", NmFil, SavExit SubEnd If'اذا التاريخ تجاوز المدهIf DateDiff("d", CDate(Gts), Sav) > 10 ThenMsgBox "انتهت التجربة"DoCmd.QuitElse MsgBox " عدد ايام التشغيل المتبقية هي " & 10 - DateDiff("d", CDate(Gts), Sav)End If
  5. السلام عليكم إخواني من دواعي الإهتمام والحب الكبير الذي لا يقدر بثمن لأستاذنا jjafferr   الذي لم نلاحظ بصماته منذ مدة عبر هذا الصرح  اتمنى ان يكون بالف خير يارب نتمنى عودته بيننا قريبا  
  6. شكرا لك اخي kodor1985 على المجهود الرائع  ولكن مافهمنا مالمغزى من مقارنة قاعدة البيانات هذه مع قاعدة بيانات أخرى ولما تتم المقارنة وماذا يحدث بعدها ياريت تفصيل ولو وجيز عن الفكرة وجزاك الله كل خير
  7. وضع الصفر بدلا من فراغ

    شكرا لكم  لقد وجدت ضالتي بطريقة اخرى  وهي دالة IIF بمربع النص بالتقرير  =IIf(([SSSS_Cridi])>0;[SSSS_Cridi];0)
  8. السلام عليكم  مساعدة بخصوص هذه المطلوب : اذا لم يوجد مبلغ يوضع 0.00 بدلا من فراغ كما في الصورة SSSS_Cridi: (SELECT SUM(DiscountPerMonth) FROM Cridi WHERE Cridi.EmployeeID = Employee.EmployeeID AND (CDATE([Forms]![FrmDiscountReport]![txtMonth]) BETWEEN CDATE(format(format(DiscountStartDate , "yyyyMM") &"01" , "####/##/##")) AND CDATE(format(format(DiscountEndDate , "yyyyMM") &Day(DateSerial(Year(DiscountEndDate), Month(DiscountEndDate) + 1, 0)) , "####/##/##") )) AND DiscountStartDate IS NOT NULL AND DiscountEndDate IS NOT NULL)
  9. السلام عليكم ورحمة الله وبركاته ,,,   عملت لك  المطلوب (1) و المطلوب (2) ,,   لاحظ بيني وبينك    بقي الطلب رقم (3)    امس مافهمت طلبك الأخير الا اليوم      الفريق العربي2.rar   ساحاول جعل لك تنبيه بتاريخ بداية العمل او بتاريخ نهاية الإجازة
  10. عفوااااا المرفق لم يتم تحميلة بصورة صحيحة
  11. مساعدة في شرط السن

    اخي ناصر السلام عليكم اعتقد ان الحقول المحسوبه في الجداول تتعارض مع سلامه قواعد البيانات ملاحظة : الاصل في الجدول لتخزين البيانات المختلفه كافه اما الحسابات فجيب ان تكون اما في الإستعلام او النموذج  وان اصريت على ذالك اليك هذا المثال جرب ادخال تاريخ الميلاد عند أخر اسم في السجل وهو ناصر وانظر النتيجة في الجدول  age.rar
  12. وعليكم السلام اخي ناصر انظر هذا المثال عسى ان ينفعك       تصفية حسب الرتبة.rar
  13. مشكلة عدم فتح التقارير

    وعليكم السلام اخي جعفر لديا طابعة وحيدة وهي hp1018 وهي تعمل مع الورد والإكسل الا الأكسس فلا
  14. مشكلة عدم فتح التقارير

    المشروع في جهاز أخر يعمل بصفة عادية ولكن في جهازي وبعد تغيير الونداوز الى 7 اصبحت التقارير لا تعمل ولا تفتح حتى في وضع التصميم