الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

التاريخ بالعربي

مغلق
بدأه السعيد في 13 مارس 2001 · 6 رد · 1,294 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدي برنامج مرتبط بقاعدة بيانات على الأكسس 97

والمشكله هي عندما يظهر التاريخ يظهر من اليسار لليمين

مثل 1421/12/12

والمطلوب إظهاره بالعربي من اليمين لليسار مثل 12/12/1421

وقد أستخدمت الخواص alignment لجعل مربع النص من اليمن لليسار

وكذلك خاصية right to lift=tru ثم وضعة في الform load

الكودالتالي Calendar = vbCalHijri

Text1 = Format(Date, "DD-MM-YYYY")

إلا أن المشكله لم تحل وربما كان الكود السابق عليه تعديل أو يجب وضعه

في مكان أخر

أرجو من الإخوة الكرام الإطلاع وايجاد حل للمشكله

مع الشكر لكم سلفا

[عدلت بواسطة السعيد ت:12-03-2001 س: 01:45 PM]

#2

التاريخ في اكسس يعتمد على طريقةتعريفه في اعدادات النظام في لوحة التحكم

بالطبع يمكنك تعديل مربعات النص لوحدها ايضا بتعديل خصائصها من خاصية ال Format مباشرة من لوحة الخصائص بدون الكود

جرب ان تضع

dd/mm/yyyy

او

yyyy/mm/dd

حسب الحاجة

#3

الأخ خضر ترزي

شكرا لك

أيضا هذه الخاصية أستخدمتها بالإظافة لماسبق

ولم تعطى النتيجه المطلوبه

ويبقى الكود الذي ذكرته بالموضوع هو الأقرب للحل

ولكن أعتقد يحتاج لتعديل أو إضافة ليعطى النتيجه المطلوبه

فمارأيك

وتقبل تحياتي

#4

هذه المشكلة وكما قال الأخ/ خضر ترزي تحل عن طريق تغيير أعدادات عرض التاريخ في إلإعدادات الأقليمة في لوحة التحكم وقد سبق لي حلها بهذه الطريقة بتغيير نمط التاريخ الطويل إلى (yyyy/M/d)

اتمنى لك التوفيق .

#5

من الإعدادات الإقليمة غير شكل فاصل التاريخ إلى - ويصلح الحال إن شاء الله

#6

أخواني الأعزاء

بخصوص قراءة التاريخ من قاعدة البيانات فقد تغلبت عليها ولتعم الفائدة أحببت أن أضع الحل هنا

1- تم وضع حقول لكل من اليوم ، الشهر ، السنه في الجدول

2- تم إضافة أداة كومبوبكس لليوم والتاريخ والسنة على الفورم

3- في إجراء الفورم لود

c1_1.clear: c1_2.clear: c1_3.clear

For i = 1 To 30

c1_1.AddItem Str(i)

Next i

For i = 1 To 12

c1_2.AddItem Str(i)

Next i

For i = 1410 To 1500

c1_3.AddItem Str(i)

Next i

4-في أمر الإظافة والتعديل

rs![day1] = Val(c1_1.Text)

rs![month1] = Val(c1_2.Text)

rs![year1] = Val(c1_3.Text)

rs![day2] = Val(c2_1.Text)

rs![month2] = Val(c2_2.Text)

rs![year2] = Val(c2_3.Text)

5- في الإجراء الفرعي الخاص بإضهار البيانات يثتم إضهار البيانات بالتالي

t9.Text = Format(rs![year1]) & "/" + Format(rs![month1]) & "/" + Format(rs![day1])

أرجو أن تعم الفائدة

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

[عدلت بواسطة السعيد ت:20-04-2001 س: 05:27 AM]

#7

للرفع

الأخ خصر، أبولمى ، الأخوة الزملاء جميعا

آمل الإطلاع والمساعدة

مع الشكر

هذا الموضوع مغلق.

مواضيع مشابهة