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

[عمر ضاحى]

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

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

ايه المشكلة تحديد معاك
ارفع صورة بالمشكله
وبلاش تستخدم موقع

https://top4top.io

لانه محجوب عندي

[عمر ضاحى]

8 ساعات مضت, عمر ضاحى said:

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

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

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

الاستاذ كريم

حضرتك لم تنتبه لهذه النقطه 

 

شوف بعد ما جربت اشغل الكود

وحبيت اعرف الاكسيس شايف ايه جو المتغيرات

طلعت لى النتيجه صدمه

المفترض ان المتغيرات تحمل تاريخ

لكن واحد يحمل قيمة نصية

والاخر لا يحمل قيمه

يبقي الكود هيشتغل ازاي

[كريمو2]

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

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

[عمر ضاحى]

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

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

طيب هو بياخد التواريخ من اين؟

انت شايف النتيجه؟

راجع المعطيات هتحل المشكله ان شاء الله

[كريمو2]

انظر الصورة فلربما يتضح لك شيء والمعلومات الي عليها مربع احمر من جدول 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

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

[عمر ضاحى]

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

انظر الصورة فلربما يتضح لك شيء والمعلومات الي عليها مربع احمر من جدول Bdgi

 

 

 

 

 

20241030.mdb 2.63 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

اخي الحبيب كريم

يبدو ان هناك شئ فهم او تقصير مني

الاكسيس برنامج يقوم زيه زي اى برنامج

له اجراءات يقوم بتنفيذها حسب ما انت وضعتها

انت توريني صور للجدول

لكن الاكسيس كيف هيعرف ان الثالث الاول هو التاريخ من الى

لازم تعرف ده باى وسيه

والاسهل ليك

ان تقوم بوضع حقلين لهذه الفتره

وانت بالفعل عامل كده

 

لكن المشكلة ان انت بالفعل معلن عن المتغير D1

وهو بيستخدم فى اجراءات اخري وبيحمل قيمة نصيه

 

الحل اما تلغي موضوع المتغيرات وتضع مسار حقل التاريخ مباشرة

او انك تعلن عن متغيرين جديد

وانا افضل الحل الاخر

وايضا افضل استخدام دالة Format علشان توحد صيغة التاريخ وميحشلش مشكلة

[كريمو2]

اتعبتك معي استاذي العزيز

الم تلاحظ ان البحث كان ينفذ عادي قبل  الكود الاخير لجملة الـ strSQL

8 دقائق مضت, عمر ضاحى said:

وايضا افضل استخدام دالة Format علشان توحد صيغة التاريخ وميحشلش مشكلة

'FormatDate
d1 = Format(Me.Date_First, "MM/dd/yyyy")
d2 = Format(Me.Date_End, "MM/dd/yyyy")
 

[عمر ضاحى]

وهنا اعطيك حل للما سبق ذكره

    strSQL = "INSERT INTO kanory ( a, b, c, d ) " & vbCrLf & _
    "SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi " & vbCrLf & _
    "WHERE (((Format([PDG_Date],""dd-mm-yyyy"")) Between [Forms]![FrmMasarif_Trémestre]![Date_First] And [Forms]![FrmMasarif_Trémestre]![Date_End]));"

 

1 دقيقه مضت, كريمو2 said:

اتعبتك معي استاذي العزيز

الم تلاحظ ان البحث كان ينفذ عادي قبل  الكود الاخير لجملة الـ strSQL

'FormatDate
d1 = Format(Me.Date_First, "MM/dd/yyyy")
d2 = Format(Me.Date_End, "MM/dd/yyyy")
 

ده بس انتبه

ان لا يستخدم المتغير فى شئ اخر غير التاريخ
ولازم تعلن عنه
وغير كده انا شايف ان المتغيرات هنا ما لها لزمه معاك

 

[كريمو2]

9 ساعات مضت, عمر ضاحى said:

وهنا اعطيك حل للما سبق ذكره

    strSQL = "INSERT INTO kanory ( a, b, c, d ) " & vbCrLf & _
    "SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi " & vbCrLf & _
    "WHERE (((Format([PDG_Date],""dd-mm-yyyy"")) Between [Forms]![FrmMasarif_Trémestre]![Date_First] And [Forms]![FrmMasarif_Trémestre]![Date_End]));"

 

ده بس انتبه

ان لا يستخدم المتغير فى شئ اخر غير التاريخ
ولازم تعلن عنه
وغير كده انا شايف ان المتغيرات هنا ما لها لزمه معاك

 

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

[عمر ضاحى]

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

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

ما الخطأ الذي ظهر لك؟

[عمر ضاحى]

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

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

اخي الحبيب

جرب ازالة دالة format

لربما اخطأت فى التقدير

جرب هذا السطر

strSQL = "INSERT INTO kanory ( a, b, c, d ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi " & vbCrLf & _
"WHERE (((Bdgi.PDG_Date) Between [Forms]![FrmMasarif_Trémestre]![Date_First] And [Forms]![FrmMasarif_Trémestre]![Date_End]));"

 

[كريمو2]

5 ساعات مضت, عمر ضاحى said:

اخي الحبيب

جرب ازالة دالة format

لربما اخطأت فى التقدير

جرب هذا السطر

strSQL = "INSERT INTO kanory ( a, b, c, d ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi " & vbCrLf & _
"WHERE (((Bdgi.PDG_Date) Between [Forms]![FrmMasarif_Trémestre]![Date_First] And [Forms]![FrmMasarif_Trémestre]![Date_End]));"

 

وهو كذلك استاذي العزيز  ربي يبارك فيك

والان لاحظ عند نقل المبلغ تكون فاصلة العشرات 00

الاصح : 2,180,033.40    -    808,149.33

الخطا : 2,180,033.00    -    808,149.00

تم تعديل نوفمبر 1 بواسطه كريمو2

[عمر ضاحى]

منذ ساعه, كريمو2 said:

وهو كذلك استاذي العزيز  ربي يبارك فيك

والان لاحظ عند نقل المبلغ تكون فاصلة العشرات 00

الاصح : 2,180,033.40    -    808,149.33

الخطا : 2,180,033.00    -    808,149.00

هنا السبب ان الحقل يقبل الرقم الصحيح

حوله لنوع مزدوج

[كريمو2]

1 ساعه مضت, عمر ضاحى said:

هنا السبب ان الحقل يقبل الرقم الصحيح

حوله لنوع مزدوج

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

[عمر ضاحى]

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

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

العفو تحت امرك 🌹