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

[أبوبسمله]

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

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

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

 

الغريب فالامر ان كود اخى على @Ali Sadiq  قد عمل بعض وضع رقم 1 فالتاج

 

تقبلوا تحياتى وفى انتظار اخى صالح @ابوآمنة لرؤيه هذا الخطأ مع العلم بان هذه الطريقه مرهقه ايضا فلدى اكثر من 10 مربعات نص + 2 كومبو

 

جزاكم الله خيرا اخوانى واساتذتى

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

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

 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

 

[ابوآمنة]

انا ع طريق سفر 

فور وصولي بمشيئة الله سأطلع ع المثال

[kaser906]

السلام عليكم

جربو هذا  الكود

فهو يفرغ مربعات النص والكمبو بوكس التي تحتوي على علامة الناج "En" مع اسثناء الحقول  التي لا تحمل العلامة 

فالمفترض حقل الترقيم التلقائي لا يجب وضع علامة التاج اليه

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "En" Then
ctl = Null
End If
Next

::بالتوفيق::

 

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

[أبوبسمله]

توصل بالسلامه ان شاء الله اخى صالح جزاك الله خيرا

فى ملحوظه مهمه : بان الكود يعمل لدى لان حقل الترقيم التلقائى بالكود وليس ترقيم تلقائى كما بمثالك اخى صالح

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

قد افرغ النص بالتاج اخى كاسر @kaser906 مع الابقاء على حقل الرقم بالفعل

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

Dim ctl As Control
  On Error Resume Next
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
 Set ctl = Nothing
 DoCmd.GoToRecord , , acNewRec

 

ولكن يفرغ الحقول وينشىء حقل فارغ

واخر تعديل لى مع الترقيم التلقائى مع مثال اخى صالح @ابوآمنة

Dim ctl As Control
  On Error Resume Next
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
 Set ctl = Nothing
 Me.RecordSource = ""
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE Temp3.f1, Temp3.f2, Temp3.F3, Temp3.ID FROM Temp3 WHERE (((Temp3.f1) Is Null)) OR (((Temp3.f2) Is Null)) OR (((Temp3.F3) Is Null));"
    DoCmd.RunSQL "DROP INDEX ID ON Temp3;"
    DoCmd.RunSQL "alter table Temp3 drop  ID;"
    DoCmd.RunSQL "alter table Temp3 Add column ID autoincrement;"
    DoCmd.RunSQL "CREATE UNIQUE INDEX ID on Temp3(ID) ;"
    DoCmd.SetWarnings True
    Me.RecordSource = "Temp3"
    DoCmd.GoToRecord , , acNewRec

وفى انتظار شروحاتكم

مرفق المثال

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

 

 

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

[ابوآمنة]

شكراً إضافة جميلة يا أخي أحمد

وإعادة الفهرس من جديد

أضفت تجربتي شاهد المرفق 

'إضافة الحقول المستثناه
ID.Tag = 2

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

بدون إضافة التاج في خصائص الحقل يتم إضافته في الكود .

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

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

[أبوبسمله]

انا الذى عليه شكركم اخوانى واساتذتى بارك الله فيكم

اضافه جميله باستخدام تاج الترقيم اخى صالح @ابوآمنة

ولكن ايضا يضيف السجل الفارغ برقمه والكود التالى بدون استخدام التاجات خالص فالمشاركه السابقه لى

Dim ctl As Control
  On Error Resume Next
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
 Set ctl = Nothing
 DoCmd.GoToRecord , , acNewRec

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

وجزاهم الله خيرا اساتذتنا ومعلمينا

2 ساعات مضت, أحمد الفلاحجى said:

فى ملحوظه مهمه : بان الكود يعمل لدى لان حقل الترقيم التلقائى بالكود وليس ترقيم تلقائى كما بمثالك اخى صالح

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

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

تمتعت واستفدت كثيرا من مشاركتكم معى وانتظر ايضا اخى على @Ali Sadiq للتعقيب وشرح كوده فضلا لا امرا وهل فعلا محتاج التاج كما اشتغل معى بوضع التاجات ام هناك شىء لم افهمه

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

بارك الله فيكم وجزاكم الله كل خير

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

احبكم فالله

[ابوآمنة]

اعجبتني هذه المقوله :

قَالَ ابْنُ الْمُبَارَكِ: لَا يَزَالُ الْمَرْءُ عَالِمًا مَا طَلَبَ الْعِلْمَ، فَإِذَا ظَنَّ أَنَّهُ قَدْ عَلَمَ؛ فَقَدْ جَهِلَ

[أبوبسمله]

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

سنتعلم وسنظل نتعلم الى ان ياخذ الحق حقه جل وعلى

بارك الله فيكم اخوانى وجزاكم الله خيرا