كريمو2

إخواني لقد وجدت طريقة لتعميم مبلغ المشاركة على كل السجلات مع تعميم تاريخ المشاركة Discount_Date في نموذج F1 المطلوب ظهور Msg Box لكل منهما عندما الإكتمال TheDiscount.rar

اين انتم يا إخواني

شكرا أخي على المحاولة للتوضيح لم يقم بتبئعة المبلغ لكافة السجلات وهذا هو المطلوب الصورة توضح

شكرا اخي عبد الله اقصد مرة واحدة فقط خلال شهر مارس والميساجات الأولى ثم الثانية

السلام عليكم إخواني تحية طيبة إخواني اريد مساعدة بخصوص ظهور 2 تنبيهات في فورم المشاركة التنبيه الأول : ظهور MsgBox يشترط علينا ( يلزم كتابة مبلغ الإشتراك في مربع نص "TheDiscount" التنبيه الثاني : ظهور MsgBox ثان يشترط علينا ( هل تريد تعميم مبلغ الإشتراك "TheDi…

انظر التعديل أخي Kri_db1.rar

نحاول وضع هذا في مربع نص Work_Start_history ونرى النتيجة = [Start_Date]+[Duration]+DateDiff("ww";[Start_Date];[Start_Date]+[Duration];6)-Int(6=Weekday([Start_Date]))+DateDiff("ww";[Start_Date];[Start_Date]+[Duration];5)-Int(5=Weekday([Start_Date]))

شكرا كثير أستاذة تم إزالة المشكل والحمد لله Private Sub cmdDiscountDetail_Montadab_Click() If Len(txtMonth) = 0 Or IsNull(txtMonth) Or Not IsDate(txtMonth) Then MsgBox "Error !! SELECT A VALID Date." txtMonth.SetFocus Exit Sub End If On Error GoTo Err_cmdDisco…

شكرا أستاذة على المحاولة هل يمكن التعديل دون الإستغناء عن هذا 'DoCmd.OpenReport "rptDiscountDetail", acPreview, , "(TheSum > 0) AND (detach ='منتدب')", , OpenArgs:="منتدب" Me.Report_Title = "المنتدبين" DoCmd.OpenReport "rptDiscountDetail", acPreview, , , , Ope…

السلام عليكم اساتذة لقد إتبعت طريقة عملتها الأستاذة زهرة بإحدى الأمثلة وحاولت تطبيقها على برنامجي فظهر هذا الميساج طبقا للصورة علما أنه لما إضغط على debug يتحول مباشرة الى الوحدة النمطية كالتالي : Private Sub cmdDiscountDetail_Montadab_Click() If Len(txtMonth)…

وهو كذالك أستاذة زهرة الله مايحرمنا من إطلالتك علينا كل يوم يارب

شكرا استاذنا "حسام" واستاذتنا "زهرة" على المساعدة تم الحل

السلام عليكم وبعد ممكن استاذة مساعدتي في الحساب الكلي للقروض وفقا للصورة

لاحظت أستاذ صورتك ولكن تكون صحيحة حسب الحالات اي ليس دائما تعتبر العملية صحيحة ممكن نزيد مربع نص تحت نهاية الإجازة ويسمى يوم نهاية الإجازة ويكون تلقائيا ومن ثم نضع الحدث عليه لاحظ الصورة أخي عزيز

شكرا أخي حسام على المساعدة التصفية مازالت غير تامة نلاحظ كما في الصورة

شكرا أستاذنا عزيز انت عدلت على يوم بداية الإجازة وليس يوم نهاية الإجازة Private Sub Today_AfterUpdate() If Today = "الخميس" Then [Work_Start_history] = [Work_Start_history] + 2 End If If Today = "الجمعة" Then [Work_Start_history] = [Work_Start_history] + 1 End…

السلام عليكم إخوتي بدي منكم مساعدة ربي يبارك فيكم لديا برنامج اقتطاع من الرواتب الشهرية لكثرة العمال قررت الإدارة توسيع الإقتطاعات على 7 مكاتب فحبيت انا ابرمج هذا آليا وذالك طبقا للبرنامج المرفق كما في الصورة المرفقة ثانيا لما ادخل على الفورم FrmTransfer نجد ب…

نعم تستحق الترقية كمشرفة لقسم الأكسس الف مبروك لعودة استاذتنا ومعلمتنا ام عهود الف مبروك على الترقية ذمت ذخرا لنا وللمنتدى