ازهر عبد العزيز قام بنشر مارس 27 مشاركة قام بنشر مارس 27 السلام عليكم في النموذج fxm يوجد 9 مرباعات اختيار بدون مصدر للسجلات ويوجد نموذج فرعي يحوي 9 سجلات هي نفس مسميات مربعات الاختيار في النموذح الرئيسي عند النقر على اي حقل في النوذج الفرعي يتم تحديد مربع الاختيار في النموذح الرئيسي احتاج كود لاختصار هذا الامر لاني اعمل على 75 مربع اختيار وبنفس الوقت احتاج عند الضغط على السجل يتم تحديد مربع الاختيار لنفس الاسم في السجل والغاء التحديد من بقية المربعات لقد فعلت هذا في السجل الاول لكن الامر اصبح مزعج لوجود العديد من المربعات فهل هناك طريقة ابسط testc.accdb رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر مارس 27 مشاركة قام بنشر مارس 27 (معدل) تفضل هل هذا ما تريد Dim a As String a = Me.x If Me.x = a Then Forms("fxm").Controls(a).Value = True End If أو If Me.x <> "" Then Forms("fxm").Controls(Me.x).Value = True End If testc.accdb تم تعديل مارس 27 بواسطه محمد احمد لطفى 1 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر مارس 27 مشاركة قام بنشر مارس 27 السلام عليكم مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا Private Sub x_Click() Call searchtext(Forms![fxm], Me.x) End Sub Sub searchtext(frm As Form, strtxt As String) Dim ctl As Control For Each ctl In frm.Controls If ctl.ControlType = acOptionButton Then If ctl.Name = strtxt Then ctl.Value = True Else ctl.Value = False End If End If Next End Sub testc_1.accdb 1 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر مارس 27 الكاتب مشاركة قام بنشر مارس 27 منذ ساعه, محمد احمد لطفى said: تفضل هل هذا ما تريد 45 دقائق مضت, أبوبسمله said: مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا جزاكم الله كل خير احسنتم المثالين تمام 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.