الى الاخت زهرة واخوانى المرفق مع الرسالة هو من تعديل وعمل المطلوب التى قامت به مشكورة الاخت زهرة ولكن قمت ببعض التعديل ولكن حدث خطأ بعد ان قمت بإضافة هذه الاكوا حتى أقوم بعدم تنشيط لحقلين مثلما فعلت الاخت زهرة دS_typhi ( H ) & S_para typhi ( B )
وهذه الاكواد بعد الإضافة حتى استطيع عدم تنشيطهم وكذلك عدم ظهورهم فى التقرير ويكون خانة الاختيار سوف تقوم بعدم تنشيط اربع حقول ولكن اين الخطأ لا ادرى
Private Sub CHK2_AfterUpdate()
If Me.CHK1.Value = True Then
MsgBox "you must select one"
Me.CHK2.Value = False
Exit Sub
Else
If Me.CHK2.Value = True Then
Me.S_typhi(H).Enabled = False
Me.S_typhi__O__.Enabled = False
Me.S_para_typhi___A__.Enabled = False
Me.S_para typhi(B).Enabled = False
Else
Me.S_typhi(H).Enabled = True
Me.S_typhi__O__.Enabled = True
Me.S_para_typhi___A__.Enabled = True
Me.S_para typhi(B).Enabled = True
End If
End If
End Sub
حيث تظهر رسالة خطأ compile Error
ارجو المساعدة مع توضيح الخطأ
ابراهيم
