تنسيق التاريخ في التقرير على شكل ارقام متفرقه

[ابراهيم - ابو ريان]

هل يمكن تنسيق التاريخ التاالي : 01 /07 /2007 مثلا

الى 1 ....0.............7...0. ............. 7 ....0 ...0......2

اي على شكل ارقام متباعده

حاولت ولكن لم اتوصل الا الى التنسيق التالي 01 .............07 ............. 2007

عن طريق وضع YYYY.......MM ........DD في خاصية تنسيق الحقل

فهل يمكن عملها بالتنسيق المطلوب

تم تعديل أغسطس 29, 2007 بواسطه ابراهيم - ابو ريان

[الجشعمي]

اخي الفاضل ..

لم الاحظ الفرق بين ما تطلبه وبين النتيجة الت حصلت عليها كلاهما 01 07 2007

؟؟؟؟

على العموم ..

هناك طريقة جيدة

ضع ثلاث مربعات نص متفرقة ..

بحيث الاول يعرض اليوم فقط والمربع الثاني يعرض الشهر فقط المربع الثالث يعرض السنة فقط

اذا كان هذا هو المطلوب ولا تتوصل الى النتيجة .. اخبرني وسوف اعطيك الطريقة بالتفصيل من الالف الى الياء

وبالتوفيق ..

[ابراهيم - ابو ريان]

بارك الله فيك اخي الكريم

ولكن الفرق واضح فيما اطلبه وهو 1 ....0.............7...0. ............. 7 ....0 ...0......2

وبين النتيجه التي حصلت عليها 01 .............07 ............. 2007

يبدو انك اطلعت على الموضوع قبل ان اقوم بعملية التعديل الاخير

جزاك الله خيرا

[Dream_Works]

أخي الكريم

يمكنك عمل ذلك بسهولة

1- غير القناع في حقل الأرقام المتباعدة الى المطلوب

مثلا

0...0...0...0.....0.....0.....0.....0;;_

2- قم بوضع كود كالتالي اذا كان التاريخ موجود في الجدول ... تستخدم الحدث On Current

Tempdate As String
Tempdate = Me.TxtDate
' إزالة الفواصل بين أرقام التاريخ
Tempdate = Replace(Tempdate, "/", "")
Me.TxtNum = Tempdate

TxtDate هو حقل التاريخ الفعلي

TxtNum هو حقل التاريخ المتباعد

أرجو أن يكون هذا طلبك

[ابراهيم - ابو ريان]

اخي Dream_Works سأتعبك قليلا ارجو ان يتسع صدرك لطلبي

اذا كان بالامكان ارفاق مثال وجزاك الله خيرا

[Dream_Works]

أخي الكريم

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

[ابراهيم - ابو ريان]

محرج منك اخي الكريم ولكني في امس الحاجه الى هذا الطلب

لو تكرمت على هذا ايميلي

esraalm2002@yahoo.com

[ابراهيم - ابو ريان]

جزاك الله خيرا اخي ولكن ملاحظ ان تنسيق التاريخ من اليمين الى اليسار او العكس في مربع النص txtnum يتبع تنسيق التاريخ في الاعدادات الاقليمية .

على العموم تم حل المشكله والحمد لله باستخدام

Me.TxtNum = Format(Me.TxtDate, "yyyymmdd")

في حدث بعد التحديث ويمكنك تغير yyyymmdd بالاتجاه الذي تريد

جزاك الله خيرا اخي على تجاوبك معي

[Dream_Works]

الله يعطيك العافية أخوي ..

بالفعل فكرتك جميلة وبسيطة ... و احتمال تفيدني في أعمال مستقبلية