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

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

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

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"

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

(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"

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

(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]