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

[رجب جاويش]

أخى الحبيب / محمد أبو البراء

شكرا جزيلا أخى الحبيب على هذه الكلمات العطرة والشعور الطيب

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

[رجب جاويش]

أخى الحبيب / ابراهيم

شكرا جزيلا أخى الحبيب على هذه الكلمات العطرة والشعور الطيب

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

[الجموعي]

أخى الفاضل

هل تقصد هكذا

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

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

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

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

لا حظ ذلك؟

[رجب جاويش]

تفضل أخى

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

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

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

 

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

 

 

 

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

[الجموعي]

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

1111.rar

[إبراهيم ابوليله]

اخى الجموعى

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

Sub HMA1()

end

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

وكلمة END

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

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

[الجموعي]

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

[الجموعي]

تفضل أخى

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

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

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

 

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

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

ملفات مرفقة

•   1111.rar   145.06كيلو   4 عدد مرات التحميل

[الجموعي]

اخى الجموعى

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

Sub HMA1()

end

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

وكلمة END

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

 

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

[رجب جاويش]

تفضل أخى

 

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

[الجموعي]

تفضل أخى

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

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

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

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

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

ملاحظه

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

"dd-mm-yyyy"

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

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

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

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

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

[رجب جاويش]

أخى الفاضل

هل تقصد هكذا

 

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

[الجموعي]

أخى الفاضل

هل تقصد هكذا

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

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

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

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

[رجب جاويش]

أخى الفاضل

جرب المرفق

 

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

[الجموعي]

أخى الفاضل

جرب المرفق

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

أعتقد انه مثل المرفق في المشاركة 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

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

شاهد الصورة

[رجب جاويش]

أخى الفاضل

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

 

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

[الجموعي]

أخى الفاضل

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

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

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

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

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

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

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

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

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

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

[رجب جاويش]

أخى الفاضل

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

[الجموعي]

أخى الفاضل

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

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

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

[رجب جاويش]

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

ماذا تقصد بـ الفورمات 3

[الجموعي]

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

ماذا تقصد بـ الفورمات 3

UserForm1

UserForm2

UserForm3

نفس المشكلة في زر حفظ التعديل

[رجب جاويش]

أخى الفاضل

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

[الجموعي]

أخى الفاضل

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

صحيح أستاذي

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

هاهو الملف

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