كيف يمكن اعادة تسمية العناصر برمجيا

[Debug Ace]

سلام عليكم

من فضلكم عاوزة اعمل شئ ومش عارفه اعمله ازاى

عندى نموذج عاوزة اضيف فيه اكتر من مربع نص وليكن 50 مربع نص

ازاى اخلى اسماء مربع النص على الترتيب بالشكل الاتى  مثلا

officena1

officena2

officena3

officena4

لحد ما نوصل لـ 

officena50

[عمر ضاحى]

اتفضلى 
على فرض ان اسم النموذج هو Test
 

Sub RenameFields()
    Dim frm As Form
    Dim ctrl As Control
    Dim fieldCount As Integer
    fieldCount = 1
'السطر التالى اختياري الغرض منه لكي يعمل الكود دون مشاكل لابد ان يكون النموذج المطلوب العمل عليه فى وضع عرض التصميم
    DoCmd.OpenForm "TEST", acDesign
    Set frm = Forms("Test")
    For Each ctrl In frm.Controls
        If ctrl.ControlType = acTextBox And ctrl.Tag = "*" Then
            ctrl.Name = "officena" & Format(fieldCount, "00")
            fieldCount = fieldCount + 1
        End If
    Next ctrl
End Sub

 

ملاحظه
علشان يشتغل الكود صحيح لابد ان يكون النموذج المطلوب العمل عليه فى وضع عرض التصميم

تم تعديل نوفمبر 8, 2023 بواسطه عمر ضاحى

[kkhalifa1960]

تفضلي أستاذة @عبق الرياحيين محاولتي بالمرفق بطريقتان :

1- الزر (On Form1) . طريقة قديمة 

2- الزر (On Form2) . بيفتح فورم 2 وبينشأ طلبك به وأذا أردتة تزويد أو تقليل 50 تكست بوكس مشروح دالك بمحرر الأكواد فورم1 .

DD400.accdb

[Debug Ace]

شكرا جدا جدا جدا
لحضراتكم

تم تعديل نوفمبر 8, 2023 بواسطه عبق الرياحيين