السلام عليكم
حاول هذا الكود
عباره عن flag وهو مؤشر يبحث عن الاسم في record المخزن في قاعدة البيانات وname تقرأ اسم الشخص من المستخدم ثم يقوم بالبحث عنه من القاعده بتحديد اسم الحقل واذا وجده تحول المؤشر الى true يعني وجده اذا لسه بيستمر بالبحث الى ان تنتهي القاعده اذا لم يجده فيخرج برع loop ثم يضيف الاسم وهذا جزء بسيط حيث ان القاعده ستقوم بالحفظ حتى لو وجد الاسم ولكن يجب عليك منع المستخدم من ضغط زر الحفظ في حالة اذا ظهرت له مسج ان الاسم مكرر وهذي سأتركها لاجتهادك الشخصي

اتمنى ان سكون الشرح واضح

Dim flag As Boolean
Dim name As String
name = InputBox("enter name")
Data1.Recordset.MoveFirst
flag = False
Do While Not flag And Not Data1.Recordset.EOF
If Data1.Recordset.Fields("record name").Value = name Then


MsgBox ("name is duplicated ")
flag = True

Else

Data1.Recordset.MoveNext

End If


Loop