مشکل در قسمت کد نویسی

[Mahdi.Victory]

سلام
دوستان میشه فایل من رو ببینید و بگید چرا وقتی داخل فرم 3personal_information می شوم و فیلد کدملی(national_code) را انتخاب میکنم و داخل رویداد before update کدی رو مینویسم که وقتی کد ملی تکراری وارد شد پیغام بده,عمل نمیکنه
این کد رو برای یک فرم دیگه امتحان کردم و جواب گرفتم

فکنم تو قسمت view code یک کاری کردم که اینجوی شد
الان هیچ کدی رو جواب نمیکیرم
حتی تو رویداد before update که میرم
اینو برام باز نمیکنه

Private Sub national_code_BeforeUpdate(Cancel As Integer)

End sub


دوستان لطفا کمک کنید این مشکل ما حل بشه
ممنون

[hasanhzd]

درود
کلا فایل رو عوض کردم . یعنی یه بانک جدید ساختم و اشیا شمارو وارد اون کردم
فرمهای بااسم فارسی رو حذف کردم
در رویداد afterupdate
کدزیررونوشتم شما قبل از آپدیت نوشته بودی
Dim varData As Variant
Dim a As Variant

varData = DCount("[national_code]", "3personal_information", "[national_code] ='" & Me!national_code & "'")
If varData >= 1 Then
MsgBox "ʘÑÇÑí ÇÓÊ", vbCritical, "ÊæÌå"
Cancel = True
End If

[Mahdi.Victory]

سلام
ممنونم که جواب دادید
الان من هم این کارهایی که گفتید رو باید انجام بدم؟
و اگه میشه بگید چطوری اشیا رو توی بانک جدید وارد کنم؟

و این DLookup با DCount چه تفاوتی دارد؟

[hasanhzd]

درود
یه فایل خالی بسازید
از گزینه اکسترنال دیتا اکسس رو انتخاب کنید و هرچی رو که میخاهید از آدرس فایل فعلی وارد کنید
lookup جستجو میکنه
count میشمره پس اگه نتیجه صفر نشه یعنی چیزی هست
اینجا از ابزار مختلفی استفاده کردیم برای یک هدف . همون جمله معروف راههای رسیدن به دا زیاده