تعديل على كود

السلام عليكم الرجو متابعة الموضوع للاهمية

اخي الفاضل

مارايك ان تستبدل الكود بالتالي

فهو يمر على كل العناصر من نوع الخيار وياخذ العنوان وطبعا بشرط ان الخيار مفعلا

Private Sub tar_GotFocus()
For Each ct In Me.Section(0).Controls
If ct.ControlType = acCheckBox Then
If ct = -1 Then xt = xt & ct.Controls(0).Caption & " * "
End If
Next
tar = xt
End Sub

بالتوفيق

بارك الله فيك أخي رمحان كود رائع جدا واراحني من الكود القديم