ازهر عبد العزيز قام بنشر مارس 27 قام بنشر مارس 27 السلام عليكم في النموذج fxm يوجد 9 مرباعات اختيار بدون مصدر للسجلات ويوجد نموذج فرعي يحوي 9 سجلات هي نفس مسميات مربعات الاختيار في النموذح الرئيسي عند النقر على اي حقل في النوذج الفرعي يتم تحديد مربع الاختيار في النموذح الرئيسي احتاج كود لاختصار هذا الامر لاني اعمل على 75 مربع اختيار وبنفس الوقت احتاج عند الضغط على السجل يتم تحديد مربع الاختيار لنفس الاسم في السجل والغاء التحديد من بقية المربعات لقد فعلت هذا في السجل الاول لكن الامر اصبح مزعج لوجود العديد من المربعات فهل هناك طريقة ابسط testc.accdb
محمد احمد لطفى قام بنشر مارس 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
أبوبسمله قام بنشر مارس 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
ازهر عبد العزيز قام بنشر مارس 27 الكاتب قام بنشر مارس 27 منذ ساعه, محمد احمد لطفى said: تفضل هل هذا ما تريد 45 دقائق مضت, أبوبسمله said: مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا جزاكم الله كل خير احسنتم المثالين تمام 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.