اخواني الكيرام في المعهد
ارجو مساعدتكم
حيث اريد ادراج التاريخ الهجري اتوماتك في قاعدة البينات في الجدول لوحده
و
ادراج التاريخ الميلادي اتوماتك في قاعدة البينات في الجدول لوحده
بحيث لا يتم تغير تاريخ النموذج العام من قائمة خصائص حيث اني اريد ان يكون التاريخ العام لنموذج هو التاريخ الميلادي
ارجو مساعدتي في الملف المرفق
جزاك الله خيرا أخ مفرح
و لكن يمكن الوصول الى المطلوب بشكل أسهل و أفضل
الاخ السائل
كما تفضل الاخ مفرح الافضل ان يكون حقل التاريخ الهجرى نص حتى لا يتسبب فى مشاكل بعد ذلك
لذلك سنحوله الى نص
ثم
ضع هذا الكود فى وحدة نمطية
Function hijry() As String
Calendar = vbCalHijri ' vbCalGreg
hijry = Format(Str(Date), "yyyy/mm/dd")
Calendar = vbCalGreg
End Functionو فى القيمة الافتراضية لحقل التاريخ الهجرى ضع
=hijry()
و فى القيمة الافتراضية لحقل التاريخ الميلادى ضع
=Date()
و بهذا ستكون وصلت لما تريد
و اليك المرفق
تم تعديل هذه المشاركة بواسطة mrnooo2000 في 6 أكتوبر 2010 في 15:18
اشكركم اخواني على هذا الشرح و خدمة الاخرين
ربي يعطيكم العافيه
تم تعديل هذه المشاركة بواسطة orphan94 في 7 أكتوبر 2010 في 17:59
اشكر الجميع على المساعده
حيث تم استخدام مثال للاخ العزيز ( Abo_Yossof )
ولكن هناك مشكلة وهي في التاريخ الهجري فالجميع يعلم بان التاريخ الهجري غير ثابت فهو اما ينقص او يزيد يوم او يومين
و حل هذه المشكلة هو الدخول على الوحه انمطية و تعديل على الكود اما بزياده يوم او نقصان يوم
فهل يوجد طريق لتغير هذه القيمه من غير الدخول على الوحدة انمطية ( من غير فك حماية البرنامج لتعديل التاريخ )
اشكرك على الحل العبقري و الجميل
ولكن هل بالامكان ايقاف الجدول من اضافه اي اسجلات جديده و الاكتفاء فقط في السجل الاول لتعديل التاريخ
لكي يظهر بشكل جميل
كي لا يعتقد المستخدم بانه يستطيع فتح اكثر من سجل
اشكرك اخي الكريم
ولكن يوجد اكثر من شخص معي
تم عمل نموذج باسم ( tab_acc )
خاص لتعديل على الوقت بزيادة او انقصان
هل من الممكن تعديل على انموذج ( tab_acc ) بحيث لا يقبل الاظافه او الحذف
ولكن يقبل اتعديل عليه فقط
تم تعديل هذه المشاركة بواسطة orphan94 في 15 يوليو 2011 في 14:52
اشكرك على المساعده
ارجو رفع الملف بعد التعديل
تم تعديل هذه المشاركة بواسطة orphan94 في 15 يوليو 2011 في 22:00
للاسف عندى مشكلة فى التحميل
لكن يمكنك تعديل خصائص النموذج
Allowadditions=false
Allowdeletions=false
ربي يعطيك العافيه
تم تطبيق مثالك ووضع الكود بهذا اطريقه
Private Sub Form_Current() AllowAdditions = False AllowDeletions = False End Sub
وهو يعمل بشكل جميل
هل هذه اطريقه سليمه؟
وهل هي التي تقصدها او تقصد شي اخر ؟
وهذا المثال بعد اتعديل
الطريقة سليمة
لكن ضعها عند الفتح أفضل ( و ان كان الامر لن يفرق لان الموجود سجل واحد )
كذلك يمكنك تعديلها بدون كود من خصائص النموذج
ربي يعطيك الف الف عافيه على المساعده
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…