(تمت الاجابة) منع تكرار نفس الشخص

[سمير1]

السلام عليكم ورحمة الله
كيف يمكنني معرفة اثناء تسجيل إسم الشخص إذا كان هذا الإسم تم تسجيلة من قبل أم لا مع العلم انه يمكن تكرار نفس الإسم ولكن لشخصين مختلفين هل افضل الحلول هو عمل بحث ذاتي وكيف يمكن عملة ام هناك طريقة افضل ارجو توضيح كيف يتم عملها حتي اعملها بنفسي وشكرا للقائمين علي هذا المنتدي الرائع

___.rar

[CUHP]

اخي الكريم /

لو قمت بالبحث في المنتدى عن ( عدم تكرار ) لوجدت امثلة كبيرة تخص هذا الموضوع

وارفق لك الرابط هو نتيجة بحثي عن هذا الموضوع في منتدانا العزيز

http://www.officena.net/ib/index.php?act=S...%CA%DF%D1%C7%D1

تحياتي

[سمير1]

جزاك الله خيرا وجعلة في ميزان حسناتك

ان شاء الله اجد ما أريده في هذه الباقة الرائعة

[سمير1]

أرجو المساعدة فلم أصل إلي حل حيث انني اريد التنبية فقط بتكرار الأسم وليس منع تكرارة حيث ان يمكن ان يتكرر الإسم لشخصين مختلفين

[منذر عساج]

أخي الكريم

أرجو ان يفيدك الرابط التالي :

http://www.officena.net/ib/index.php?showtopic=17833

[سمير1]

أخي الكريم منذر عجاج اشكرك علي الاهتمام والرد

لكن هذا الرابط يفيد بمنع التكرار والتنبية انه مكرر

في حين ان طلبي هو السماح بالتكرار لكن التنبية علي ان هذا الاسم مكرر

ثم التوجه إلي البيانات الخاصة بهذا الشخص لإضافة أي بيانات جديدة بدلا من البحث عنه

وقد وجدت في هذا المنتدي الرائع نصف طلبي الأول عن طريق استخدام الكود التالي

If (Eval("DLookUp(""[Name] "",""[Personal data]"",""[Name]=form![Name]"") Is Not Null")) Then

MsgBox "هذا الإسم موجود من قبل !"

End If

اما المطلوب حاليا هو التوجة إلي الملف الخاص بالشخص مباشرة

ارجو ان أجد الحل سريعا

[سمير1]

ألا يوجد حل لهذه المشكلة ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[Dream_Works]

أرجو أن يكون هذا مبتغاك

Private Sub Name_BeforeUpdate(Cancel As Integer)
Dim SearchResult As String, DestinationCode As Integer

SearchResult = Nz(DLookup("[code_no]", "[Personal data]", "[Name]=form![Name]"), "")
If SearchResult <> "" Then
MsgBox "هذا الإسم موجود من قبل !"
DestinationCode = CInt(SearchResult)
Me.Undo
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, DestinationCode
End If

End Sub

___.zip

[سمير1]

أخي الكريم Dream_Works اشكرك شكرا جزيلا علي الرد جعلة الله في ميزان حسناتك

واعتذر عن التاخير في الرد حيث انني لم أجد المشاركة الخاص بي ولا الرد عليها إلا بعدما عملت بحث في المنتدي ، وبالفعل هذا ما اريده لكن هذه الطريقة لا تسمح بتكرار الاسم مع العلم ان هناك ما يتشابة من الأسماء لأشخاص مختلفين فأرجو ان أجد الحل الذي يسمح لي بتكرار الاسم وفي نفس الوقت يوجهني للأسماء المتشابهة حتي اتاكد انه ليس هذا الشخص الجديد

[Dream_Works]

أرجو أن يكون هذا طلبك

Private Sub Name_AfterUpdate()
Dim SearchResult As String, destinationCode As Integer

SearchResult = Nz(DLookup("[code_no]", "[Personal data]", "[Name]=form![Name]"), "")
If SearchResult <> "" Then
MsgBox "هذا الإسم موجود من قبل !"
destinationCode = CInt(SearchResult)
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, destinationCode
End If
End Sub

باختصار قم بعمل الآتي

1- امسح الكود الموجود من الحدث BeforeUpdate و ضعه في AfterUpdate

2- امسح الأمر Me.undo

[سمير1]

هذا بالضبط ما أريده جزاك الله خيرا ولي طلب أخر ان لم اكن قد اثقلت عليك حيث اريد اثناء كتابتي للاسم ان تظهر كل الاسماء المشابهة فمثلا نفرض ان لدي 3 أشخاص يحملون اسم محمد عبد الله احمد أريد اثناء كتابة محمد مثلا يظهر في قائمة كل الذي يبدا باسم محمد ثم وانا اكتب عبد الله يقل عدد الاشخاص بالقائمة ليظهر كل من اسمة محمد عبد الله ثم عند كتابة أحمد يظهر كل من يحمل اسم محمد عبد الله أحمد وبجوارة العمر والعنوان للتفرقة بينهم وعند النقر علي أحد هذه الاسماء يتوجة إليه

[سمير1]

السلام عليكم ورحمة الله

قمت بتعديل في النموذج حيث قمت بتقسيم الاسم إلي الاسم الأول واسم الاب واسم الجد واسم العائلة

كما قمت بعمل كومبوبوكس للبحث عن الاسماء وقمت بتجميعهم معا الا انني لم استطع ان افصل بينهم فقد اريد معرفة كيف اضع مسافة بعد االاسم الاول ثم بعد اسم الاب ثم بعد اسم الجد

مرفق الملف المراد التعديل عليه

___.rar

[Dream_Works]

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

في الملف المرفق مثال بسيط لما تريد

الا انني لم استطع ان افصل بينهم فقد اريد معرفة كيف اضع مسافة بعد االاسم الاول ثم بعد اسم الاب ثم بعد اسم الجد

مرفق الملف المراد التعديل عليه

ببساطة يمكنك وضع التعديل التالي في استعلام الكومبو بكس :

Expr1: [Personal data].Name & " " & [Personal data].[Father's_name] & " " & [Personal data].Grandpa_name & " " & [Personal data].Family_name

Ser_ListBox.zip

[سمير1]

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

نور الله صدرك كلما افلت الشمس والقمر وأزاح الله همك كلما حج فوج واعتمر وجعل الله ذريتك كأبي بكر وعمر وغفر الله لوالديك علي مد البصروأكثر الله أحبابك ومحبيك فيه بعدد ملايين البشر