السلام عليكم ... اللي أريده إني ما أدخل إسم الزبون مرتين ... لما أكتب اسم الزبون جديد ... يظهر في السجل اللي لونه أصفر جزء الإسم أو الإسم الكامل ... وإذا كان متكرر نفس اسم الزبون يعطيني رسالة "الإسم مكرر"
عدم تكرار اسم الزبون
السلام عليكم
عليك أولاً بتحصيص حقل مفتاح للجدول فاذا كان هذا الحقل هو اسم الزبون فلم يسمح لك بتكرار الاسم مرتين واذا كان هذا الحقل هو رقم الزبون وتريد الا يتكرر الاسم فمن تصميم الجدول وعند حقل اسم الزبون اختار
Indexed
ثم اختار
Yes (No Duplicates)
ثم احفظ الجدول وبهذه الطريقة لن تستطيع تكرار الاسم وستظهر رسالة تفيد بالتكرار اذا حدث.
تفضل ما تريد
فى حدث بعد التحديث للاسم ضع هذا الكود
Private Sub CustomerName_AfterUpdate()
If DCount("[CustomerName]", "table1", "[CustomerName]='" & CustomerName & "'") > 0 Then
MsgBox "ãßÑÑ"
Else
Text8 = CustomerName
End If
End Subالسلام عليكم شكراً أخي mrnooo
يبقى فقط بقية الكود وهو أن يتم مسح ما أدخله في حقل إسم الزبون
عفواً فانني لست خبير بالاكواد حتى اضيف على ما كتبته أنت
شكراً أخي الكريم.
أخى الكريم
إذا سمح لى أخى Mr Nooo الدائم النشاط والإبداع
قم بإضافة التعديل للكود كالمرفق:
Private Sub CustomerName_AfterUpdate()
If DCount("[CustomerName]", "table1", "[CustomerName]='" & CustomerName & "'") > 0 Then
MsgBox "إسم مكرر",vbOKOnly
DoCmd.CancelEvent
Else
Text8 = CustomerName
End If
End Subتم تعديل هذه المشاركة بواسطة Mohamed Nada في 7 نوفمبر 2009 في 01:37
... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...
أخي محمد ندا
دائماً سباق لمساعدة أعضاء المنتدى وخصوصاً للمبتدئين أمثالي. عفواً أخي الغرا أنت طبعاً ليس مبتدء.
جزاك الله خيراً
تم تعديل هذه المشاركة بواسطة team2000 في 7 نوفمبر 2009 في 01:54
أخى الكريم Team2000
أكرمك الله على المجاملة .. بل أنا المبتدئ الذى يحاول أن يستفيد منكم.
أخى الكريم Mr Nooo
أعتذر لك .. فلم أرى مشاركتك إلا بعد أن أرفقت التعديل.
تحياتى
محمد ندا
... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...
أخي استاذنا محمد ندا
هذه ليست مجاملة فأنا ارى كل يوم مشاركاتك منورة المنتدى ويكفي المجموعة التي تنتمي إليها "الأعضاء المجتهدين" زاد الله في علمك وجلعلك منفعة للاسلام والمسلمين بل للبشر جميعاً
أسف أخي الغرا قد نكون خرجنا عن الموضوع فتقبل عذري.
جزاكم الله .. كل خير بصراحة الكود شغال ميه في الميه .. أريد تعديل هو إني كتبت اسم زبون "خليفة سليمان أحمد المشاري" وعندما أريد اضافة إسم زبون اسمه "خليفة" فيطلع باقي الإسم في الصندوق الأصفر ... هذا اللي أقصده .. وفي الحالة هاذي أقوم بإلغاء كتابة اسمه مرة أخرى اذا كان هو فعلا الزبون المسجل سابقا ... وبوركتم :wub:
أخي الكريم
تفضل المرفق بعد التعديل ولكني قمت ببعض التغيرات عليه حتى لا أصعب المسألة عليا وعليك لإان ما زلت مبتدء وأرى أن اسهل الطرق هو أقصرها.
أرجو أن يفيد المرفق بالغرض. رغم التعديل. يمكنك حذف الكود الموجود بعد التحديث لحقل اسم الزبون لانه ليس له معنى بعد التعديل الذي قمت به.
تم تعديل هذه المشاركة بواسطة team2000 في 7 نوفمبر 2009 في 21:40
جــزاك الله كل خيـر أ أخي ....
... ولكن يا أخي لم يفي بالمطلوب .... بوركت ... وألف شكر مرة أخرى ...
أتمنى لكم التوفيق
جعله الله في ميزان حساناتكم ،،، يا مبدعين يا كرام .....