الى اساتذتي.......تخزين قيمة حقل في نموذج الى الجدول

أهلاً بك أخى devoter

إرفاق القاعدة يسهل كثير المساعدة لك

عموما الموضوع بسيط جداً وهو عن طريق كود فى محرر الفيجوال بيسك يقوم بالعملية الحسابية ووضعها داخل الحقل المراد تخزين القيمة به

قم بتجربة الكود ووضعه فى حدث بعد التحديث أو التغيير للقيمة المراد حسابها

me.age=me.date_Now-me.date_born

حيث age= حقل تخزين العمر

و date_now= مثلاً تاريخ اليوم

وdate_born= تاريخ الميلاد

أو

قم بالآتى

me.age=me.years_old

حيث years_old= الحقل الذى قمت بعمل العملية الحسابية به

و age= حقل تخزين العمر

وكما قلت إرفاق القاعدة يسهل الموضوع أكثر ويقرب وجهات النظر

إذا وجدت أى صعوبة ستجدنا بجانبك

age.rar

تفضل أخى ملفك بعد التعديل

Honeyage.rar

hongylover كتب:

تفضل أخى ملفك بعد التعديل

اخي شكراً الك كثير هو المطلوب فعلاً

لقد اثلجت صدري بسرعة تجاوبك

اخوك اسامة من الأردن

عذراً اخي ولكن واجهتني شغلة

هو انه لا تتحدث قيمة الحقل age تلقائياً

فعندما اقوم بادخال تاريخ ميلاد جديد تبقى قيمة الحقل age فارغة

وشكراً مقدماً

الا يوجد حل اخواني للملاحظة الأخيرة

بحيث تتحدث قيمة الحقل age تلقائياً

ودمتم لنا

أخى لقد تم تجربة المثال وهو يعمل ولا يحتاج لـ requery

المفروض عندما تقوم بإدخال قيمة معينة فى حقل تاريخ الولادة يتم تحديثها إلى حقل age أوتوماتيك بناءً على القيمة الموجودة فى text2

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

إذا استمرت المشكلة معك قم بإيضاحها أكثر فى الملف المرفق

اخي انا تواريخ الميلاد مدخلة عندي من قبل قاعدة البيانات التي لدي

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

وقمت باستيراد النموذج الى قاعدة البيانات لدي وايضاً دون جدوى

يرجى توضيع طريقة الـــ requery في نفس المثال ان امكن ولك جزيل الشكر

أوكى

البيانات موجودة قبلاً...

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

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal count As Long)
'ضع الكود هنا
 End Sub

على أساس عندما تقوم بالتنقل عبر السجلات عن طريق عجلة الماوس سيقوم بإدخال العمر أوتوماتيك فى حقل age

اخي شكر لك كثير

واعتذر كون المشكلة كانت من عندي

وسوف اقولها لك ولكن لا تضحك علي لغبائي

انا قمت بانشاء حقل age من زمان وعند انشاء حدد البيانات ان تكون رقم

لهذا السبب لم يقبل ادخال المعادلة الحقل

وشكرا لك كثير واعتذر لازعاجك وادامك الله لخدمتنا