طاهر اوفيسنا

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

وهو كذلك استاذي العزيز ربي يبارك فيك والان لاحظ عند نقل المبلغ تكون فاصلة العشرات 00 الاصح : 2,180,033.40 - 808,149.33 الخطا : 2,180,033.00 - 808,149.00

للأسف لم يفي بالغرض المطلوب استاذي يعني لم يتم بالتصفية حسب التواريخ

اتعبتك معي استاذي العزيز الم تلاحظ ان البحث كان ينفذ عادي قبل الكود الاخير لجملة الـ strSQL 'FormatDate d1 = Format(Me.Date_First, "MM/dd/yyyy") d2 = Format(Me.Date_End, "MM/dd/yyyy")

انظر الصورة فلربما يتضح لك شيء والمعلومات الي عليها مربع احمر من جدول Bdgi هنا عادي ولكن يقوم بالتصفية حسب السنة strSQL = "INSERT INTO kanory ( a, b, c, d) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi WHERE (((Bdgi.année)= sn));" اما هنا وقع المشكل في التصفية بالتاريخ strSQL = "INSERT INTO kanory ( a, b, c, d) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi WHERE Bdgi.PDG_Date Between #" & d1 & "# And #" & d2 & "#;" DoCmd.SetWarnings (0) DoCmd.RunSQL strSQL DoCmd.SetWarnings (0) 20241030.mdb

المتغيرين d1وd2 هما عبارة عن تاريخين والكود يبحث التواريخ بينهما

هل لاحظت المشكلة في المرفق استاذ عمر

جربت ولم تفلح https://top4top.io/downloadf-32265a2zy0-rar.html

استاذ عمر حولت الكود الي جهة اخرى ولكن هل المرة التصفية مابين تاريخين فوقعت في مشكلة فكيف اعدل على الكود حتى يعمل بشكل صحيح https://e.top4top.io/p_3226i7rku0.jpg

المشكلة اني لم اكن اعرف باجبارية فتح الفورم قبل تنفيذ الاستعلام لهذا ما اشتغل معاي والان الحمد لله تم فتحة واضافة تعديل بسيط عليه وتم نسخ الكود في الوحدة النمطية شكرا لك استاذ عمر ضاحي على سعة الصدر وربي يحفظك ويجعله في ميزان حسناتك strSQL = "INSERT INTO kanory ( a, b, c, d) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi WHERE (((Bdgi.année)=[Forms]![FrmMasarif]![txtYear]));"

سبحان الله يا استاذي العزيز نفس المعلومات ولكن لم يشتغل عندي ولم يظهر لي اي رسالة خطأ للعلم انا أستعمل اكسس 2010

تم انشاء استعلام ونسخ الكود ولكن محبش يتنفذ

تم التصحيح استاذ وبقيت دالة DCount للحساب عدد العمليات وفي الاغلب تكون 1 يعنيd=1 https://d.top4top.io/p_3225m1omw0.png

شكرا استاذ عمر على المساعدة و ايجاد الحل ولكن استاذ الكود اظهر جميع السجلات في الجدول Bdgi اي بدون تصفية حسب السنة هذا من جهة ومن جهة اخرى قيمة d (العدد) غير موجودة في الكود والتي تحصي عدد العمليات année=Forms!FrmMassarif!txtYear

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

نعم هي ما اريد استاذ عمر

شكرا استاذ على الاهتمام والرد ولكن الم تلاحظ ان المعلومات مكررة هي ومبالغها انظر الى الجدول 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

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