*فورم* حفظ اضافة تحرير بنموذج واحد بدون DAO و لا SQL

فكرة جديدة .... جميلة .... ظريفة ..... بادلع البرنامج .

أشرف خليل :D :D

فعلاً طريقة مفيدة

ومنكم نستفيد يا أستاذ mt

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

مثال جميل و مفيد .. نشكرك عليه

و فى انتظار المزيد

(f) (f) (f)

و لي اضافتان

الاولي أنه يمكن التنفيذ علي كل الtext box

الموجودة فى الفورم بالطريقة التالية كما فى ملف التعليمات لتوفير كتابة سطر كود لكل منها فى حالة العدد الكبير من الtext box

Private Sub btnUndo_Click()
     Dim ctlTextbox As Control
     For Each ctlTextbox in Me.Controls
     If ctlTextbox.ControlType = acTextBox Then
        ctlTextbox.Value = ctl.OldValue
     End If
     Next ctlTextbox
End Sub

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

بعد التعديل

و لكن بالطبع طريقة الكود أفضل

أخي الكريم mt أرى أن تضيف :

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

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

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

أخي mt

رائع جدا .

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

الحقيقة كنت اعتقد ان المنتدى بعد ابو حمود قل التفاعل مع المشاركات لكن اثبتو العكس.

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

اخي محسن محمد page up فاتتني ورايك بمحله.

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

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

أخي mt

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

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

اما بالنسبة للحفظ قبل التحديث اجد انها غير عملية بعد كل حقل تظهر رسالة شيء مزعج لكن اذا لم نجد لعجلة الماوس حل فهو الخيار الذي لابد منه . ولك تحياتي

أخي الغالي :

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

اخي حارث احرجتني كثيرا. افضالك كثرت علي ولااستطيع ان ارد ولو جزء منها ( تذكرني بابو حمود ) .

كنت اريد وضع المثال وعندما وجدت ردك رجعت وحاولت عمل ماتفضلت به ولكن واجهتني مشكله وهي عند الضغط على اضافة او تعديل وعند عدم القيام باضافة او تعديل لايعمل الحدث beforupdate وتبقى القاعدة بحالة ( التعديل او الاضافة ) وطريقتك اسهل بكثير ياليت تجد لها حل.

بهذا المثال تم الغاء عمل المفاتيح التالية :

page up and page down and mouse wheel : لكي لاينتقل المستخدم الى سجل اخر .

alt and f4 : لكي لايقوم المستخد باغلاق الشاشة .

ctrl والاسهم اعلى واسفل : لانه عند الضغ على ctrl واحد الاسهم ينتقل الى السجل الاول والاخير .

وتم الغائها عند الاضافة او التعديل فقط.

الله يعينيكم علي اعيدو تحميل المثال ولاتنسوني من ارائكم وملاحظاتكم مشكورين.

المثال على اكسيس 2000 . http://mypage.ayna.com/mutlq_966/save_edit_del.zip

عند عرض الكود بالنموذج يفضل اغلاق الاكسيس واعادة تشغيل المثال ( ماادري عن السبب انا عندي تحدث مشاكل )

عمل رائع جدا جدا جدا .

وما أضفته بشأن عجلة الماوس مبهر .

والحقيقة أنك منذ البداية أستاذ وزيادة .

أظن أن البرنامج لم يعد يحتاج إلى الحدث beforupdate

لكن عموما هنا فكرتان طبقتهما على المثال الأول ، (لأني لم أرد أن أفسد جمال المثال الثاني) :

http://www.pcpages.com/harith77/Save1997.zip

عذراً للتأخير.

الا انت اللي مبهر واستاذ وانا اللفه الطويله هذي كلها لكي لاينتقل المستخدم وهو يضيف او يعدل وانت اختصرت الطريق .واذا انا عملت شيء كويس انا اعتبره بيضة ديك. طريقتك افضل المثال نزلته افحصه بتمعن واردلك .

اخي حارث هذا مثالك بعد اضافة بعض التعديلات

http://mypage.ayna.com/mutlq_966/save97.zip

وانصح باستخدامه لسماحه استخدام مفاتيح التنقل وسؤال المستخدم عند الاضافة او التعديل قبل الانتقال ( اذا قام باجراء تعديل او اضافة )

واشكرك اخي حارث لانه لولا الله ثم لولاك ماوصل الموضوع الى هذه المرحله.في حالة وجود ملاحظات ارجو ذكرها

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

ولي طلب : أن لا تحذف المثال الذي فيه منع عجلة الماوس ، فهو مفيد جدا.