الترقيم التسلسلي في النموذج

من رأيي أن يتم عمل سجل للرقم التسلسلي ويكون (رقم) ويتم كتابة كود الترقيم التلقائي في النموذج حتى يتم التمكن في حالة حذف آخر سجل تلافي تعدي ذلك الرقم

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

وإذا كان لأحد خبراء الأكسس رأي أفضل فنتمنى إفادتنا به

ارفق قاعدة البيانات المصممة وسيتم التعديل عليها ان شاء الله تعالى

omr_g كتب:

من رأيي أن يتم عمل سجل للرقم التسلسلي ويكون (رقم) ويتم كتابة كود الترقيم التلقائي في النموذج حتى يتم التمكن في حالة حذف آخر سجل تلافي تعدي ذلك الرقم

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

وإذا كان لأحد خبراء الأكسس رأي أفضل فنتمنى إفادتنا به

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

superhot3000 كتب:

ارفق قاعدة البيانات المصممة وسيتم التعديل عليها ان شاء الله تعالى

اخوي سوبر حولت ارفع الملف بس بسبب الحجم يرفض رفعه المنتدى

هل بالامكان ارسله بالايميل الخاص فيك

اذا امكن

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

محمد الجوهر كتب:

اخوي سوبر حولت ارفع الملف بس بسبب الحجم يرفض رفعه المنتدى

هل بالامكان ارسله بالايميل الخاص فيك

اذا امكن

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

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

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

أنشئ استعلام للجدول المحتوي على البيانات

وضع الكود التالي لاستخراج السنة من التاريخ

ydate: Year([حقل التاريخ])

ثم ضع هذا الكود لدمج الرقم مع السنة

Expr2: [حقل الرقم] & "-" & [ydate]

وكود الترقيم التلقائي تضعه في القيمة الافتراضية لحقل الرقم في النموذج

=nz(DMax("[حقل الرقم]";"[اسم الجدولl]"))+1

superhot3000 كتب:

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

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

بيض الله وجهك

omr_g كتب:

أنشئ استعلام للجدول المحتوي على البيانات

وضع الكود التالي لاستخراج السنة من التاريخ

ydate: Year([حقل التاريخ])

اين يتم كتابة الكود

ثم ضع هذا الكود لدمج الرقم مع السنة

Expr2: [حقل الرقم] & "-" & [ydate]

أيضاً اين يتم كتابة الكود

وكود الترقيم التلقائي تضعه في القيمة الافتراضية لحقل الرقم في النموذج

=nz(DMax("[حقل الرقم]";"[اسم الجدولl]"))+1

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

محمد الجوهر كتب:

بيض الله وجهك

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

لا يوجد أي تعب أخي العزيز

أنت طلبت أن يكون الترقيم بهذا الشكل 1432-100

فسيتم الأمر على هذا النحو:

1- استخراج السنة من حقل التاريخ.

2- دمج السنة مع حقل الترقيم التلقائي.

وهذه العملية ستكون في الاستعلامات

ستقوم بإنشاء استعلام يحتوي على الحقول التي تحتاجها وليكن على سبيل المثال

الرقم - التاريخ - الاسم ..... إلخ

بالنسبة للخطوة الأولى استخراج السنة من حقل التاريخ فستنشئ حقل جديد في هذا الاستعلام وستسمي هذا الحقل مثلا ydate وسيكون الكود الأول على هذا النحو

ydate: Year([حقل التاريخ])

والخطوة الثانية دمجه السنة ydate مع حقل الترقيم التلقائي فستنشئ حقل جديد في الاستعلام وستسميه مثلا Expr2

Expr2: [حقل الرقم] & "-" & [ydate]

اذا واجهت صعوبة في تطبيقها أرفع الملف وسأقوم بالتعديل عليه

omr_g كتب:

من رأيي أن يتم عمل سجل للرقم التسلسلي ويكون (رقم) ويتم كتابة كود الترقيم التلقائي في النموذج حتى يتم التمكن في حالة حذف آخر سجل تلافي تعدي ذلك الرقم

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

وإذا كان لأحد خبراء الأكسس رأي أفضل فنتمنى إفادتنا به

بالنسبة لي لا أجد أفضل من هذا المنطق..

omr_g كتب:

أنشئ استعلام للجدول المحتوي على البيانات

وضع الكود التالي لاستخراج السنة من التاريخ

ydate: Year([حقل التاريخ])

ثم ضع هذا الكود لدمج الرقم مع السنة

Expr2: [حقل الرقم] & "-" & [ydate]

وكود الترقيم التلقائي تضعه في القيمة الافتراضية لحقل الرقم في النموذج

=nz(DMax("[حقل الرقم]";"[اسم الجدولl]"))+1

شفرة جيدة جدا وتفسر المنطق السابق وتأكده

جزيتم خيرا

سوف أقوم بعمل ماتم شرحه من الأخ OMRوسوف أوفيكم بم يحصل

ارجو عدم نقل الموضوع حتى أتمكن من حل المشكلة

شاكرين ومقدرين ونسأل الله أن يجمعنا معكم في جنات الفردوس مع أبائنا وأمهاتنا

الأخ محمد الجوهر

هذا الملف بعد التعديل على جدول وفورم HAJJ واضافة دالة لقراءة السنة الهجرية من التاريخ الميلادي وعمل ما طلبته مع اعتذاري لعدم تمكني من تجربته تجربة وافية لضيق وقتي ولكني رفعته لك هنا وأطلب منك تجربة فورم الحج وسيتم تطبيق الترقيم على البيانات الجديدة ، لذا اطلب منك عند تجربته أن تلغي جميع البيانات القديمة وتعيد ادخالها للتأكد من عمله فعلا وانتظر ردك .

طبعا بفكرة مبسطة اضفت ثلاث حقول على الجدول احدها للسنة الهجرية (1432) مثلا والآخر للعد (001) مثلا والثالث يسجل الترقيم بالطريقة المطلوبة (1432001) مثلا وتعرض بطريقة (1432-001) وأتمنى أن تكون هي الهدف المطلوب.

واعذرني ولكني عملت ميزة ضغط البيانات لها عند الإغلاق حتى تحافظ القاعدة على أقل حجم ممكن. ولك تحياتي..

Alhatab Omra program_Test1.rar

الاخوان الاعزاء

قمت بأضافة الكود لكن لم يتغير شيء

قمت بعمل استعلام جديد بأسم test ثم وقمت بأضافة حقل الاسم وبطاقة الاحوال وحقل التاريخ Dated وقمت بأنشاء حقل في الاستعلام وقمت بكتابة ([ydate: Year([Dated وقمت بإضافة حقل أخر وقمت بكتابة [Expr2: [recordno] & "-" & [ydate

وبعد ذلك قمت بفتح النموذج المفروض يكون التغيير في حقل recordno

ولم يتغيير أي شيء

لذا تم رفع الملف

222.rar

لك كل شكر على مساعدتك أخوي سوبر وبالفعل ماقمت بعمله هذا هو المطلوب لذا اشكرك وجزاك الله ألف خير على مساعدتك الطيبة

نداء الى أخوي سوبر

يعطيك العافية

ولكن مبعد ضغط البيانات وانا اصادف مشكلة وهي انا البيانات في كل نماذج وتقارير لا تظهر تلقائياً بل يجب انا اذهب الى خانة المعلومة او حقل المعلومة في نموذج او تقرير بعد ذلك تظهر المعلومة او بيانات الحقل ولم يصادفني هذا الا بعد عملية الضغط فهل هنالك حل

او هل يجب إلغي عملية ضغط البيانات لكن لا أعلم كيفية إلغاء عملية الضغط

في انتظر ردك

محمد الجوهر كتب:

نداء الى أخوي سوبر

يعطيك العافية

ولكن مبعد ضغط البيانات وانا اصادف مشكلة وهي انا البيانات في كل نماذج وتقارير لا تظهر تلقائياً بل يجب انا اذهب الى خانة المعلومة او حقل المعلومة في نموذج او تقرير بعد ذلك تظهر المعلومة او بيانات الحقل ولم يصادفني هذا الا بعد عملية الضغط فهل هنالك حل

او هل يجب إلغي عملية ضغط البيانات لكن لا أعلم كيفية إلغاء عملية الضغط

في انتظر ردك

هذه المشكلة غريبة ، ولا اعتقد أن لضغط البيانات تـأثير ، ولكي تطمئن فيمكن أن تلغي الضغط التلقائي عن طريق الدخول إلى خيارات في ادوات قاعدة البيانات وستجدها مربع اختيار تلغي اختياره فقط.

جرب الغاءه ومن ثم بلغني بالنتيجة .

كما أرجوا التأكد من أن البيانات ادخلت من جديد وإلغيت البيانات الموجودة قبل التعديل لأنها قد تكون السبب .. ولو استطعت أن ترفق صور للمشكلة حتى يسهل فهما أكون شاكرا لك.

superhot3000 كتب:

هذه المشكلة غريبة ، ولا اعتقد أن لضغط البيانات تـأثير ، ولكي تطمئن فيمكن أن تلغي الضغط التلقائي عن طريق الدخول إلى خيارات في ادوات قاعدة البيانات وستجدها مربع اختيار تلغي اختياره فقط.

جرب الغاءه ومن ثم بلغني بالنتيجة .

كما أرجوا التأكد من أن البيانات ادخلت من جديد وإلغيت البيانات الموجودة قبل التعديل لأنها قد تكون السبب .. ولو استطعت أن ترفق صور للمشكلة حتى يسهل فهما أكون شاكرا لك.

هل هذا المقصود في الصورة وهو مفتاح ضغط البيانات

اخي الفاضل : محمد الجوهر

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

الزر المشار اليه في صورتكم هو خاص بعمل نسخه محميه بصيغة ACCDE

اما المقصود بضغط القاعده واصلاحها في اكسيس 2007 و 2010 فتجد شرح الوصول اليه في هذه الصوره

بالتوفيق

اولا شكرا على مرورك الفاضل

ولكن هل بالضغط عليه مرة ثانية يعني إلغاء ضغط البيانات

محمد الجوهر كتب:

اولا شكرا على مرورك الفاضل

ولكن هل بالضغط عليه مرة ثانية يعني إلغاء ضغط البيانات

اختار خيارات Access تجدها في الاسفل موجودة في الصورة المرفقة في رد الاخت زهراء ثم اختار قاعدة البيانات الحالية في شاشة الخيارات ومن ضمن الخيارات التي ستجدها (ضغط عند الإغلاق) وستجدها مفعلة فقط ألغي تفعيلها.

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

سأقوم بالمحاولة بالطريقتين

كما اشكر مساعدتك

جمعنا الله معك بجنات الفردوس