تفريغ كل مربعات النص بضغطة زر واحدة

[jo_2010]

السادة الخبراء بعدالتحية

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

بدل من كتابة

ME.FULL_NAME=NULL

ME.COEDE=NULL

مربعات كثيرة ولو كتبتها بهذة الصورة ستكون مملة هل لديكم حل افضل

شكرا لكم مقدمت

[Ali Sadiq]

تفضل اخي الكريم 

Dim varFilter As Variant
varFilter = 0

   With Me.Form
   
   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
   Else
    .FilterOn = False
   End If
    .Requery
  End With

بالتوفيق

[أبوبسمله]

ومشاركه مع اخى على

 

  Dim ctl As Control
    For Each ctl In Me.Controls
          If ctl.ControlType = acTextBox Then
               If ctl.Value <> "" Then
                    ctl = ""
               End If
          End If
    Next ctl

 

تقبلوا تحياتى  وتمنياتى لكم وللجميع بالتوفيق

[jo_2010]

استاذ أحمد الفلاحجى

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

خالص الشكر

[أبوبسمله]

لان احنا حددنا مربعات النص

جرب الكود التالى ان شاء الله يظبط معك

 Dim ctl As Control
    For Each ctl In Me.Controls
          If ctl.ControlType = acTextBox  and ctl.ControlType = acComboBox Then
               If ctl.Value <> "" Then
                    ctl = ""
               End If
          End If
    Next ctl

جرب ووافنا بالنتيجه

بالتوفيق

[jo_2010]

أحمد الفلاحجى

لايعمل يااستاذى الافاضل هذا الكود

[ابوآمنة]

Dim ctl As Control
    For Each ctl In Me.Controls
          If ctl.ControlType = acTextBox  or ctl.ControlType = acComboBox Then
               If ctl.Value <> "" Then
                    ctl = ""
               End If
          End If
    Next ctl

عن أذن أخي وحبيبي أحمد 

غير كلمة and إلى or كما في المثال أعلاه

[أبوبسمله]

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

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

Dim ctl As Control

    For Each ctl In Me.Controls
          If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
               If ctl.Value <> "" Then
                   ctl.Value = False
               End If
          End If
    Next ctl

 

[أبوبسمله]

اخى صالح

حتى اننى استخدمت Null الا انها تعطينى نفس الرساله

بالرغم ان هذه الرسائل لم تظهر فى حال كان تكست بوكس فقط

الى هنا اتوقف واتابع مع اخى السائل لانه لا علم لى وانتظر التعديل من ااخوتى واساتذتى الافاضل

تقبلوا تحياتى

 

تم تعديل يناير 11, 2020 بواسطه أحمد الفلاحجى

[ابوآمنة]

المشكلة في حقل الترقيم التلقائي .

[ابوآمنة]

ممكن تجاوز الرسالة بصائد الأخطاء

او استثناء حقل الترقيم التلقائي 

[أبوبسمله]

كيف ذلك اخى صالح

وجزاك الله خيرا عالتوضيح فعلا الكمبوبوكس لدى لحقل ترقيم تلقائى

 

[أبوبسمله]

بالفعل الكود شغال تمام من غير حقول ترقم تلقائى

اخى صالح @ابوآمنة كيف عمل هذا الاستثناء او تجاوز الخطأ

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

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[ابوآمنة]

حياك أخي احمد

للأسف حاولت الاستثناء لكن لم يفلح .

لعل الأخوة الزملاء

يفتح الله عليهم بطريقة استثناء حقل الترقيم التلقائي .

[أبوبسمله]

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

ان شاء الله احد اخواننا واساتذتنا ينور طريقنا ويعلمنا كيف نستثنى هذا الحقل

وسابحث ان شاء الله غدا عند عودتى من العمل لعل الله يهدينى للطريق

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[أبوبسمله]

الحمدلله اللذى بنعمته تتم الصالحات اخى صالح @ابوآمنة

تم تفادى الخطأ بفضل الله ثم بفضل اساتذتنا الافاضل @jjafferr و @kaser906 من الرابط التالى

On Error GoTo Err_Handler
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then
'Add other control types here
ctl.Value = ""
End If
Next ctl
Exit_Handler:
  Set ctl = Nothing
Exit Sub
Err_Handler:
 ' Use next line for debugging
 ' MsgBox "Error " & Err.Number & " - " & Err.Description
  Resume Exit_Handler

 

يالاضافه للرابط التالى

https://it.toolbox.com/blogs/marvinmatey/function-for-resetting-controls-on-an-access-form-051314

 

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

 

[Ali Sadiq]

السلام عليكم 

اخواني واساتذتي 

في مشاركتي الاولى وضعت الكود بس الظاهر ما في ولا واحد جرب الكود

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

 

[ابوآمنة]

حياك أخي احمد

لا زالت المشكلة قائمة ، 

والظاهر أنك لم تجرب الكود قبل إدراجه .

على العموم هذا مرفق لوضع التجارب عليه 

تفريغ الحقول.mdb

[ابوآمنة]

عملت طريقة Tag ونجح

Dim ctl As Control
    For Each ctl In Me.Controls
          If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
               If ctl.Tag = 1 Then
                   ctl.Value = Null
               End If
          End If
    Next ctl

الطريقة : تذهب لخصائص الحقل تبويب| غير ذلك | علامة | ضع رقم 1 في الحقول التي تريد تفريغها مع استثناء الترقيم التلقائي .

تفريغ الحقول.mdb

[ابوآمنة]

ويمكن أيضا العكس وضع Tag في حقل المراد استثناءه 

If ctl.Tag <> 1 Then

لكن لم اجرب

[يوليوس قيصر]

Dim ctl As Control

    For Each ctl In Me.Controls
          If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
               If ctl.Value <> "" Then
                   ctl.Value = ""
               End If
          End If
    Next ctl

جرب هذا الكود

تم تعديل يناير 13, 2020 بواسطه يوليوس قيصر

[أبوبسمله]

اخى على تقبل تحياتى وجزاك الله خيرا

لقد جربت كودك بعد ما عملت مشاركه معك ولكن لم يعمل معى ولعل هذا لجهلى وصدقنى كنت ساطلب منك اليوم طريقه عمل الكود فانا لازلت مبتدء واحاول التعلم والفهم

واعذرنى لجهلى اخى الحبيب

واطلب منك اخى شرح طريقه عمل الكود لى حتى افهم واطبق واتعلم منكم اخى

جزاك الله خيرا وبارك الله فيك وجعلك عونا لاخوانك باذن الله

لقد قمت بتجريبه عندى وعمل بدون مشاكل  اخى صالح 

ساقوم بتجربته مره اخرى لعلى بالامس من كتر الضغط والتشويش والاستعجال لم الاحظ شىء فاعذرونى فانا احاول اتعلم معكم

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

[أبوبسمله]

ساجرب اكوادك ايضا فكثره الطرق تفيد فالتعلم على راى اخى واستاذى جعفر

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

 

ساطبق عندى واوفيك بالنتيجه

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

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

[أبوبسمله]

نفس رساله الخطا اخى الفاضل يوليوس

تقبل تحياتى اخى الفاضل

[أبوبسمله]

اخى الفاضل على @Ali Sadiq

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

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

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

جزاك الله اخى على مشاركتك لنا وتعليمنا