عمل واضح ، ومرتب ، وجميل 👍   بتوسيع الكود الاعلاه ، نحصل على : Function chk_De_Select(ctl As Control) If Len(Me.X & "") = 0 Then MsgBox "رجاء اختيار اسم المستخدم" Me.X.SetFocus Me.X.Dropdown GoTo Exit_chk_De_Select End If Dim rs As DAO.Recordset Dim ctl_N As String Try_Again: Set rs = Me.Subformusers.Form.RecordsetClone ctl_N = Replace(ctl.Name, "chk_", "") If rs.RecordCount = 0 Then