[أبو نوره]

مرحبا اهى سعود

ممكن مشروعك
لاني بتعامل بالطريقه اللي ذكرتها لك وبتمشي مع اي نوع تاريخ بدون مشكله

ولو وضعت الكود كامل كان افضل من الاقتطاع اللي السابق من حضرتك

---

انا افترضت انك عارف انه فيه تكلمه للتعديل اللي عدلته لك

[حريف برمجة]

(26-08-17, 07:06 PM)محمود بكرى كتب :

(26-08-17, 06:01 PM)حريف برمجة كتب : للمعلومية اخي نزلت المثال وجربته يعطي التاريخ الهجري في الحالتين .

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

نعم المرفق الثاني يظهر التاريخ ميلادي وهجري ،، وبالنسبة لي اعلم كيف تحويل التاريخ من الهجري للميلادي والعكس . وشكراً على مثالك .

ولكن للتاريخ الميلادي القديم لا يتم تحويله ويظهر رسالة خطأ .

[سعود الشامان]

أعتذر منكم إخوتي فصل النت عندي البارح

وأشكركم جزيل الشكر

الآن وصلت المعلومه وهي ان الحفظ في القاعدة بالميلادي لكن العرض و الادخال هجري وفعلا ضبطت

لكن تبقى لدي بعض الإشكاليات :

1 - التاريخ يظهر في الداتا جريد بصيغة الميلادي ( اريده هجري )

2 - وضعت هنا خيار اظهار ارقام المراجعين اللذين لديهم موعد بعد يومين
لكن المشكله عند إضافة مراجع جميع الأرقام يتم إظهارها في الليست بوكس





وهذا الكود تحت زر موافق

كود :

       Dim dfrom As Date = Now.Date.ToShortDateString
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("Select * from Patient_data", con)
       da.SelectCommand.CommandText = "select * from Patient_data where Data_mo3d=@Data_mo3d"
       da.SelectCommand.Parameters.AddWithValue("@Data_mo3d", dfrom.AddDays(Val(TextBox7.Text)))
       da.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = "Pa_Phone"

المشروع بالمرفقات

[سعود]

السلام عليكم ورحمة الله و بركاته.
لا ادري هل انا فهمت المشكلة ام لا.
الاكسس ضمن الخيارات - اعدادات العميل(ان لم انس) تجد اختيار التقويم الهجري.
اذا فعلته وكان التنسيق صحيح ستجده هجري والعكس.
اظن الاكسس يوفر مجهود التحويل سواء كان النظام على الهجري او الميلادي.
يتبقى الفرق بين الربط وبين التعبئة!!!
اقصد بالربط عن طريق DataTable Or DataSet
واقصد بالتعبئة  اي يتم تعبئة الادوات بالواجهة :كـTextBox بالقيم كـ نص.
ان كان فهمي خاطيء فاعتذر

[محمود بكرى]

(27-08-17, 05:23 PM)سعود الشامان كتب :

أعتذر منكم إخوتي فصل النت عندي البارح

وأشكركم جزيل الشكر

الآن وصلت المعلومه وهي ان الحفظ في القاعدة بالميلادي لكن العرض و الادخال هجري وفعلا ضبطت

لكن تبقى لدي بعض الإشكاليات :

1 - التاريخ يظهر في الداتا جريد بصيغة الميلادي ( اريده هجري )

2 - وضعت هنا خيار اظهار ارقام المراجعين اللذين لديهم موعد بعد يومين
لكن المشكله عند إضافة مراجع جميع الأرقام يتم إظهارها في الليست بوكس





وهذا الكود تحت زر موافق

كود :

       Dim dfrom As Date = Now.Date.ToShortDateString
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("Select * from Patient_data", con)
       da.SelectCommand.CommandText = "select * from Patient_data where Data_mo3d=@Data_mo3d"
       da.SelectCommand.Parameters.AddWithValue("@Data_mo3d", dfrom.AddDays(Val(TextBox7.Text)))
       da.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = "Pa_Phone"

المشروع بالمرفقات

السلام عليكم اخي سعود  المرفق حقك شغال تمام وكان عندك المشكلة فى ان التاريخ بيظهر ميلادي وقد عدلت ذلك فى المرفق اما عند الاضافة وظهور اكثر من رقم بالليست لم تحدث معي او انى فهمت خطاء 
المرفق

  code_1.rar (الحجم : 314.58 ك ب / التحميلات : 71)

[سعود الشامان]

الف الف شكر يا باش مهندس محمود حليت لي مشكله معطلتني لها اكثر من اسبوع

الله يحرم وجهكك ووجه والديك من النار وكل من شارك معنا

لم تفهم خطأ يالغالي , بالفعل اختفت المشكله لا اعلم اين الخطا المهم تخطينا المشكله

[محمود بكرى]

(28-08-17, 02:10 AM)سعود الشامان كتب : الف الف شكر يا باش مهندس محمود حليت لي مشكله معطلتني لها اكثر من اسبوع

الله يحرم وجهكك ووجه والديك من النار وكل من شارك معنا

لم تفهم خطأ يالغالي , بالفعل اختفت المشكله لا اعلم اين الخطا المهم تخطينا المشكله

الحمد لله اخ سعود انك استفدت من الموضوع وشكرا على دعائك وادعو لك بالمثل ولكل المسلمين

[سعود الشامان]

(27-08-17, 10:19 PM)سعود كتب : السلام عليكم ورحمة الله و بركاته.
لا ادري هل انا فهمت المشكلة ام لا.
الاكسس ضمن الخيارات - اعدادات العميل(ان لم انس) تجد اختيار التقويم الهجري.
اذا فعلته وكان التنسيق صحيح ستجده هجري والعكس.
اظن الاكسس يوفر مجهود التحويل سواء كان النظام على الهجري او الميلادي.
يتبقى الفرق بين الربط وبين التعبئة!!!
اقصد بالربط عن طريق DataTable Or DataSet
واقصد بالتعبئة  اي يتم تعبئة الادوات بالواجهة :كـTextBox بالقيم كـ نص.
ان كان فهمي خاطيء فاعتذر

هلا وغلا بسميي سعود

تتذكر هذا الموضوع

vb4arb.com/vb/newreply.php?tid=21498&replyto=104761

سالته بصيغه اخرى علشان يستفيد غيري وانت ما قصرت معي ربي يسعدك

وبالنسبه للمشروع هو إضافة مراجعين وحجز موعد و إرسال sms للتذكير بالموعد
فيه إشكاليه الآن أنه يوم الجمعه و السبت إجازه

لا يوجد موظف يقوم بالتشييك على المواعيد في هذا اليومين
هل هنالك امر فعل حدث بعد 24 ساعه ؟
والسؤال الآخر هل أستطيع عرض التاريخين ( ميلادي و هجري )
ومعلومات أو فكرة بخصوص طباعة الموعد

[url=vb4arb.com/vb/newreply.php?tid=21498&replyto=104761][/url]

[مبرمج مبتدا]

شباب اتمني التعديل على هذا المشروع للبحث بالهجري عجزت وانا اعدل فيه نفس مشروع الاخ محمد

هذا رابط مثال المشروع


http://www.up-00.com/?nIMx

[سعود الشامان]

فيه مشكله عند البحث يتغير التاريخ في الداتا جريد لميلادي

تم تعديل المشروع واصبح يظهر التاريخ بالهجري في كل شي و البحث عن يوم معين بالهجري