أعادة تسمية مجموعة كائنات دفعة واحدة بتسمية تسلسلية

[Foksh]

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

لدي في النموذج المرفق 100 زر تمت تسميتها حسب تسمية آكسيس Command ويتبعها رقم كمثال Command335 ,, اريد فكرة لإعادة تسميتها مرة واحدة بتسلسل ونمط محددين ، كمثال :-
بدلاً من Command أريدها Foksh1 , Foksh2 , Foksh3 .... Foksh100 وهكذا .
فهل من أفكار تساعد في تنفيذ المطلوب ؟؟

مع العلم أن الهدف تغيير اسم الازرار التي تحتوي اسمائها على Command وليس كل الأزرار بشكل عام ؟؟؟؟

Rename.accdb

تم تعديل مايو 18, 2024 بواسطه Foksh

[ابوخليل]

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

لا يمكننا تنفيذ الاجراء من النموذج نفسه .. فالتسميات لا يمكن تغييرها الا من عرض التصميم

من خارج النموذج يمكن التغيير 

جرب ضع هذا الاجراء في نموذج آخر .. ونفذ

Private Sub Com1_Click()
DoCmd.OpenForm "form1", acDesign, , , acFormEdit, acHidden
 Dim ctl As Control
 Dim i As Integer
   i = 0
    For Each ctl In Forms!form1.Controls
        If ctl.ControlType = acCommandButton Then
        If Left(ctl.Name, 7) = "Command" Then
        i = i + 1
      ctl.Name = "foksh" & i
            End If
        End If
    Next ctl
End Sub

 

[Foksh]

16 دقائق مضت, ابوخليل said:

لا يمكننا تنفيذ الاجراء من النموذج نفسه .. فالتسميات لا يمكن تغييرها الا من عرض التصميم

 

كلام سليم 100% ، 

أشكرك معلمي الفاضل ، 10000% المطلوب بعينه 👍

[Moosak]

اطلع على هذا الموضوع أستاذنا العزيز @Foksh  🙂 

 

[Foksh]

3 ساعات مضت, Moosak said:

اطلع على هذا الموضوع أستاذنا العزيز @Foksh  🙂 

 

اهلا مهندسنا الغالي ،

خانتني ذاكرتي في هذا الموضوع فعلاً ، فلو بحثت عنه لساعدني أيضاً في طلبي 🥺

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