Reset All The Form

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

اخي الكريم .... أنا أقل خبرة من أن أقيم الكود الذي وضعته

ولكن أردت أن أشاركك الكود التالي

Dim ctrl As Control
    For Each ctrl In Me.Controls
        If ctrl.ControlType = acTextBox Then
            Me.Controls(ctrl.Name) = ""
        End If
    Next

وبالتوفيق

جزاك الله خيرا اخى koao

مرحباً اخواني الكرام...

لماذا لا تجرب الكود

Me.Refresh
Me.Requiry

من داخل النموذج نفسه دون ما حاجة لغلقه ثم فتحه

وإياك أخي mtak33

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

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

استاذ ايهاب

جربت ما ذكرت و لم يحدث ما اريد

هل هناك شئ معين انفذه

ام مجرد

me.refresh

me.requery

جزاك الله خيرا

مرحبا اخواني..

أخي الكريم هذا هو الكود ولا شيء الا ان تضعه مثلاً تحت حدث "عند الضغط أو On Click" لزر أمر داخل النموذج -الذي سميته أنت f_data - وعندما تضغط على هذا الزر المفروض أن يتم ما تريد

استاذى ايهاب عثمان

اشكرك على الاهتمام

و لكن هذا بالطبع ما فعلته

وضعت الكود داخل حدث عند الضغط بالنسبة لزر Reset

:hmm:

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

اعتذر يا استاذ ايهاب على التأخر فى الرد

و مرفق قاعدة البيانات

و ذكرت المطلوب بداخلها

جزاك الله خيرا

Copy of labims.rar

up

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

انا اعرف ان لو هناك اى واحد عنده الحل لن يتأخر

لذا استئذنكم ان كان هناك شئ غامض بالمثال او الطلب ان تذكروة ليتم توضيحه

حيث انى احتاج هذا الموضوع ضرورى و تقريبا متوقف عن العمل بالمشروع بسببه

جزاكم الله خيرا

mtak33 كتب:

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

انا اعرف ان لو هناك اى واحد عنده الحل لن يتأخر

لذا استئذنكم ان كان هناك شئ غامض بالمثال او الطلب ان تذكروة ليتم توضيحه

حيث انى احتاج هذا الموضوع ضرورى و تقريبا متوقف عن العمل بالمشروع بسببه

جزاكم الله خيرا

شكرا أستاذ koao ويعطيك العافية ..

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

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

شوف المرفق ..

تقبل تحياتي ...

aboAdnan_Copy of labims.rar

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

شكرا لك أخي moh samer ali لحل المشكلة في النموذج الرئيسي

وهنا حل مشكلة الزر Reset .... أكتب الكود التالي في حدث النقر عليه

    Dim ctl As Control

    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
            ctl = Replace(Format(ctl.DefaultValue, ctl.Format), """", "")
        End If
    Next ctl

وبالتوفيق

شكرا أخي العزيز koao وبارك الله بك ..

ما ريك باستخدام tag أو (علامة) وبنفس طريقة الكود الذي ذكرته .. بهذه العلامة تلعب على كيفك بجميع مربعات الكتابة ... قسم منها تعيده الى الصفر وقسم آخر تعيده الى فراغ وذلك بأمر واحد وحسب تحديدك المسبق :wink: ..

اذا أحببت أضع لك مثال ..

تقبل مزيدا من الاحترام والتقدير ...

أخوك في الله أبو عدنان ...

اخى فى الله ابو عدنان

بصراحه مش عارف اشكرك ازاى

جزاك الله كل خير على الحل

و طبعا احب العب بالسجلات على كيفى كما ذكرت :)

انا منتظر ما تضعه و تتحفنا به

---

استفسار صغير

راجعت سريعا كود الحفظ الذى عدلته فوجدت استعملت DAO

فهل هناك مشكلة من استعمالى السابق ADODB "بصراحه استعمل هذة الطريقه من تعلمى اياها من الاخت زهرة و لم استعمل DAO من قبل"

و ما هو الفارق من استعمالى لـ DAO و استعمالى لـ ADODB "او طريقتى السالفه"

جزاك الله كل خير

---------------------

اخى العزيز koao

جزاك الله كل خير على الكود الخاص بالـ RESET

و ان شاء الله هاجربه حالا و ارد عليك

-----------------

جزاكم الله خيرا

الاخ الغالى koao

كود الـ RESET تمام 100%

جزاك الله خيرا

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

أخي الكريم mtak33 .... الحمدلله الذي من علي بما فيه فائدة لك

أخي الكريم moh samer ali ... ما نستغني عن أمثلتك .. ونتشرف بأفكارك

وبالتوفيق

mtak33 كتب:

اخى فى الله ابو عدنان

بصراحه مش عارف اشكرك ازاى

جزاك الله كل خير على الحل

و طبعا احب العب بالسجلات على كيفى كما ذكرت :)

انا منتظر ما تضعه و تتحفنا به

---

استفسار صغير

راجعت سريعا كود الحفظ الذى عدلته فوجدت استعملت DAO

فهل هناك مشكلة من استعمالى السابق ADODB "بصراحه استعمل هذة الطريقه من تعلمى اياها من الاخت زهرة و لم استعمل DAO من قبل"

و ما هو الفارق من استعمالى لـ DAO و استعمالى لـ ADODB "او طريقتى السالفه"

جزاك الله كل خير

أخي العزيز mtak33 لا شكرعلى واجب وحياك الله ..

أخي الكريم أنا أحبكم في الله جميعا فلا تورطوني في ما ليس لي طاقة به :ohmy: فأنا لست خبير أكواد ولا أستطيع تقييمها وخاصة وأنا على منبر مثل هذا المنتدى الذي ما شاء الله يجمع الخبراء والمحترفين ولنا الفخر والحمد لله ..

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

وأنا سأنورك وأثلج صدرك بهذه المعلومات القيمة بالكتاب المرفق عن DAO .

DAO.rar

أخي Koao بل أنا من يشرفني مشاركتك أفكارك جزاك الله كل خير على ما تقدمه لنا .... ولك مني +1....

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

سوف نستخدم (علامة) أو tag كحل نضيفة على ما تفضل به أخي العزيز Koao بارك الله به..

أولا ما هي (علامة) أو tag :

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

سنستخدم هنا العلامة (1) للحقول النصية لنعيدها الى فراغ والعلامة (0) للحقول الرقمية لنعيدها الى الصفر وهذا هو المطلوب فعلا والشائع دائما بجميع النماذج ...

بعد تحديد الحقول المطلوبة نكتب الكود التالي ليقوم بهذه المهمة :

Private Sub Command0_Click()
   Dim ctrl As Control
Dim tg As String
For Each ctrl In Me.Controls
tg = ctrl.Tag
If ctrl.Tag = 1 Then
ctrl.Value = Null
ElseIf ctrl.Tag = 0 Then
ctrl.Value = 0
End If
Next
  End Sub

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

وتقبلوا مني مزيدا من الاحترام والتقدير ..

أخوكم في الله أبو عدنان ..

Reset All the form.rar