هل استطيع تسمية عدة(Text Box)في التقرير مرة واحدة

[zakwan]

الاخوة الافاضل

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

امابعد....

لدي تقرير فية الكثير من (Text Box) المتتابعة ولكن لهم اسماء متفرقة

مااريدة بالضبط هو اعادة تسمية هذه ال (Text Box) عن طريق تحديدهم ثم اعادة تسميتهم مرة واحدة

اي مثال

لدي المربعات في التقرير كتالي :

Text 25

Text26

Text46

Text55

Text56

Text70

Text77

Text88

مااريدة ... عند تحديدهم مرة واحدة ليصبحوا كتالي:

Text01

Text02

Text03

Text04

Text05

Text06

Text07

Text08

Text09

Text10

اي متسلسلين

اتمنى ان اكون اوصلت فكرة سؤالي بشكل واضح

واتمنى ان اجد لديكم الاجابة مع الشكر الجزيل لكم

[zakwan]

للرفع - اتمنى الاجابة ...مع الشكر

[Dream_Works]

يمكنك وضع كود مثل هذا في أي زر لنموذج ( فورم ) و تشغيله

ملحوظة : ضع اسم التقرير المطلوب في المتغير ReportName

Private Sub Command24_Click()
Dim c As Control, i As Byte, ReportName As String
ReportName = "Report1"
DoCmd.OpenReport ReportName, acViewDesign
For Each c In Reports(ReportName).Controls
If c.ControlType = acTextBox Then
i = i + 1
c.Name = "Text" + Format(i, "00")
End If
Next c
DoCmd.Close acReport, ReportName, acSaveYes
End Sub

[zakwan]

الاخ القدير Dream_Works

اولا

جزاك الله كل خير لمساعدتك

ثانيا

اضع لك مثال على ذلك في المرفقات حيث ان الطريقة فشلت معي

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

Test1.rar

[Dream_Works]

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

جرب غير كلمة "Text" الموجودة بالكود عندك إلى أي كلمة أخرى لم تستخدمها من قبل و شغل الكود ... ثم غير مرة أخرى إلى كلمة Text و شغل

ملحوظة :

ضع هذا السطر بالكود بدل الموجود عندك ... ( إضافة بسيطة )

DoCmd.OpenReport ReportName, acViewDesign, , , acHidden

[zakwan]

اخي القدير Dream_Works

جاري التجريب وسوف اطلعك على التطورات ان شاء الله والف الف شكر لك ولتعاونك

[zakwan]

ياسيدي كل التقدير والاحترام

زبط ومشي الحال وعال العام

تقبل تحياتي وجعل الله مافعلت في ميزان حسناتك