من لديه طريقة التعديل على السجلات وحفظها .. نرجو الافاده

[wael2006]

اولاً : احب ان اشكر هذا الصرح التعليمي الرائع

واشكر كل من ساعدني في موضوعي السابق .. الاخ منذر والا خ فتى الوادي

ومازلنا نتعلم من الخبراء .. بارك الله فيهم

معليش تعبتكم معي

بس ماهي الطريقه ؟؟؟

ارغب ان يكون ادخل البيانات عن طريق اضافه او تعديل فقط في النوذج

وان لايتم حفظ اي بيانات بدون الضغط على زر حفظ

help.rar

[منذر عساج]

أخي الكريم

لا شكر على واجب ومرحباً بك

بالنسبة لزري التحديث وإضافة سجل جديد

تم التعديل في نموذج ( المدن)

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

طلب كلمة سر لحفظ التعديلات

وهذا مثال جميل للاستاذة /زهرة لمنع الحفظ التلقائي

help.rar

NO_AUTO_SAVE_UP.rar

[wael2006]

اخوي منذر ليس هذا ماقصدته

اريد في نموذج الاتصالات ... ان لايستطيع اي شخص الاضافه على النموذج بدون الضغط على زر تعديل

ولا يتم حفظ بدون اضافة جديد او تعديل ...

واريد عند فتح النموذج يكون عند اخر شيء خرجت منه ...

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

[منذر عساج]

وهذا ما تم بالفعل على نموذج (المدن )

جرب تطبيقه على اي نموذج آخر

[wael2006]

اخي منذر والله اني مستحي منك

احس اني متعبك معي وانا مو فاهم عليك

حاولت اشوف ايش الي تغير عن الي عندي عشان اطبقه على اكثر من نموذج ماعرفت

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

بعدين ... بعد الضغط على زر تحديث تصير تقدر تغير اي شيء في اي سجل

انا ابي بالضغط على تحديت تقدر تعدل بنفس السجل واذا انتقلت على سجل ثاني لازم تضغط تحديت

والا يتم حفظ التعديل بدون الضغط على زر حفظ

يعني ابي اسوي شيء بروفيشنال يشب البرامج الجاهزه .... وانا عليمي من جنبها

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

[منذر عساج]

حباً وكرامة اخي الكريم

سأشرح لك ما قمنا به :

1) تم التعديل على نموذج الإتصالات مباشرة بعد تغيير مسميات الحقول من العربية الى الإنجليزية للسهولة .

2) قمنا بوضع الكود التالي في حدث عند التحميل للنموذج لتأمين الحقول :

atsalID.Enabled = False
atsalID.Locked = True
atsalname.Enabled = False
atsalname.Locked = True
fname.Enabled = False
fname.Locked = True
lname.Enabled = False
lname.Locked = True
lakab.Enabled = False
lakab.Locked = True
jop.Enabled = False
jop.Locked = True
comname.Enabled = False
comname.Locked = True
adress.Enabled = False
adress.Locked = True
regon.Enabled = False
regon.Locked = True
sity.Enabled = False
sity.Locked = True
box.Enabled = False
box.Locked = True
codebox.Enabled = False
codebox.Locked = True
tel1.Enabled = False
tel1.Locked = True
tel2.Enabled = False
tel2.Locked = True
fax.Enabled = False
fax.Locked = True
tel3.Enabled = False
tel3.Locked = True
mail.Enabled = False
mail.Locked = True
atsalgood.Enabled = False
atsalgood.Locked = True
note.Enabled = False
note.Locked = True
mndopname.Enabled = False
mndopname.Locked = True

3) قمنا بوضع الكود التالي في حدث عند النقر لزر (تحديث) لفك التامين على السجلات :

atsalID.Enabled = True
atsalID.Locked = False
atsalname.Enabled = True
atsalname.Locked = False
fname.Enabled = True
fname.Locked = False
lname.Enabled = True
lname.Locked = False
lakab.Enabled = True
lakab.Locked = False
jop.Enabled = True
jop.Locked = False
comname.Enabled = True
comname.Locked = False
adress.Enabled = True
adress.Locked = False
regon.Enabled = True
regon.Locked = False
sity.Enabled = True
sity.Locked = False
box.Enabled = True
box.Locked = False
codebox.Enabled = True
codebox.Locked = False
tel1.Enabled = True
tel1.Locked = False
tel2.Enabled = True
tel2.Locked = False
fax.Enabled = True
fax.Locked = False
tel3.Enabled = True
tel3.Locked = False
mail.Enabled = True
mail.Locked = False
atsalgood.Enabled = True
atsalgood.Locked = False
note.Enabled = True
note.Locked = False
mndopname.Enabled = True
mndopname.Locked = False

4) قمنا بوضع الكود التالي في حدث قبل التحديث للنموذج لمنع الحفظ التلقائي :

If MsgBox("  هل تريد حفظ التغييرات ", vbYesNo, _
" تأكيد الحفظ") = vbNo Then
 Cancel = True
 SendKeys "{ESC}"
 Exit Sub
 End If

والله الموفق ,,,

help.rar