قمت بتسجيل تاريخ الميلاد عن طريق خانات أرقام يوم شهر سنة .
قمت بكتابة كود لتحويل اليوم والشهر والسنة لتكون في خانة واحدة وهي تاريخ الميلاد
ولكن:
قمت بتغيير خصائص حقل تاريخ الميلاد أولا إلي نص
ثم : بعد تجربة الكود بنجاح
قمت بتحويله إلي تاريخ مرة أخري
وهذا خطأ بالطبع
ولكنني كنت مضطر لضيق الوقت
أرجوا المحاولة في كتابة الكود الصحيح
أو
تصحيح الكود الموجود دون تغيير خصائص حقل تاريخ الميلاد
:wub:
تم تعديل هذه المشاركة بواسطة طه محمد حامد في 15 فبراير 2008 في 22:56
Toty_Retos
(المبرمج الصغير)
أخي الغالي
طه محمد حامد
تم استبدال الكود الذي كتبتة والمسؤل عن تحويل الارقام الي تاريخ بــ كود آخر قد وفي بالغرض بدون التغيير في خصائص حقل التاريخ
birth_date = (year & "/" & month & "/" & day)
اليك المرفق بعد اجراء التعديلات اللازمة علية
اخي محمد فؤاد بعد اذنك،،
اضفت سطرا من الكود لعمل التنسيق الخاص بمربع النص birth_date ليصبح تنسيقه تاريخا فعلا، وهو:
Private Sub year_AfterUpdate() birth_date = (year & "/" & month & "/" & day) birth_date = Format(birth_date, "dd/mm/yyyy") End Sub
ارجو ان تكون هذه الاضافة مفيدة
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
همام ابوعرقوب كتب:اخي محمد فؤاد بعد اذنك،،اضفت سطرا من الكود لعمل التنسيق الخاص بمربع النص birth_date ليصبح تنسيقه تاريخا فعلا، وهو:
Private Sub year_AfterUpdate() birth_date = (year & "/" & month & "/" & day) [birth_date = Format(birth_date, "dd/mm/yyyy") End Subارجو ان تكون هذه الاضافة مفيدة
هذا بالضبط ما أردته أن يكون التنسيق في هذا الحقل تاريخ فعلاً
ولكن هذا الكود ينطبق علي أول سجل فقط ، ولكني أريد أن يتم التطبيق علي باقي السجلات مرة واحدة لذا لجأت إلي عمل الـ loop
واشكر لكم هذه البساطة والسهولة في الكود
واعذروا لي استعجالي لكي أجد حل و ألحق أخلص باقي الشغل لأن هذه الخطوة بعدها خطوات وعمل آخر
وأشكركم مرة أخري وزادكم الله من علمه وقلدكم أعلي المناصب إن شاء الله
وقد استخدمت ما قدمتموه لي من حل ولكنه أيضا انطبق علي اول سجل فقط وتم تكرار في باقي السجلات ولم يتم بالصورة الصحيحة علي باقي السجلات؟
واليكم ما فعلته....
تم تعديل هذه المشاركة بواسطة طه محمد حامد في 16 فبراير 2008 في 23:36
Toty_Retos
(المبرمج الصغير)
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة
zahrah كتب:بسم الله الرحمن الرحيمتمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة
لم يتم الاجابة علي الموضوع
وقد استخدمت ما قدمتموه لي من حل ولكنه أيضا انطبق علي اول سجل فقط وتم تكرار في باقي السجلات ولم يتم بالصورة الصحيحة علي باقي السجلات؟
Toty_Retos
(المبرمج الصغير)
اقتباسلم يتم الاجابة علي الموضوعوقد استخدمت ما قدمتموه لي من حل ولكنه أيضا انطبق علي اول سجل فقط وتم تكرار في باقي السجلات ولم يتم بالصورة الصحيحة علي باقي السجلات؟
أخي العزيز - ولايهمك ولايكون خاطرك الا طيب - ستتم الإجابة بحول الله
أنظر المرفق
Ekseer
ألف ألف شكر ،
وادعوا الله أن تدوم المحبة والاتصال مع زيادة المعرفة والعلم
وزادكم الله علما
Toty_Retos
(المبرمج الصغير)
هذا الموضوع مغلق.
