السلام عليكم ورحمة الله وبركاته احبتي كتبت هذا الكود لاجبار المستخدم علي كتابة اسم العميل رباعيا حتي لا يتكاسل في كتابة الاسم ويكتفي باس واحد أو اثنين مما يؤدي الي الوقوع في مشكلة تشابه الأسماء. Public Function TestFourthName(ByVal tx As String) As Integer Dim abd As String abd = ChrW(1593) & ChrW(1576) & ChrW(1583) If InStr(1, tx, abd) > 0 Then TestFourthName = (Len(tx) - Len(Replace(tx, " ", ""))) If TestFourthName = 3 Then TestFourthName = TestFourthName +