تكرار اسم العميل

[ابو فتحى]

اعضاء المنتدى الاعزاء

السلام عليكم ورحمه الله وبركاته 

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

If (Eval("DLookUp(""[CustomerName] "",""[Customers]"",""[CustomerName]=form![CustomerName]"") Is Not Null")) Then
MsgBox "اسم العميل مكرر أو سبق تسجيله من قبل ", vbInformation + vbMsgBoxRight, "االبرنامج"
DoCmd.GoToControl ("CustomerName")
Exit Sub
End If
 

[ابو جودي]

ممكن مرفق 

[ابو فتحى]

هل يوجد كود لمنع تكرار الاسم فى الجدول

[ابو جودي]

نعم هات المرفق

[ابو فتحى]

للاسف مش عارف رفع القاعده البيانات عشان كبير

[طاهر الوليدي]

اخي 

اعرض الجدول في وضع تصميم

اشر على الحقل اسم عميل

ومن خصائص الحقل

تجد بيانات اولها تنسيق

والثامن كلمة مفهرس امامه اختر نعم التكرار غير مقبول وخرج وقم بالحفظ

 

حسب مافهمت من سؤالك

[ابو فتحى]

اخى العزيز طاهر

اولا : شكرا على الرد و الاهتمام 

ثانيا : قاعده البيانات sql و ليس اكسيس 

ثالثا : هل ممكن عمل هذا التنسيق على جدوال sql

[ابو جودي]

dim stLinkCriteria As String:stLinkCriteria = "[Fildename]=" & Me.txtObjectName
If DCount("*", "tblName", stLinkCriteria) > 0 Then
MsgBox$("type You Want")
End If

مع الاخذ فى الاعتبار

نستخدم ذلك مع الارقام'
stLinkCriteria = "[Fildename]=" & Me.txtObjectName

نستخدم ذلك مع النصوص'
stLinkCriteria = "[Fildename] ='" & Me.txtObjectName & "'"

نستخدم ذلك مع التواريخ'
stLinkCriteria ="[Fildename] =#" & Me.txtObjectName & "#"
 

 

وفى هذا الموضوع تم استخدام الكود السابق