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

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

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

تحويل مبلغ.mdb.zipFetching info...

[Foksh]

  في 10‏/3‏/2025 at 09:15, طاهر اوفيسنا said:

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

Expand  

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

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

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

 

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

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

  في 10‏/3‏/2025 at 11:45, Foksh said:

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

Expand  

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

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

  في 10‏/3‏/2025 at 11:45, Foksh said:

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

Expand  

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

[Foksh]

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

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

  في 10‏/3‏/2025 at 12:38, Foksh said:

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

Expand  

بوركت استاذ 🌹 

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

 

[Foksh]

  في 10‏/3‏/2025 at 12:26, طاهر اوفيسنا said:

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

Expand  

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

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

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

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

 

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

  في 10‏/3‏/2025 at 13:19, Foksh said:

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

Expand  

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

[Foksh]

  في 10‏/3‏/2025 at 15:15, طاهر اوفيسنا said:

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

Expand  

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

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

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

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

 

[ابوخليل]

في الوحدة النمطية 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)

 

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

  في 10‏/3‏/2025 at 20:52, ابوخليل said:

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

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

Expand  

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

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

[ابوخليل]

تفضل

 

تحويل مبلغ2.rarFetching info...

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

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