Foksh قام بنشر مايو 18 مشاركة قام بنشر مايو 18 (معدل) السلام عليكم ورحمة الله وبركاته ، لدي في النموذج المرفق 100 زر تمت تسميتها حسب تسمية آكسيس Command ويتبعها رقم كمثال Command335 ,, اريد فكرة لإعادة تسميتها مرة واحدة بتسلسل ونمط محددين ، كمثال :- بدلاً من Command أريدها Foksh1 , Foksh2 , Foksh3 .... Foksh100 وهكذا . فهل من أفكار تساعد في تنفيذ المطلوب ؟؟ مع العلم أن الهدف تغيير اسم الازرار التي تحتوي اسمائها على Command وليس كل الأزرار بشكل عام ؟؟؟؟ Rename.accdb تم تعديل مايو 18 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر مايو 18 أفضل إجابة مشاركة قام بنشر مايو 18 عليكم السلام ورحمة الله وبركاته لا يمكننا تنفيذ الاجراء من النموذج نفسه .. فالتسميات لا يمكن تغييرها الا من عرض التصميم من خارج النموذج يمكن التغيير جرب ضع هذا الاجراء في نموذج آخر .. ونفذ 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 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 19 الكاتب مشاركة قام بنشر مايو 19 16 دقائق مضت, ابوخليل said: لا يمكننا تنفيذ الاجراء من النموذج نفسه .. فالتسميات لا يمكن تغييرها الا من عرض التصميم كلام سليم 100% ، أشكرك معلمي الفاضل ، 10000% المطلوب بعينه 👍 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر مايو 19 مشاركة قام بنشر مايو 19 اطلع على هذا الموضوع أستاذنا العزيز @Foksh 🙂 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 19 الكاتب مشاركة قام بنشر مايو 19 3 ساعات مضت, Moosak said: اطلع على هذا الموضوع أستاذنا العزيز @Foksh 🙂 اهلا مهندسنا الغالي ، خانتني ذاكرتي في هذا الموضوع فعلاً ، فلو بحثت عنه لساعدني أيضاً في طلبي 🥺 بارك الله فيك وجزاك الله كل خير 🥰 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان