ماسبب مشكلة عكس التاريخ عند التحويل

[طاهر اوفيسنا]

السلام عليكم اساتذة وقع لدي مشكلة وهو 1/عند تحويل مبلغ مالي كما في الصورة ينعكس التاريخ مثلا 2025/03/10 تصبح 2025/10/03 (الوحدة النمطية Verccp)مما تسبب لي مشكلة في فتح فورم Frm_VermLoans عند الضغط مرتين عند مبلغ TheValueCCP  لايفتح. . .   2/ عند فتح الفورم الاخير ياحبذا تكون التصفية باالاسفل حسب المبالغ (مبلغ القروض لوحدها ومبلغ الانخراطات لوحدها)

تحويل مبلغ.mdb.zip

[Foksh]

2 ساعات مضت, طاهر اوفيسنا said:

ينعكس التاريخ مثلا 2025/03/10 تصبح 2025/10/03 (الوحدة النمطية Verccp

وعليكم السلام ورحمة الله وبركاته ،،

فيما يتعلق بالمطلب الأول ، أعتقد انه يجب ضبط التنسيق للتاريخ في الدالة إن كانت هي المسؤولة عن الخلل الذي تتحدث عنها ، علماً أنني لم ألحظ الخطأ بشكل واضح . على العموم في الدالة داخل المديول جرب ضبط التنسيق للسطر بالشكل التالي :-

txtDate = Format(Date, "mm/dd/yyyy")

 

 المطلب الثاني غير مفهوم بالنسبة لي .. 

[طاهر اوفيسنا]

9 دقائق مضت, Foksh said:

المطلب الثاني غير مفهوم بالنسبة لي .. 

شكرا استاذ المطلب الثاني  ركز في الصور

[طاهر اوفيسنا]

40 دقائق مضت, Foksh said:

txtDate = Format(Date, "mm/dd/yyyy")

نفس المشكلة لم يتغير شيئا

[Foksh]

 أعتذر منك ، قد يكون لدى أحد الإخوة والأساتذة حل آخر 

[طاهر اوفيسنا]

20 دقائق مضت, Foksh said:

 أعتذر منك ، قد يكون لدى أحد الإخوة والأساتذة حل آخر 

بوركت استاذ 🌹 

من اجتهد واصاب فله أجران ومن اجتهد ولم يصب فله أجر واحد؟

 

[Foksh]

51 دقائق مضت, طاهر اوفيسنا said:

نفس المشكلة لم يتغير شيئا

في الأكواد لديك ، حاول ضبط التنسيق في المواضع التي يتم فيها اضافة التاريخ الى الحقل باستعمال الجملة :-

Format(Date, "mm/dd/yyyy")

كمثال في الجملة التالية :-

Me.AwardMonth = Format(Date, "mm/dd/yyyy")

 

[طاهر اوفيسنا]

1 ساعه مضت, Foksh said:

كمثال في الجملة التالية :-

جربت على المرفق الي عندك استاذ لأنه بصراحة لم تضبط معي

[Foksh]

منذ ساعه, طاهر اوفيسنا said:

جربت على المرفق الي عندك استاذ لأنه بصراحة لم تضبط معي

المشكلة لم تظهر عندي حتى في أول مرفق لك صديقي العزيز..

عل أحد الإخوة ممن ظهرت لديه المشكلة ان يفيدك بأحد الحلول أو الإقتراحات المناسبة ..

[طاهر اوفيسنا]

للرفع اساتذة هل من حل

 

[ابوخليل]

في الوحدة النمطية verccp

غير سطر التحديث الموجود في الدالة الى هذا

DoCmd.RunSQL "UPDATE Verment SET VermentMonth=#" & Format(txtDate, "yyyy/mm/dd") & "#,TheValue=" & totalBank & ", TheValueCcp=" & totalAmount & " WHERE Month(VermentMonth)=" & monthNumber & "And Year(VermentMonth)=" & Year(txtDate)

 

[طاهر اوفيسنا]

منذ ساعه, ابوخليل said:

في الوحدة النمطية verccp

غير سطر التحديث الموجود في الدالة الى هذا

وهو كذلك استاذنا الجليل أبو خليل

ياريت النظر في الطلب الثاني

[ابوخليل]

تفضل

 

تحويل مبلغ2.rar

[طاهر اوفيسنا]

شكرا استاذ وهو كذلك