طاهر اوفيسنا

شكرا استاذ على الاهتمام والرد ولكن الم تلاحظ ان المعلومات مكررة هي ومبالغها انظر الى الجدول bdgi وعند السنة 2024

هل من مساعدة يا أساتذة

طلبي مفهوم يا اساتذة ام لا

السلام عليكم اساتذتي الكرام عند فتح التقرير المطلوب نقل كل سجل من الجدول لوحده بمبلغه كل على حدى مع مراعاة التصفية 'عدم الظهور" عندما يكون المبلغ 0.00 كما في الصورة rs.AddNew rs!a = DLookup("[Obsérvation]", "BDGI", " ([année])=" & Forms!FrmMasarif!txtYear) rs!b = Nz(DSum("[PDG_Pr]", "[BDGI]", Cretiriatt1), 0) rs!c = "02- المداخيل ( الموارد)" rs.Update 20241028.mdb

شكرا لكم اساتذة ولو انه لم يتم فهمكم للمطلوب ولكن اجابتكم ومساعدتكم وفت وكفت Dim haj As Boolean haj = IIf(DLookup("Menha_ID", "Mena7", "EmployeeID =" & Me.EmployeeID) = 11, True, False) hajAnne = DLookup("annee", "Mena7", "EmployeeID =" & Me.EmployeeID) If haj = True Then MsgBox "هذا الموظف مستفيد من منحة الحج خلال سنة " & hajAnne: Me.Undo: Exit Sub

السلام عليكم اساتذتي الكرام كيف يتم التعديل على دالة DLookup Dim Omra As Boolean Omra = IIf(DLookup("omra", "omra", "EmployeeID =" & Me.EmployeeID) = -1, True, False) OmraAnne = DLookup("année", "omra", "EmployeeID =" & Me.EmployeeID) If Omra = True Then MsgBox "هذا الموظف مستفيد من منحة العمرة خلال سنة " & OmraAnne: Me.Undo: Exit Sub حيث ان الجدول المعني هو Mena7 والشرط هو Menha_ID=11 و année= annee Omra= Haj وشكرا

كيف يتم المحو استاذ للعلم أنه ليس لسجل واحد فقط بل معه سجلات لمجموعة كبيرة من العمال في البرنامج الاصلي وهذا بمجرد عينة للتعديل عليها انا شبه وجدت الحل في الرقم الترتيبي التلقائي الموجود فيtbl_loans

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

استاذ في المرفق ادخل على العامل رقم 82 وانظر سداد المبلغ بقي يحذف الا سجل هذا العامل فقط نفهم فما خلل في الكود 20240319.mdb

نفهم استاذ أبوبسملة انك اضفت متغير في الفورم FrmCridi Public Frm As String If Form_FrmCridi.Frm = "Cridi" Then شكرا لك استاذ على المساعدة ولكن لما اضفت ما تم تعديله من طرفك على البرتامح الاصلي لاحظت ان الكود مزال يحذف في السجلات

للرفع

اساتذتي الكرام المشكلة تكمن هنا وفق الصورة

السلام عليكم اساتذتي الكرام رمضان كريم - تقبل الله منا ومنكم الصيام والقيام ظهرت لي مشكلة مؤخرا وهي عند الدخول على سداد المبلغ الكود يحذف لي مبالغ مالية وبالضبط في قيمة الاقتطاع والمبلغ الشهري للاقتطاع الرجاء مساعدتي في حل المشكلة وشكرا 20240315.mdb

لم اتمكن من تنصيبه من جديد ومنقدرش نفرماطي الجهاز نظرا لوجود برنامج خاص إذا فيه برنامج يقضي على هذا الفيروس افيدوني به رجاءا وشكرا لكم

وهو كذالك استاذنا القدير أبوخليل شكرا لك ربي يحفظك

شكرا استاذ Foksh على المجهودات المبذولة نتمنى من الأساتذة الكرام يد مد العون وربي يجازي الجميع

لم يشتغل المرفق كما هو مطلوب استاذ Moosak المطلوب عند الضغط على TxtMonth مرتين يفتح التقرير rptTransfer_BEA_Ccp مباشرة وبدون اي ميساجات ادخال معلومة

نعم حسب السنة والشهر والامر مختلف على الاول استاذ

اين المساعدة

اليك المرفق للتعديل VermCcp.accdb

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

السلام عليكم اساتذة لقد عملت بالكود المعدل لفتح فورم من طرف الاستاذين Moosak و ابوخليل لفتح التقرير فوجدت صعوبة في ذلك Private Sub TxtMonth_DblClick(Cancel As Integer) If Me.TheValue <> 0 Then DoCmd.Close Dim stDocName As String stDocName = "rptTransfer_BEA_Ccp" DoCmd.OpenReport stDocName, acPreview, , , "month([TxtMonth]) =" & Year([TxtMonth]) Abou_Taha End If End Sub

وهو كذلك مشكور استاذنا الكريم ابوخليل

استاذ وجدت مشكلة وهي عدم التصفية بالسنة