السلام عليكم جميع العضاء وخاصة المشرفين
عندى تيكست بوكس اسمها name
كيف اجبر المستخدم على ان لا يكون الاسم اقل من ثلاثى
يعنى يقبل مثلا: (كارم محمود بدوى) أو ( كارم محمود على بدوى)
ولا يقبل (كارم) أو ( كارم محمود)
واين اضع الكود ان شاء الله بعد اجاباتكم
ياريت ياجماعه حد يجيبنى على سؤالى للاهميه وشكرا جزيلا
هناك برنامج متكامل للاخت زهرة العبقرية...يقسم الاسم الى ثلاثي او رباعي
وهنا يمكنك استخدام هذا الكود في تحديد عدد حقول الاسم وبالتالي تستطيع معرفة هل هو ثلاثي او اقل..
ابحث في قسم الاكسس هنا عن "تقسيم الاسم"
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
معزرة الى الاخ همام تقبل تحياتى
ولكنى للاسف لم اجد طلبى على تقسيم الاسماء
ارجو ارسال الكود فى اسرع وقت وجزاك الله خيرا حيث اننى لدى برنامج عن التحاليل الطبيه الحمد لله قمت بتصميمه بمساعده الاكواد فى هذا الصرح البرمجى الهائا فى منتدياكم
واريد الا يقل الاسم عن ثلاثى نظرا لمنع وجود مريضين بنفس الاسم
حتى يسهل عمليه البحث والطباعه وتحرى الدقه وعدم تضارب النتائج
وشكرا لاهتمام سيادتكم
والسلام عليكم ورحمة الله وبركاته
بالمرفق ستجد ضالتك
اما الاسم الثلاثي يجب أن يكون لكل اسم حقل مثل
الاسم :
اسم الأب:
اسم العائلة :
ويجب أن لايقل كل اسم عن ثلاثة حروف مثلاً
اما الاسماء فيوجد اسماء مركبة مثل يعن الله أو حبيب الله فإن التقسيم في الكود سيعتبره إثنان.
ويمكن جمعهما في الاستعلام مثال
namep:first_name & " بن" & father_name & " " & famely name
أرجو أن يكون جوابي شافيا
تم تعديل هذه المشاركة بواسطة مفرج في 5 نوفمبر 2010 في 14:05
من سار على الدرب وصل
اليك اخى ما تريد
استخدم هذا الكود
Dim words As Long words = UBound(Split(Nz(Me.Text0, ""))) - LBound(Split(Nz(Me.Text0, ""))) + 1 If words < 3 Then MsgBox "يجب ان يكون الاسم ثلاثى على الاقل" Me.Text0.SetFocus
حيث text0 هو اسم حقل الاسم
الله اكبر ولله الحمد
السلام عليكم جميعا الاخ ابو يوسف الغالى والاخ مفرج الغالى
الحمد لله تمت الاستفادة من سيادتكم جعله الله فى ميزان حسناتكم جميعا
والسلام عليكم ورحمة الله وبركاته
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…