التعديل على دالة DLookup او استبدالها بدالة اخرى

[كريمو2]

السلام عليكم اساتذتي الكرام

عند فتح التقرير المطلوب نقل كل سجل من الجدول لوحده بمبلغه كل على حدى 

مع مراعاة التصفية 'عدم الظهور" عندما يكون المبلغ 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

[كريمو2]

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

[كريمو2]

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

[عمر ضاحى]

في 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

 

انا شايف ان بالفعل موجوده 

ولا انت محتاج حاجه تاني انا مش قادر افهمها 

 

[كريمو2]

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

تم تعديل أكتوبر 30 بواسطه كريمو2

[عمر ضاحى]

29 دقائق مضت, كريمو2 said:

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

اها فهمت

بعد ما بصيت فى الكود بتاعك

ملاحظ انك مكرر الخطوه 3 مرات 

ف انت بتحاول تعمل التقرير ازاي ؟
وممكن لتقليل الاخطاء استخدم اولا الاستعلامات المباشرة 

ولما يكون كله تمام 

ممكن تحولها لاكواد بدل الاسطر ال اتخضيت لما شفتها بصراحه ما شاء الله مجهود كبير

وبكده هتوفر مجهود اكبر

 

[عمر ضاحى]

هل تريدها هكذا ؟

[كريمو2]

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

[عمر ضاحى]

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 بواسطه عمر ضاحى

[كريمو2]

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

[عمر ضاحى]

20 دقائق مضت, كريمو2 said:

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

اتفضل
20241028.rar

[كريمو2]

شكرا استاذ عمر على المساعدة و ايجاد الحل ولكن استاذ الكود اظهر جميع السجلات في الجدول Bdgi اي بدون تصفية حسب السنة هذا من جهة ومن جهة اخرى قيمة d (العدد) غير موجودة في الكود والتي تحصي عدد العمليات

année=Forms!FrmMassarif!txtYear

 

تم تعديل أكتوبر 30 بواسطه كريمو2

[عمر ضاحى]

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]));"

 

[كريمو2]

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

تم تعديل أكتوبر 30 بواسطه كريمو2

[عمر ضاحى]

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- المداخيل ( الموارد)"
دي هتكون فى السيكول (الاتسعلام)

 

[كريمو2]

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

[عمر ضاحى]

1 ساعه مضت, كريمو2 said:

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

مش شغال ازاي ؟

شغال تمام معي

 

[كريمو2]

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

[عمر ضاحى]

12 دقائق مضت, كريمو2 said:

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

ارسل لي رسالة على الخاص فيها عنوان (اي دي ) anydesk

احاول افهم فين المشكله عندك

[كريمو2]

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

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

 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]));"

 

[عمر ضاحى]

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]));"

 

الحمد لله

 

[كريمو2]

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

[عمر ضاحى]

49 دقائق مضت, كريمو2 said:

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

امممممم 
جرب تعدل على الشرط فى الكود هكذا 
 

WHERE Bdgi.PDG_Date Between #" & D1 & "# And #" & D2 & "#;

لكن لازم تتأكد ان المتغيرين 

D1 و D2
من نوع تاريخ 

وان بهم قيمة صحيحه (كتاريخ)

وان شاء الله بيعمل معك

[كريمو2]

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

[كريمو2]

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