طلب كود على الطائر

وعليكم السلام ورحمة الله

تفضل التعديل

T.N2.rar

غرّام العقول كتب:

وعليكم السلام ورحمة الله

تفضل التعديل

إجابة موفقة ومسددة ما شاء الله

غرّام العقول كتب:

وعليكم السلام ورحمة الله

تفضل التعديل

بارك الله فيك أخي غرّام العقول وشكر الله سعيك .

ولو إني بغيت زر ( نعم أو لا ) يبقى غير مفعل يعني مطفي إذا لم يكتب أي رقم في خانة الرقم . عموما إذا قدرت ولا كثر الله خيرك

القحم كتب:

إجابة موفقة ومسددة ما شاء الله

وفقكم الله أستاذي الغالي , وسدد خطاكم .. شكراً للتشجيع.

طبعاً أخي Zoom10 يمكن ذلك , فقط قم باستبدال الكود السابق بالكود التالي:

Me.Refresh
If IsNull(Me.kmeah) Or Me.kmeah = "" Or Me.kmeah = 0 Then
Me.kesm.Enabled = False
Me.kesm.Value = False
Else
Me.kesm.Enabled = True
Me.kesm.Value = True
End If

ألف ألف شكر لك أخي العزيز

ولو غلبتك شوي معي هل لو عكست الكود بحيث لا يتم إدخال أي رقم إلا بعد وضع علامة صح في مربع نعم أو لا ؟ ولعلمك هذا هو الصحيح .

أكرر أسفي أخ غرام .

zoom10 كتب:

ألف ألف شكر لك أخي العزيز

ولو غلبتك شوي معي هل لو عكست الكود بحيث لا يتم إدخال أي رقم إلا بعد وضع علامة صح في مربع نعم أو لا ؟ ولعلمك هذا هو الصحيح .

أكرر أسفي أخ غرام .

العفو أخي الكريم .. يمكنك ذلك وهو الأسهل , قم بحذف الأكواد السابقة , وضع هذا الكود لحدث عند النقر لمربع الاختيار:

Private Sub kesm_Click()
If Me.kesm = True Then
Me.kmeah.Enabled = True
Else
Me.kmeah.Enabled = False
End If
End Sub

ثم ضع الكود أيضاً في حدث الحالي للنموذج , كما يلي:

Private Sub Form_Current()
If Me.kesm = True Then
Me.kmeah.Enabled = True
Else
Me.kmeah.Enabled = False
End If
End Sub

بالتوفيق

بارك الله فيك وجعل ما قمت به في ميزان حسناتك

:)