نقل رقم السنة من حقل التاريخ إلى حقل مستقل في كل سجل

السلام عليكــم ورحمـة الله وبركاتــه ،،

تفضل أخي قتى الوادي - استخدم هذا الكود

On Error Resume Next
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "[t1]", CurrentProject.Connection, _
adOpenDynamic, adCmdTable
Do Until rst.EOF
rst!txtyear = Year(rst!txtdate)
rst.Update
rst.MoveNext
Loop
rst.Close
Me.txtdate.SetFocus
MsgBox "تم التحديث", _
	vbInformation + vbOKOnly, _
	"EKSEER"

أنظر للدالة

Year(rst!txtdate)

هي المسؤلة عن فصل السنة عن التاريخ في الحقل الاساسي ويمكن الحل أيضا بدوال النصوص Right and Left

لكن هل لي أن أسال لماذا جعلت حقل التاريخ نص بينما بيانته تاريخ ؟

موفق أخي الفاضل ... اكسيرالحياة

Ek_db2.rar

السلام عليكم

شكرا لك اخي أكسير الحياة ....

سأجرب المثال ...

بالنسبة لسؤالك عن حقل التاريخ لماذا وضعته انا نصي ,,, فهذا لأنه في الأصل ثلاث خانات نصية ( اليوم - الشهر - السنة ) من خلال النموذج يقوم البرنامج بضمها إلى حقل واحد في الجدول ... وعمدت إلى هذه الطريقة لأني أستخدم التاريخ الهجري وبهذا اتجاوز مشكلة تاريخ 30 في بعض الشهور الهجرية .

ومع كثرة البيانات أضطريت إلى أنشاء حقل جديد افرز فيه رقم السنة في حقل مستقل .

شكرا لمساعدتك مرة أخرى ةغفر الله لي ولك ولوالدينا .

الاخ الكريم / اكسير الحياة

لي عظيم الشرف ان اعمل مداخلة معك ولو اني نقطة ماء في محيطكم العظيم

فكيف لي ان اناقش استاذ عبقري بمعني الكلمة فهل تسمح لي

لقد ذكرت في ايضحاكم للاخ / فتي الوداي انه يمكن الحل أيضا بدوال النصوص Right and Left

وانا حاولت ان اعمل هذا(مرفق مثال ) فأريد فقط تشجيعكم لي هل هذا يعتبر حل مبسط ومالفرق بين الحلين

اسف جدا جدا للمداخلة ولكن حبيت فقط ان اتحدث مع استاذ عظيم مثلك

جزاك الله خير على كل مساعداتك لنا

لك كل احترام وتقدير

__________.rar

أخي الكريم .. العبقرية والعظمة بعيدة عني بعد سهيل عنا والحل المقدم منك جميل ويؤدي الغرض .. لكن لو نظرت

للسؤال المقدم من الاخ السائل يقول لدي جدول مليان بيانات وهذا يعني أنه يحتاج الى لوب على جميع السجلات بحيث يتم

تحديث الحقل دفعة واحدة أما الحل المقدم من طرفكم فهو صح لكنه يحدث السجلات يدويا أي سجل سجل

ارجو أن تكون الرؤية واضحة ولك مني عاطر التحية

جزاك الله خيرا اخي اكسير على المعلومة