مطلوب اغلاق نموذج محمي بدون ادخال بيانات

[ابوخليل]

افتح المرفقات وحاول اغلاق النموذج بدون ادخال شيء

لا أريد الاغلاق أن يتم مع علامة ( x )التي في الاطار

ولا أريد وضع Quit بدلا من close الموجودة

والغاية من هذا الطلب هو منع الرقم التلقائي من ادراج رقم جديد ،

db2.rar

[waeelahmed]

أخى ابو خليل

لماذ قمت بعمل هذا الحقل ترقيم تلقائى

يمكنك وضع المسلسل باستخدام الكود

وبذلك لن يصدر رقم ولا يستخدم كما الحال فى الترقيم التلقائى

[ابوخليل]

اهلا أخي وائل

السبب : حاجة في نفس يعقوب ، أوحتها الي فكرة " عدم الترقيم التلقائي الا بعد الحفظ "

[waeelahmed]

والله أعلم لا يمكنك ذلك

إلا إذا فعلته ظاهرياً على النموذج بالكود

وعند الحفظ يصدر فعلياً الترقيم التلقائى

[رياض الراوي]

السلام عليكم:

أقدم مساهمتي في هذا الموضوع عسى أن يكون فيها شيء من الفائدة

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

UnDoChanges.rar

[waeelahmed]

أخى رياض

لو حاولت تكتب اى شئ يتم اصدار الرقم التلقائى لرقم لا يمكنك إعادته مرة أخرى

ولكن أخى ابو خليل لا يريد اصدار الرقم إلا إذا حفظت السجل فى الجدول فعلياً

[ابوخليل]

السلام عليكم

أنا قلت : أوحتها الي فكرة " عدم الترقيم التلقائي الا بعد الحفظ "

مجرد إيحاء

والذي أريده فعلا الا يصدر الرقم الا بعد خروجي من أول حقل ، أو حتى بعد تحديث أول حقل .

( يعني يصبر شوي حتى اكتب حرفين ثلاثة )

[رياض الراوي]

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

ولدي اقتراح آخر بعمل حقل غير منضم قيمته الافتراضية تساوي قيمة الحقل (md) ويعطي قيمته بعد التحديث للحقل (md) وبذلك لا يتم تغيير الترقيم التلقائي إلا بعد استكمال كتابة الحقل (md) مع تحياتي للجميع.

UnDoChanges.rar

[ابوخليل]

اشكر اخواني على التفاعل والمشاركة .

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

أخي رياض : وصلت بفكرتك الأخيرة الى منتصف الطريق ، وجعلت تحقق القيمة بناء على تحقق الشرط

بقي فقط غلق النموذج اذا لم يتحقق الشرط ؟

UnDoChanges.rar

[ابوخليل]

اظن أني وصلت لحل يرضي هذا النموذج فانغلق

استبدلت الشرط الذي في المثال بهذا :

If Not IsNull(md) And (md) <> 4 Then

مشكور أخي رياض

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

تم تعديل يناير 26, 2010 بواسطه أبو الأنس

[رياض الراوي]

السلام عليكم:

أشكرك أخي أبوالأنس على هذا التكريم.

ولا أعلم لماذا لم يعد المثال الذي أرفقته وبه أمر ضغط قاعدة البيانات

SendKeys "{F10}"

SendKeys "]sq"

يعمل بشكل جيد مع انه كان كذلك دون سبب مفهوم

وأرفق مثال بسيط ولكن يؤدي نفس الغاية

ويمكن عمله بجملة SQL

DoCmd.RunSQL "INSERT INTO tblAllSr ( md, aljeha )SELECT [Forms]![frmAllSr]![md2] AS md, [Forms]![frmAllSr]![aljeha2] AS aljeha;"

UnDoChanges.rar

تم تعديل يناير 27, 2010 بواسطه رياض الراوي

[ابوخليل]

بالنسبة لامر الضغط في المثال السابق فإنه يعمل ولكن هذه الطريقة يتم فيها اغلاق قاعدة البيانات ثم فتحها ولا يخفى عليك تبعات ذلك .

أما في هذا المثال :

فـ لله درك ...

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

دمت بخير وهناء ،،