كيفية منع تكرار الاسم

الاخوة الاعزاء :

اولا عندي مشكلة في عملية البحث في المنتدى وتجي رسالة تقول ان عندي مشكلة مع قاعدة البيانات فهل هي من الموقع ام ماذا

الاهم : هو انني بحثت صفحة ورى صفحة عن كود لمنع تكرار المعلومة وقد وجدت الكثير لكنها جميعا تمشي مع الحقول التي تحمل ارقاما ولم تنجح معي في الحقول التي بها نصوص وهذا واحد من الكودات التي اخذتها من المنتدى ممكن احد يعدل عليه لمنع تكرار الاسم مثلا

Private Sub Text0_BeforeUpdate(Cancel As Integer)

'To avoid Null

If IsNull(Me.Text0) Then

MsgBox "Null values are not Allowed"

SendKeys "{ESC}"

Cancel = True

Exit Sub

End If

If Not IsNull(Me.Text0) Then

'if x is a number

Dim myval As Integer

myval = Me.Text0

Dim x

x = DLookup("ID", "Table1", "[iD]=" & myval)

If x = Me.Text0 Then

MsgBox "Value already Exist"

SendKeys "{ESC}"

Cancel = True

End If

End If