أريد البرنامج أن يطني رسالة تفيد بتكرار الاسم

[حامل المسك]

بسم الله الرحمن الرحيم

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

وفقكم الله

في هذا المثال

م=====الاسم=====الجنسية

ومنعت تكرار الاسم

وفقكم الله المطلوب أنه في حالة تكرار الاسم أرغب في أن تظهر رسالة تفيد بتكرار الاسم

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

فهل يمكن عمل ذلك

___________.rar

[حامل المسك]

للرفع

[محب العلم]

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

أخي حامل المسك ،

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

 

Private Sub الاسم_Exit(Cancel As Integer)
w = Nz(DCount("[الاسم]", "[الأسماء]", "[الاسم] = '" & الاسم & "'"), Empty)

If w > 0 Then
  MsgBox "هذا الاسم موجود مسبقا يرجى تغييره"
  Cancel = True
End If
End Sub

names.rar

مع وافر الاحترام

[حامل المسك]

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

والله يرعاك ويحفظك من كل شر

[hat]

الاخ العزيز

اضافة لخدمة محب العلم المميزة أنظر المرفق

اخوكم / هاشم

names.rar

[محب العلم]

أحسنت أخي هاشم

هنيئا لك أخي حامل المسك

[حامل المسك]

يارب إن هؤلاء إخوتي لهم فضل عليَّ فياكريم لا تحرمهم لذة النظر إلى وجهك الكريم

أشكرك أخي هاشم فعلا إضافة رائعة

سأشكر عمرا ما تراخت منيَّتي ... أيادي لم تمنن وإن هي جلَّت

فتى غير محجوب الغنى عن صديقه ... ولا مظهر الشَّكوى إذاالنَّعل زلَّت

تم تعديل يناير 13, 2008 بواسطه حامل المسك