عبق الرياحيين قام بنشر نوفمبر 7, 2023 مشاركة قام بنشر نوفمبر 7, 2023 سلام عليكم من فضلكم عاوزة اعمل شئ ومش عارفه اعمله ازاى عندى نموذج عاوزة اضيف فيه اكتر من مربع نص وليكن 50 مربع نص ازاى اخلى اسماء مربع النص على الترتيب بالشكل الاتى مثلا officena1 officena2 officena3 officena4 لحد ما نوصل لـ officena50 رابط هذا التعليق شارك More sharing options...
أفضل إجابة عمر ضاحى قام بنشر نوفمبر 8, 2023 أفضل إجابة مشاركة قام بنشر نوفمبر 8, 2023 (معدل) اتفضلى على فرض ان اسم النموذج هو 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 بواسطه عمر ضاحى 2 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر نوفمبر 8, 2023 مشاركة قام بنشر نوفمبر 8, 2023 تفضلي أستاذة @عبق الرياحيين محاولتي بالمرفق بطريقتان : 1- الزر (On Form1) . طريقة قديمة 2- الزر (On Form2) . بيفتح فورم 2 وبينشأ طلبك به وأذا أردتة تزويد أو تقليل 50 تكست بوكس مشروح دالك بمحرر الأكواد فورم1 . DD400.accdb 2 رابط هذا التعليق شارك More sharing options...
عبق الرياحيين قام بنشر نوفمبر 8, 2023 الكاتب مشاركة قام بنشر نوفمبر 8, 2023 (معدل) شكرا جدا جدا جدا لحضراتكم تم تعديل نوفمبر 8, 2023 بواسطه عبق الرياحيين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان