عدم تكرار اسم في أثناء الإدخال

موضوع منقول من المنتدي القديم

الكاتب :

سعودي31

عدم تكرار اسم في أثناء الإدخال

---------------------------------------------------------------------------

عدم تكرار اسم في أثناء الإدخال

هذه إحدى مشاركات الأخ مصلح الحريصي

قد يكون نموذج إدخال البيانات يحتوى على حقول كثيرة وبالتالي لا تظهر رسالة أكسيس الإفتراضية إلى بعد إدخال بيانات أخر حقل أي عند الحفظ وفي هذه الحالة يكون المستخدم قد اهدر وقتاً في تعبئة جميع الحقول فالأفضل من وجهة نظري ولا يؤخذ بها أن تظهر الرسالة بعد إدخال البيانات في حقل الرقم مباشرة ويتم ذلك بالتالي:

من خصائص الحقل حدث بعد التحديث يكتب الشفرة التالية

If DCount("*", "customer", "customer_ID=" & Screen.ActiveForm.r1) Then
MsgBox " الرقم مكرر", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading," تنبيه"
End If

لدي سؤالين على هذا الكود وهما : -

السؤال الأول : أريد تحويل الكود السابق بحيث يناسب المسميات التي عندي في برنامجي :-

الجدول : (سجل الموظفين )

حقل المفتاح : (البطاقة أو الإقامة ) وهو الذي أريد الكود يكون في حدث عند الخروج منه .

النموذج : (نموذج إدخال موظف) الذي يتم إدخال الأسماء فيه .

(((((((فكيف يتم تحويل الكود ليناسب مسميات برنامجي ؟؟)))))))

السؤال الثاني : هل الكود يحتاج لمرجع معين من المراجع .

(( لقد تعقدت من الأكواد التي لا تعمل ثم يتضح لي أنها تريد فقط مرجع معين ))

فهل أجد المساعدة منكم جزاكم الله خيراً ؟؟

وللجميع تحياتي

الكاتب: سعودي31 بتاريخ: 9/16/2002 10:54:38 AM

----------------------------------------------------------------------

هذا رابط القاعدة بعد عمل المطلوب :

http://www.msaccess4arab.com/temp/no_tkrir.zip

وجزاك الله كل خير على دعواتك الطيبات .

ولك تحياتي

الكاتب: ابوحمود بتاريخ: 9/21/2002 10:26:02 PM

--------------------------------------------------------------------------------

أبو حمود لا أعرف كيف أرد لك جمايلك علينا

شكراً لك ألف شكر وبارك الله فيك وفي جهودك

للفائدة ولأن الكود قد يكون أحفظ من البرنامج الجاهز في المنتدى فأني أدرج الكود هنا ( في حدث بعد التحديث للحقل )

Dim اسم_الموظفاسم_الموظف = DLookup("الاسم", "سجل الموظفين", "[البطاقة أو الإقامة]='" & Me![البطاقة أو الإقامة] & "'")If اسم_الموظف <  > "" ThenMsgBox " الرقم مكرر" & vbCrLf & اسم_الموظف, vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"[البطاقة أو الإقامة].SetFocusEnd If

والشكر في ذلك لله أولاً ثم للأخ أبو حمود

--------------------------------------------------------------------------------

لا إله إلا الله .. محمد رسول الله - صلى الله عليه وسلم .

الكاتب: سعودي31