اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مساعده (البحث بتاريخ الميلاد في فورم وإظهار النتائج في تكست بوكس)


إذهب إلى أفضل إجابة Solved by رجب جاويش,

الردود الموصى بها

أخى الفاضل

هل تقصد هكذا

نعم هذا هو المطلوب بارك الله فيك أخي رجب جاويش

ياريت تشرح لي اين كان الخطا

أستاذي رجب جاويش

عندما تقوم بتعديل بيانات معينة لا يتم ترحيلها في مكانها بل ترحل كأنها إضافة من جديد

لا حظ ذلك؟

رابط هذا التعليق
شارك

تفضل أخى

الليست بوكس له عمودين

عملت عرض الأول صفر وهو المحتوى على الرقم حتى لا يظهر

وأظهرت الآخر المحتوى على الاسم

 

وعدلت كود تعديل البيانات

 

 

 

البحث بتاريخ الميلاد.rar

  • Like 1
رابط هذا التعليق
شارك

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

1111.rar

رابط هذا التعليق
شارك

اخى الجموعى

تفضل اولا ما قمت بمراسلتى به

Sub HMA1()

end

هذا الكود هو الذى يقوم باستدعء البيانات الى الكوموبوكس 3

وكلمة END

تقوم بانهاء عمل الفورم

البحث بتاريخ الميلاد.rar

  • Like 1
رابط هذا التعليق
شارك

تفضل أخى

الليست بوكس له عمودين

عملت عرض الأول صفر وهو المحتوى على الرقم حتى لا يظهر

وأظهرت الآخر المحتوى على الاسم

 

وعدلت كود تعديل البيانات

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

ملفات مرفقة
  • zip.gif  1111.rar   145.06كيلو   4 عدد مرات التحميل
رابط هذا التعليق
شارك

اخى الجموعى

تفضل اولا ما قمت بمراسلتى به

Sub HMA1()

end

هذا الكود هو الذى يقوم باستدعء البيانات الى الكوموبوكس 3

وكلمة END

تقوم بانهاء عمل الفورم

 

شكرا وبارك الله فيك أخي إبراهيم على عمل المطلوب جزاك الله خيرا في إنتظار الأستاذ رجب جاويش للمطلوب السابق

رابط هذا التعليق
شارك

تفضل أخى

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

جمغه مباركة علينا وعليكم

بارك الله فيك أستاذي رجب جاويش

الله يجزيك كل الخير

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

ملاحظه

عند إدخال تاريخ ميلاد في الشيت بهذا التنسيق

"dd-mm-yyyy"

وعند تشغيل الفورم النتائج لا تظهر

جربت كتابة التاريخ كما هوم منسق في الشيت ولم تفلح نتيجة البحث

هل من طريقة لحل هذه المشكلة

هل من طريقة لإرغام التيكست بوس 1 إدخال الأرقام فقط وتكون تنسيقها على هذا الشكل

post-80346-0-29042000-1394785061_thumb.j

أوفكره أخرى مثلا

post-80346-0-07275200-1394785352_thumb.j

رابط هذا التعليق
شارك

أخى الفاضل

هل تقصد هكذا

نعم هذا ما قصدته

في إنتظار بقية الطلبات

هل من طريقة لإرغام التيكست بوس 1 إدخال الأرقام فقط وتكون تنسيقها على هذا الشكل

post-80346-0-29042000-1394785061_thumb.j

أوفكره أخرى مثلا

post-80346-0-07275200-1394785352_thumb.j

رابط هذا التعليق
شارك

أخى الفاضل

جرب المرفق

أستاذي رجب جاويش ماذا أضفت في المرفق الجديد

أعتقد انه مثل المرفق في المشاركة 37

على العموم شكرا وماقصرت

لا أجد ما يوفيك حقك

ربنا ما يحرمناش منك ومن ابداعاتك ومن بحر علمك الذى لا ينضب

وفقك الله لكل خير وجزاك الله عنا خير الجزاء

رابط هذا التعليق
شارك

أخى الفاضل / الجموعى

لقد أضفت هذا الكود فى حدث الخروج من الـ TextBox1 للتأكد من كتابة التاريخ بطريقة صحيحة

جرب كتابة أى حروف وليس أرقام ولاحظ النتيجة

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text <> "" Then
        If IsDate(TextBox1.Text) Then
            TextBox1.Text = Format(TextBox1.Text, "yyyy-mm-dd")
        Else
            MsgBox "من فضلك أدخل تاريخ صحيح"
            Cancel = True
        End If
    End If
End Sub

رابط هذا التعليق
شارك

 

أخى الفاضل / الجموعى

لقد أضفت هذا الكود فى حدث الخروج من الـ TextBox1 للتأكد من كتابة التاريخ بطريقة صحيحة

جرب كتابة أى حروف وليس أرقام ولاحظ النتيجة

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text <> "" Then
        If IsDate(TextBox1.Text) Then
            TextBox1.Text = Format(TextBox1.Text, "yyyy-mm-dd")
        Else
            MsgBox "من فضلك أدخل تاريخ صحيح"
            Cancel = True
        End If
    End If
End Sub

لقد قمت بتجربة ذلك فالحروف تكتب عادية

شاهد الصورة

post-80346-0-16534200-1394808797_thumb.j

رابط هذا التعليق
شارك

أخى الفاضل

جرب هذه الفكرة

الله الله عليك يا أستاذي

فكره رائعه جدا

جزاك الله كل الخير

وأخيرا تم المطلوب بنجاح

أستاذي سأرفع لك هذا الملف

راجع معي زر التعديل به مشكل لا أعرف ما السبب في الفورمات 3

إذا عندك متسع من الوقت

وجزاك الله كل الخير

البحث بتاريخ الميلاد ‫‬.rar

رابط هذا التعليق
شارك

أخى الفاضل

أرجو توضيح أكثر لما تقصده

 معذرة أستاذي أقصد زر حفظ التعديل

عند تعديل أي من البيانت في الفورمات3 وعند حفظ تعديلها تظهر نافذه الخطأ

رابط هذا التعليق
شارك

أخى الفاضل

لا يوجد فى الملف سوى Userform1  واحد فقط

صحيح أستاذي

معذرة رفعت الملف الخطأ

هاهو الملف

البحث بتاريخ الميلاد11.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information