كريمو2 قام بنشر أكتوبر 28 مشاركة قام بنشر أكتوبر 28 (معدل) السلام عليكم اساتذتي الكرام عند فتح التقرير المطلوب نقل كل سجل من الجدول لوحده بمبلغه كل على حدى مع مراعاة التصفية 'عدم الظهور" عندما يكون المبلغ 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 تم تعديل أكتوبر 28 بواسطه كريمو2 رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 29 الكاتب مشاركة قام بنشر أكتوبر 29 طلبي مفهوم يا اساتذة ام لا رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 30 الكاتب مشاركة قام بنشر أكتوبر 30 هل من مساعدة يا أساتذة رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أكتوبر 30 مشاركة قام بنشر أكتوبر 30 في 28/10/2024 at 21:09, كريمو2 said: السلام عليكم اساتذتي الكرام عند فتح التقرير المطلوب نقل كل سجل من الجدول لوحده بمبلغه كل على حدى مع مراعاة التصفية 'عدم الظهور" عندما يكون المبلغ 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 2 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 16 downloads انا شايف ان بالفعل موجوده ولا انت محتاج حاجه تاني انا مش قادر افهمها رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 30 الكاتب مشاركة قام بنشر أكتوبر 30 (معدل) شكرا استاذ على الاهتمام والرد ولكن الم تلاحظ ان المعلومات مكررة هي ومبالغها انظر الى الجدول bdgi وعند السنة 2024 تم تعديل أكتوبر 30 بواسطه كريمو2 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أكتوبر 30 مشاركة قام بنشر أكتوبر 30 29 دقائق مضت, كريمو2 said: شكرا استاذ على الاهتمام والرد ولكن الم تلاحظ ان المعلومات مكررة هي ومبالغها انظر الى الجدول bdgi وعند السنة 2024 اها فهمت بعد ما بصيت فى الكود بتاعك ملاحظ انك مكرر الخطوه 3 مرات ف انت بتحاول تعمل التقرير ازاي ؟ وممكن لتقليل الاخطاء استخدم اولا الاستعلامات المباشرة ولما يكون كله تمام ممكن تحولها لاكواد بدل الاسطر ال اتخضيت لما شفتها بصراحه ما شاء الله مجهود كبير وبكده هتوفر مجهود اكبر رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أكتوبر 30 مشاركة قام بنشر أكتوبر 30 هل تريدها هكذا ؟ رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 30 الكاتب مشاركة قام بنشر أكتوبر 30 نعم هي ما اريد استاذ عمر رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أكتوبر 30 مشاركة قام بنشر أكتوبر 30 (معدل) 4 دقائق مضت, كريمو2 said: نعم هي ما اريد استاذ عمر كل ما عليك استيدل الذى تم الاشارة اليه هنا 32 دقائق مضت, عمر ضاحى said: اها فهمت بعد ما بصيت فى الكود بتاعك ملاحظ انك مكرر الخطوه 3 مرات ف انت بتحاول تعمل التقرير ازاي ؟ وممكن لتقليل الاخطاء استخدم اولا الاستعلامات المباشرة ولما يكون كله تمام ممكن تحولها لاكواد بدل الاسطر ال اتخضيت لما شفتها بصراحه ما شاء الله مجهود كبير وبكده هتوفر مجهود اكبر بهذا الكود Dim strSQL As String strSQL = "INSERT INTO kanory ( a, b, c ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1 FROM Bdgi;" DoCmd.SetWarnings (0) DoCmd.RunSQL strSQL DoCmd.SetWarnings (0) تم تعديل أكتوبر 30 بواسطه عمر ضاحى رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 30 الكاتب مشاركة قام بنشر أكتوبر 30 طبقت الكود استاذ ولكن وجدت مشكلة ياريت ترفق المرفق لكي اعرف أين تم الخطأ رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أكتوبر 30 مشاركة قام بنشر أكتوبر 30 20 دقائق مضت, كريمو2 said: طبقت الكود استاذ ولكن وجدت مشكلة ياريت ترفق المرفق لكي اعرف أين تم الخطأ اتفضل 20241028.rar رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 30 الكاتب مشاركة قام بنشر أكتوبر 30 (معدل) شكرا استاذ عمر على المساعدة و ايجاد الحل ولكن استاذ الكود اظهر جميع السجلات في الجدول Bdgi اي بدون تصفية حسب السنة هذا من جهة ومن جهة اخرى قيمة d (العدد) غير موجودة في الكود والتي تحصي عدد العمليات année=Forms!FrmMassarif!txtYear تم تعديل أكتوبر 30 بواسطه كريمو2 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أكتوبر 30 مشاركة قام بنشر أكتوبر 30 7 دقائق مضت, كريمو2 said: شكرا استاذ عمر على المساعدة و ايجاد الحل ولكن استاذ الكود الظهر جميع الوجبات في الجدول Bdgi اي بدون تصفية ann année=Forms!FrmMassarif!txtYear تقدر تعدل فى الكود لانه فى الاصل هو استعلام استبدل الاستعلام بهذا السطر strSQL = "INSERT INTO kanory ( a, b, c ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1 FROM Bdgi WHERE (((Bdgi.année)=[Forms]![FrmMasarif]![txtYear]));" رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 30 الكاتب مشاركة قام بنشر أكتوبر 30 (معدل) تم التصحيح استاذ وبقيت دالة DCount للحساب عدد العمليات وفي الاغلب تكون 1 يعنيd=1 https://d.top4top.io/p_3225m1omw0.png تم تعديل أكتوبر 30 بواسطه كريمو2 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أكتوبر 30 مشاركة قام بنشر أكتوبر 30 2 ساعات مضت, كريمو2 said: تم التصحيح استاذ وبقيت دالة DCount للحساب عدد العمليات وفي الاغلب تكون 1 يعنيd=1 https://d.top4top.io/p_3225m1omw0.png هعطيك طريقة سهله انسخ هذا الاستعلام INSERT INTO kanory ( a, b, c ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, "02- المداخيل ( الموارد)" AS Expr1 FROM Bdgi WHERE (((Bdgi.année)=[Forms]![FrmMasarif]![txtYear])); وعدل عليه فى الاستعلامات وبعد ما تاخد النتيجة التى تريدها انسخ الكود من الاستعلام وحطه بدل الكود الحالي بس انتبه فى ال vba " فى وسط الجمله هتعمل ربكه للكود فلازم تكون "" يعني هنا كمثال ""02- المداخيل ( الموارد)"" هتكون فى كود ال vba هكذا "02- المداخيل ( الموارد)" دي هتكون فى السيكول (الاتسعلام) رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 30 الكاتب مشاركة قام بنشر أكتوبر 30 تم انشاء استعلام ونسخ الكود ولكن محبش يتنفذ رابط هذا التعليق شارك More sharing options...
أفضل إجابة عمر ضاحى قام بنشر أكتوبر 30 أفضل إجابة مشاركة قام بنشر أكتوبر 30 1 ساعه مضت, كريمو2 said: تم انشاء استعلام ونسخ الكود ولكن محبش يتنفذ مش شغال ازاي ؟ شغال تمام معي 1 رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 30 الكاتب مشاركة قام بنشر أكتوبر 30 سبحان الله يا استاذي العزيز نفس المعلومات ولكن لم يشتغل عندي ولم يظهر لي اي رسالة خطأ للعلم انا أستعمل اكسس 2010 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أكتوبر 30 مشاركة قام بنشر أكتوبر 30 12 دقائق مضت, كريمو2 said: سبحان الله يا استاذي العزيز نفس المعلومات ولكن لم يشتغل عندي ولم يظهر لي اي رسالة خطأ للعلم انا أستعمل اكسس 2010 ارسل لي رسالة على الخاص فيها عنوان (اي دي ) anydesk احاول افهم فين المشكله عندك رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 30 الكاتب مشاركة قام بنشر أكتوبر 30 المشكلة اني لم اكن اعرف باجبارية فتح الفورم قبل تنفيذ الاستعلام لهذا ما اشتغل معاي والان الحمد لله تم فتحة واضافة تعديل بسيط عليه وتم نسخ الكود في الوحدة النمطية شكرا لك استاذ عمر ضاحي على سعة الصدر وربي يحفظك ويجعله في ميزان حسناتك 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]));" 2 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أكتوبر 30 مشاركة قام بنشر أكتوبر 30 4 دقائق مضت, كريمو2 said: المشكلة اني لم اكن اعرف باجبارية فتح الفورم قبل تنفيذ الاستعلام لهذا ما اشتغل معاي والان الحمد لله تم فتحة واضافة تعديل بسيط عليه وتم نسخ الكود في الوحدة النمطية شكرا لك استاذ عمر ضاحي على سعة الصدر وربي يحفظك ويجعله في ميزان حسناتك 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]));" الحمد لله 1 رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 31 الكاتب مشاركة قام بنشر أكتوبر 31 استاذ عمر حولت الكود الي جهة اخرى ولكن هل المرة التصفية مابين تاريخين فوقعت في مشكلة فكيف اعدل على الكود حتى يعمل بشكل صحيح https://e.top4top.io/p_3226i7rku0.jpg رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر أكتوبر 31 مشاركة قام بنشر أكتوبر 31 49 دقائق مضت, كريمو2 said: استاذ عمر حولت الكود الي جهة اخرى ولكن هل المرة التصفية مابين تاريخين فوقعت في مشكلة فكيف اعدل على الكود حتى يعمل بشكل صحيح https://e.top4top.io/p_3226i7rku0.jpg امممممم جرب تعدل على الشرط فى الكود هكذا WHERE Bdgi.PDG_Date Between #" & D1 & "# And #" & D2 & "#; لكن لازم تتأكد ان المتغيرين D1 و D2 من نوع تاريخ وان بهم قيمة صحيحه (كتاريخ) وان شاء الله بيعمل معك رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 31 الكاتب مشاركة قام بنشر أكتوبر 31 جربت ولم تفلح https://top4top.io/downloadf-32265a2zy0-rar.html رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 31 الكاتب مشاركة قام بنشر أكتوبر 31 هل لاحظت المشكلة في المرفق استاذ عمر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان