الغاء تفعيل زر خيار عند تفعيل الاخر

[عبد اللطيف سلوم]

السلام عليكم

اخواني الاعزاء  

عندي نموذج مستمر مرفق  اسفل

المطلوب - عند اختيار الزر الاول يتم الغاء الاختيار للزر الثاني 

والعكس صحيح

بحيث عندما نختار السيارة مغادرة يتم ازالة الصح من خيار السيارة جاهزة

وعند ارجاع الصح للسيارة جاهزة يتم ازالة الصح من خيار السيارة مغادرة

اتمنى ان تكون الفكرة وصلت

مرفق مثال للتطبيق عليه

جزاكم الله خيرا 

مثال نعم لا.accdb

[عبد اللطيف سلوم]

UP

[kanory]

استخدم قاعدة IF لاني اكتب على الموبايل

تفضل <<<<<<>>>>>>

Private Sub السيارة_جاهزة_Click()
If Me.السيارة_جاهزة = True Then
Me.السيارة_مغادرة = False
ElseIf Me.السيارة_مغادرة = True Then
Me.السيارة_جاهزة = False
End If
End Sub

Private Sub السيارة_مغادرة_Click()
If Me.السيارة_مغادرة = True Then
Me.السيارة_جاهزة = False
ElseIf Me.السيارة_جاهزة = True Then
Me.السيارة_مغادرة = False
End If
End Sub

 

مثال نعم لا.accdb

[عبد اللطيف سلوم]

4 دقائق مضت, kanory said:

استخدم قاعدة IF لاني اكتب على الموبايل

تفضل <<<<<<>>>>>>

Private Sub السيارة_جاهزة_Click()
If Me.السيارة_جاهزة = True Then
Me.السيارة_مغادرة = False
ElseIf Me.السيارة_مغادرة = True Then
Me.السيارة_جاهزة = False
End If
End Sub

Private Sub السيارة_مغادرة_Click()
If Me.السيارة_مغادرة = True Then
Me.السيارة_جاهزة = False
ElseIf Me.السيارة_جاهزة = True Then
Me.السيارة_مغادرة = False
End If
End Sub

 

مثال نعم لا.accdb 456 kB · 1 download

اشكرك اخي الكريم

كل المحبة والاحترام

[kanory]

حياك اخي @عبد اللطيف سلوم 

بالتوفيق ........

[محمد أبوعبدالله]

لإثراء الموضوع تفضل اخري الكريم

Private Sub السيارة_جاهزة_Click()

    If Me.السيارة_جاهزة = True Then Me.السيارة_مغادرة = False

End Sub

Private Sub السيارة_مغادرة_Click()

    If Me.السيارة_مغادرة = True Then Me.السيارة_جاهزة = False

End Sub

او

Private Sub السيارة_جاهزة_Click()

    Select Case Me.السيارة_جاهزة
       Case Me.السيارة_جاهزة = True
          Me.السيارة_مغادرة = False
    End Select

End Sub

Private Sub السيارة_مغادرة_Click()

    Select Case Me.السيارة_مغادرة
       Case Me.السيارة_مغادرة = True
          Me.السيارة_جاهزة = False
    End Select

End Sub

تحياتي

[عبد اللطيف سلوم]

2 ساعات مضت, محمد أبوعبدالله said:

لإثراء الموضوع تفضل اخري الكريم

Private Sub السيارة_جاهزة_Click()

    If Me.السيارة_جاهزة = True Then Me.السيارة_مغادرة = False

End Sub

Private Sub السيارة_مغادرة_Click()

    If Me.السيارة_مغادرة = True Then Me.السيارة_جاهزة = False

End Sub

او

Private Sub السيارة_جاهزة_Click()

    Select Case Me.السيارة_جاهزة
       Case Me.السيارة_جاهزة = True
          Me.السيارة_مغادرة = False
    End Select

End Sub

Private Sub السيارة_مغادرة_Click()

    Select Case Me.السيارة_مغادرة
       Case Me.السيارة_مغادرة = True
          Me.السيارة_جاهزة = False
    End Select

End Sub

تحياتي

الله يجزيك الخير اخي الكريم