اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


jo_2010

الردود الموصى بها

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

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

بدل من كتابة

ME.FULL_NAME=NULL

ME.COEDE=NULL

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

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

رابط هذا التعليق
شارك

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

 

  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

 

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

  • Like 2
رابط هذا التعليق
شارك

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

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

خالص الشكر

رابط هذا التعليق
شارك

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

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

 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

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

بالتوفيق

  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

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

قمت بالتجربه على مثال عندى يقوم بالتفريغ الا انه يعطينى رساله لا يمكن تخصيص قيه لهذا الكائن حتى مع 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 الا انها تعطينى نفس الرساله

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

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

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

 

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

تم تفادى الخطأ بفضل الله ثم بفضل اساتذتنا الافاضل @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

 

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

 

رابط هذا التعليق
شارك

السلام عليكم 

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

عملت طريقة 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

  • Like 2
رابط هذا التعليق
شارك

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

جرب هذا الكود

تم تعديل بواسطه يوليوس قيصر
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

 

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

p_14730jat91.png

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information